DBF批量转换为XLS

         经常有人需要把DBF文件转换为XLS文件，但是现在好多都是单个转换的，没有批量转换的。因此针对这个问题，做了一个批量DBF转换为XLS。其实是老婆要用这个功能o(∩_∩)o...。她计算机没装.net，因此只好用VB编了。没什么难度，比较适合有同样需要的人使用，附上完全代码，供初学者学习。自己感觉对问题分析的还比较到位。

源码已经上传至：http://download.csdn.net/user/binsweet/

其中涉及到的重点问题：

1、DBF转换核心思路

一般情况下，都是把DBF当作数据库处理，用ado读出数据后，连接Excel，然后再写进去就可以了。我感觉比较麻烦，就偷了个懒，先DBF文件以二进制形式读进剪贴板，然后打开Excel，然后粘贴就可以了。但是我估计如果DBF文件过大，超过剪贴板的大小，就会失败的。好在老婆用到的DBF文件都是几百K以内。先就这样吧。

 

     // 读写二进制文件，存入剪贴板
    Open txtFilePath.Text  For  Binary  As  #Handle
    FileString  =   Space ( FileLen (txtFilePath.Text))
     Get  #Handle, , FileString
    Close #Handle
    Clipboard.Clear
    Clipboard.SetText FileString
    
     // 粘贴进Excel
     Set  xlsheet  =  xlBook.Worksheets( 1 )  ' 设置活动工作表
    xlsheet.Paste

 

2、操作Excel

这个不难

一般流程

 

     // 定义对象
     Dim  xlApp  As  Excel.Application  ' 定义EXCEL类
     Dim  xlBook  As  Excel.Workbook  ' 定义工件簿类
     Dim  xlsheet  As  Excel.Worksheet  ' 定义工作表类
     Set  xlApp  =   CreateObject ( " Excel.Application " )  ' 创建EXCEL对象
     Set  xlBook  =  xlApp.Workbooks.Add
    xlApp.Visible  =   False   ' 设置EXCEL对象可见（或不可见）

     // 使用对象
    ...........

     // 使用完后，关闭对象释放内存
    xlBook.Close ( True )  ' 关闭工作簿
    xlApp.Quit  ' 结束EXCEL对象

     Set  xlsheet  =   Nothing
     Set  xlBook  =   Nothing
     Set  xlApp  =   Nothing   ' 释放xlApp对象

 

3、文件遍历

这个也比较简单。我只实现了单个目录下文件的遍历，不含字文件夹。有兴趣的可以递归一下实现。

 

     // 循环遍历
    sFile  =  Dir(mPath  +   " *.dbf " , vbNormal  +  vbArchive  +  vbHidden)
     Do   While   Len (sFile)  >   0
        sFile  =   UCase ( Trim (sFile))
         // 使用sFile
        ...........
         // 继续遍历
  
        sFile  =  Dir
     Loop