导入时能选 择表的第一行为字段名(1)
如果库中有表能够选择对应表头导入(2)
------解决方案--------------------
- SQL code
使用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 表.Dbf Append From Getfile('XLS', '','', 0, '选择一个EXCEL文件') Type Xl5 &&或XL8 如果VFP表不存在,导入时直接创建(名字自定义),且导入后存放的位置不定: Close Databases All lcExcelFileName=Getfile('Xls', '','', 0, '选择一个Excel表,另存为Dbf表,Excel表的首行内容做为Dbf表的字段名') If Empty(lcExcelFileName) Return Endif Import From (lcExcelFileName) Type Xl5 lcTmpDbfName=Juststem(Dbf()) For m.lnI=1 To Fcount("&lcTmpDbfName") lcStr="Alter Table "+ "&lcTmpDbfName Rename Column "+Field(m.lnI)+" To "+Evaluate(Field(m.lnI)) &lcStr. Endfor lcPutDbfName=Putfile('',lcTmpDbfName,'Dbf') If Empty(lcPutDbfName) Return Endif Copy To (lcPutDbfName) For Recno()#1 Close Databases All