急啊,VFP中导入数据的问题
我现在要做的是将txt文件和Excel文件中的数据导入到临时表中,但是遇到了几个问题:
1、Excel文件的版本,有2.0、3.0、4.0、5.0等版本,我是想怎么将这个2.0版本的Excel文件另存为5.0版本的Excel文件,然后在调用Import From (m.cFile) Type xl5直接导入数据了。但是就是不知道怎么另存为文件。
2、请问将txt文件导入到临时表中是直接写这句代码 (Append From m.cFile Type SDF) 就可以了吗?
急用,求帮忙
[解决办法]
使用import命令,如:Import From 表1.Xls Type Xl8将表1.xls导入为表1.Dbf---------------------------用VFP导入点击“文件”->导入->类型选择:“Microsoft Excel 5.0 和 97 (XLS)”来源于选择:你要导入的Excel文件工作表:默认为Sheet1,如是你要把Excel文件中Sheet2中内容导过来,就选择“Sheet2”->最后点击导入即可。*******************************************************************如果导入时出现提示:致命错误:异常代码=C0000005*可以把Microsoft Excel 在保存时存为Microsoft Excel 5.0/95 格式或4.0格式。这样就能导入了。******************************************************************以上操作相当于如下命令操作:Import From 你的表.Xls Type Xl8 Sheet "Sheet2"有时需要把Excel表另存为“Microsoft Excel 5.0 和 97 (XLS)” 格式后,再用以上命令进行导入。如果VFP表已存在,并且EXCEL表格式与VFP表格式一样,也可以用以下:Use VFP表名Append From Excel表.Xls Type Xl5----------------------------建议---------------------------导出Copy To a.Xls Type Xl5导入Import From a.Xls Type Xl8或Import From a.Xls Type Xl5或如果VFP表已存在,并且EXCEL表格式与VFP表格式一样,也可以用以下:Use 表.DbfAppend From Getfile('XLS', '','', 0, '选择一个EXCEL文件') Type Xl5 &&或XL8如果VFP表不存在,导入时直接创建(名字自定义),且导入后存放的位置不定:Close Databases AlllcExcelFileName=Getfile('Xls', '','', 0, '选择一个Excel表,另存为Dbf表,Excel表的首行内容做为Dbf表的字段名')If Empty(lcExcelFileName) ReturnEndifImport From (lcExcelFileName) Type Xl5lcTmpDbfName=Juststem(Dbf())For m.lnI=1 To Fcount("&lcTmpDbfName") lcStr="Alter Table "+ "&lcTmpDbfName Rename Column "+Field(m.lnI)+" To "+Evaluate(Field(m.lnI)) &lcStr.EndforlcPutDbfName=Putfile('',lcTmpDbfName,'Dbf')If Empty(lcPutDbfName) ReturnEndifCopy To (lcPutDbfName) For Recno()#1Close Databases All