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

[qiang119]

读取excel的内容,只读取有内容的行数,并将数据用grid显示出来

[十豆三]

那不能，只读转成Dbf表或临时表后再显示。

[qiang119]

转成临时表怎么处理?
例如我的excel有10行数据,我只需要5-10行的,怎么处理?

[十豆三]

*************例子******************
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]

不要将excel另存为DBF,而直接在grid显示,可以吗?

[qiang119]

请高手赐教

[CCJJGLXT]

十豆三先生上面那段代码中的:oExcel.ActiveWorkbook.SaveAs('D:\TEST.DBF',8) &&另存为DBF
却时能用,但在EXCLE文件中的数值字段的小数部分,在另存为:TEST.DBF过程中,没有了,文本字段没有问题.
请看一下是什么原因.

谢谢!

[sql5186]

给你的那个EXCEL配置一个DSN然后在程序中调用它产生一个TEMP表就能用了