2455
社区成员
- 主页
...全文
请发表友善的回复…
发表回复
sql5186 2008-02-02
给你的那个EXCEL配置一个DSN然后在程序中调用它产生一个TEMP表就能用了
CCJJGLXT 2008-01-30
十豆三先生上面那段代码中的:oExcel.ActiveWorkbook.SaveAs('D:\TEST.DBF',8) &&另存为DBF
却时能用,但在EXCLE文件中的数值字段的小数部分,在另存为:TEST.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
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行的,怎么处理?
例如我的excel有10行数据,我只需要5-10行的,怎么处理?
十豆三 2008-01-15
那不能，只读转成Dbf表或临时表后再显示。