Question

如何实现Foxpro和Excel数据间相互转换

Answer 1

在审计实际工作中，经常涉及两者数据间的相互转换。下面介绍几种常用转换方法，供同行参考。 一、将数据库文件转换为Excel表格文件（dbf-->xls） （一）直接打开异构数据文件 从DBF格式转换成Ms Excel工作表格式非常方便，可以直接打开，具体操作如下： 1．启动Ms Excel，点击主选菜单“文件”下“打开”； 2．在“打开”对话窗的“文件类型”下拉列表里，选取“dBase文件（*.dbf）”，并且指定盘符和文件夹，找到欲打开的DBF文件，例如：D:\\sj2002\\fox\\出门证.dbf； 3．点击“打开”按钮。 系统以Excel电子表形式显示DBF文件的数据，注意，当前文档的名称是“出门证.dbf”，并且还可以对打开的文件修改后，仍然按DBF格式保存。如果需要以Ms Excel工作表保存，则还须以选菜单“另存为”，指定保存类型为“Microsoft Excel工作簿”，保存当前数据，例如，在“D:\\sj2002\\excel”文件夹下，另存为“出门证.xls”。 （二）利用Foxpro的“导出”功能来实现数据转换 在Foxpro数据库系统中，将DBF格式转换成Ms Excel工作表格式也是非常方便的，具体操作如下： 1．启动Foxpro，点击主选菜单“文件”下“打开”； 2．在“打开”对话框的“文件类型”下拉列表里，选取“表（*.dbf）”，并且指定盘符和文件夹，找到欲打开的DBF文件； 3．点击主选菜单“文件”下的“导出”，在“导出”对话框的“文件类型”下拉列表中，选取“Microsoft Excel5.0(xls)”，并且指定盘符和文件夹，然后确定xls文件名后点击“保存”按钮即可，例如：D:\\sj2002\\excel\\出门证.xls。 （三）使用编程方法来实现数据转换 如果您对VFP编程语言较为熟悉，可以编写一个简单的应用程序，来实现DBF格式转换成Ms Excel工作表格式，具体做法，首先要求在VFP命令窗口中输入modify command，然后在文本框中输入以下代码(&&及其后的内容表示注释)： use 出门证.dbf &&根据实际工作需要，选择您所需的实表名。 eole=createobject(\"excel.application\") eole.workbooks.add eole.worksheets(\"sheet1\").activate eole.visible=.t. k=fcount() &&取得字段数 for a=1 to k eole.cells(1,a).value=field(a) &&在（1，X）单元格中写入字段名称 endfor I=reccount()&&取得记录个数 For j=1 to I Go j Wait \"正在写入完第\"+alltrim(str(j,5))+\"条记录\" window nowait For x=1 to k Zhi=field(x) Eole.cells(j+1,x).value=&zhi Endfor Endfor Wait \"记录写完\" window timeout 3 文件保存为zm.prg，在命令窗口中执行do zm.prg，等待一会儿我们就可看到生成的Excel表，试着预览一下，看其效果如何。 （朱明） (作者单位：淮南矿业集团公司潘一矿审计科研)