新浪博客

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

2009-02-24 21:40阅读：

http://blog.sina.cn/dpool/blog/u/1074185750

在计算机软件中，Microsoft Excel具有强大的制表功能，Foxpro具有很强的数据库处理能力。在审计实际工作中，经常涉及两者数据间的相互转换。下面介绍几种常用转换方法，供同行参考。
一、将数据库文件转换为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表，试着预览一下，看其效果如何。
二、将Excel表格文件转换为数据库文件（xls-->dbf）
Excel内置转换功能支持的常用数据格式包括DBF格式和各种文本格式的数据文件，操作如下：
1．打开一个XLS格式的工作表，例如，D:\\sj2002\\excel\\出门证.xls；
2．点击主菜单“文件”下“另存为”选项，在“另存为”对话框的“保存类型”下拉列表里，选取“DBF4（dBase Ⅳ）”或者“文本文件（以制表符分隔）（*.txt）”，如果需要，还可改变文件名和保存的盘符、文件夹等；
3．点击“保存”按钮，查看D:\\sj2002\\excel文件夹，已有“出门证.DBF”文件。

我的更多文章

下载客户端阅读体验更佳

APP专享