利用VFP中将所有数据表导出到EXCEL中
来源:互联网 发布:淘宝店铺上新 编辑:程序博客网 时间:2024/05/20 03:40
在数据库的编程应用中经常用到将数据从一种文件格式转变另一种格式,这时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
- 利用VFP中将所有数据表导出到EXCEL中
- 利用VFP中将所有数据表导出到EXCEL中
- Silverlight 中将DataGrid中所有分页导出到Excel
- 如何利用python从mysql中将数据导出到excel
- ASP.NET 2.0中将 GridView 导出到 Excel 文件中
- ASP.NET 2.0中将 GridView 导出到 Excel 文件中
- ASP.NET 2.0中将 GridView 导出到 Excel 文件中
- ASP.NET 2.0中将 GridView 导出到 Excel 文件中
- ASP.NET 2.0中将 GridView 导出到 Excel 文件中
- ASP.NET 2.0中将 GridView 导出到 Excel 文件中
- ASP.NET 2.0中将 GridView 导出到 Excel 文件中
- ASP.NET 2.0中将 GridView 导出到 Excel 文件中
- ASP.NET 2.0中将 GridView 导出到 Excel 文件中
- ASP.NET 2.0中将 GridView 导出到 Excel 文件中
- ASP.NET 2.0中将 GridView 导出到 Excel 文件中
- ASP.NET 2.0中将 GridView 导出到 Excel 文件中
- ASP.NET 2.0中将 GridView 导出到 Excel 文件中
- ASP.NET 2.0中将 GridView 导出到 Excel 文件中
- 数据库连接集锦
- 使用XML技术实现OWC对数据库的展示(一)
- 使用XML技术实现OWC对数据库的展示(二)
- FORMS 6I OBJECT-BASED FEATURES (1)
- 窗体动态效果的实现
- 利用VFP中将所有数据表导出到EXCEL中
- PB中的事务管理
- 利用排序规则特点计算汉字笔划和取得拼音首字母
- 缩小数据库日志另类方法
- 更改数据库所有者的对象
- oracle block 格式
- 继续说一说Oracle的MTS
- 外键开关
- 使用DTS导入多个文件数据到SQL Server中