怎么把vfp文件转化成EXCEL?谢谢

把vfp文件转化成EXCEL有两种方法

方法1：使用图形知袜升界面，即使使用菜单

1、打开要转成Excel文件的表

2、“文件”菜单——“导出”，d出“导出”对话框

3、在“类型”下拉列表搭老中选择“Microsoft

Excel

5.0

(XLS)”，在“到”文本框中输入要保存的Excel文件的路径和和文件名，或者点击文本框右边的“...”按钮，选择保存的文件夹，输入文件名

4、如果不是整个表都导出的话，点击“选项”按钮，设置“范围”、“条件”和要导出的“字段”

5、点击“确定”按钮，即可完成转化

方法2：

在“命令窗口”使用语句：

COPY

TO

[范围]

[FIELDS

字段名列表]

[FOR

条件]

TYPE

XLS

这是已经简化的

COPY

TO

命令

比如运行下面两条命令就可以将好御“表1.dbf”转化为“表1.xls”

USE

表1

COPY

TO

表1.XLS

TYPE

XLS

VFP系统的文件夹，可以在“命令窗口”运行命令

?

HOME()

进行查看

导入：可以用append from <要导入滑旅的文件名（DBF）>

导出：COPY TO <要导入的文件名信敬凳>,如果要导出EXCEL:

COPY TO <要导入的文件名>TYPE XL5

*代码：稿猜导出

Afile=GETFILE('DBF','打开') &&选择要导出的表

USE (Afile) &&打开表

TFILE=PUTFILE('SAVE TO:',' ','DBF') &&指定导出的文件

IF RIGHT(TFILE,3)='XLS'

COPY TO (TFILE) TYPE XL5

ELSE

COPY TO (TFILE)

ENDIF

在数据库的编程应用中经常用到将数据从一种文件格式转变另一种格式，这时OLE是一种上上之选，OLE技术以其易用性以及平台无关性成为了编程人员的上上之选。不过我们在开发程序时，一个模块一般只能用于将一个数据表导出因为导出数据内容受表结构的限制，表结构不同则编程中必须要做一切改动。笔者在岁氏开发一个学务管理系统的过程就遇到这类问题。经过一番探索笔者巧妙地结合VFP函数成功实现悉雀拦了表文件无关地导出。最后成功实现了将源表导出到EXCEL中。特此提出以供大家讨论，同睁胡时借此抛砖引玉，还望高手不吝赐教。其实笔者所用的原理很简单。主要使用了Visual Foxpro中的FCOUNT()与FIELDS函数。打开表后利用FCOUNT（）函数取得了表中的字段个数。然后用FIELDS（）函数设法取得各个字段的字段名。这样问题就基本解决了。不过在实践中笔者发现仅取得了字段名还不能取得记录中各字段的值，笔者利用宏替代暂时解决了此问题。如果哪位高手有更好的方法。还望指教。 源码清单： local myoleapp local myfilenamelocal myfield yfilename=getfile("*.dbf")&&得到源表myoleapp=createobject("excel.application") &&创建OLE对象 myoleapp.visible=.t.myoleapp.workbooks.adduse &myfilename

for i=1 to fcount()

myoleapp.cells(i,1).value=fields(i)

endfor

scan

for i=1 to fcount()

myfield=fields(i)

myoleapp.cells(recno()+1,i).value=&myfield

endfor

endscanmyoleapp.activeworkboods.saveas("myxls.xls")

myoleapp.quit

---