利用VFP中将所有数据表导出到EXCEL中

发布: 2007-7-02 11:08 | 作者: admin | 来源: | 查看: 12次 | 进入软件测试论坛讨论

在数据库的编程应用中经常用到将数据从一种文件格式转变另一种格式，这时OLE是一种上上之选，OLE技术以其易用性以及平台无关性成为了编程人员的上上之选。不过我们在开发程序时，一个模块一般只能用于将一个数据表导出因为导出数据内容受表结构的限制，表结构不同则编程中必须要做一切改动。笔者在开发一个学务管理系统的过程就遇到这类问题。经过一番探索笔者巧妙地结合VFP函数成功实现了表文件无关地导出。最后成功实现了将源表导出到EXCEL中。特此提出以供大家讨论，同时借此抛砖引玉，还望高手不吝赐教。

其实笔者所用的原理很简单。主要使用了Visual Foxpro中的FCOUNT()与FIELDS函数。打开表后利用FCOUNT（）函数取得了表中的字段个数。然后用FIELDS（）函数设法取得各个字段的字段名。这样问题就基本解决了。不过在实践中笔者发现仅取得了字段名还不能取得记录中各字段的值，笔者利用宏替代暂时解决了此问题。如果哪位高手有更好的方法。还望指教。

源码清单：
local myoleapp

local myfilename

local myfield

yfilename=getfile("*.dbf")&&得到源表

myoleapp=createobject("excel.application") &&创建OLE对象

myoleapp.visible=.t.

myoleapp.workbooks.add

use &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
endscan

myoleapp.activeworkboods.saveas("myxls.xls")
myoleapp.quit