读取excel的内容,并将其显示到grid

qiang119 2008-01-14 09:44:40
读取excel的内容,只读取有内容的行数,并将数据用grid显示出来
...全文
92 点赞 收藏 7
写回复
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
sql5186 2008-02-02
给你的那个EXCEL配置一个DSN然后在程序中调用它产生一个TEMP表就能用了
回复
CCJJGLXT 2008-01-30
十豆三先生上面那段代码中的:oExcel.ActiveWorkbook.SaveAs('D:\TEST.DBF',8) &&另存为DBF
却时能用,但在EXCLE文件中的数值字段的小数部分,在另存为:TEST.DBF过程中,没有了,文本字段没有问题.
请看一下是什么原因.

谢谢!
回复
qiang119 2008-01-17
请高手赐教
回复
qiang119 2008-01-15
不要将excel另存为DBF,而直接在grid显示,可以吗?
回复
十豆三 2008-01-15
*************例子******************
thisform.grid1.recordsource=null
lcFileName='D:\TEST.XLS'
oExcel=CREATEOBJECT('Excel.application')
oExcel.Workbooks.Open('&lcFileName') &&打开文件
R=oExcel.SHEETS(1).UsedRange.ROWS.COUNT &&有数据的总行数
C=oExcel.SHEETS(1).UsedRange.COLUMNS.COUNT &&有数据的总列数
oExcel.Cells(R,C).Select &&选中数据
oExcel.Columns.AutoFit &&让所有的列宽都自动调整
oExcel.DisplayAlerts=.F.
oExcel.ActiveWorkbook.SaveAs('D:\TEST.DBF',8) &&另存为DBF
oExcel.ActiveWorkbook.saved=.t. &&不保存当前EXCEL表
oExcel.Workbooks.close &&关闭表
oExcel.quit &&退出EXCEL
RELEASE oExcel &&释放变量
use D:\TEST.DBF
thisform.grid1.recordsource='test'
thisform.grid1.refresh

更多内容请参考:
<VFP全面控制EXCEL>
http://blog.csdn.net/apple_8180/archive/2006/04/22/672913.aspx
回复
qiang119 2008-01-15
转成临时表怎么处理?
例如我的excel有10行数据,我只需要5-10行的,怎么处理?
回复
十豆三 2008-01-15
那不能,只读转成Dbf表或临时表后再显示。
回复
发动态
发帖子
VFP
创建于2007-09-28

2455

社区成员

VFP,是Microsoft公司推出的数据库开发软件,用它来开发数据库,既简单又方便。
申请成为版主
社区公告
暂无公告