嗯嗯，好的，我已经改到5.0版本都不行，我还试过改成csv，虽然可以导入，但是我当我设置字段名所在行时，就会显示错误#10在createtestcursor (O): 语法错误，然后是找不到别名。如果略过就可以。我再试试吧。

你好，我试下了你的建议，还是一样的问题。我有个疑惑，为什么不用表单向导就可以呢，但是有的数据会出现很多位小数。其他的我再试试吧！

vfp9.0导入支持Excel_2007,首先确保正确完整安装Excel，再次确认表中没有空行和空列。

字段不要用中文，报错率大

用com吧

Excel 保存类型中没有找到 *dbf 文件类型，该怎么办?

可行方案

  以下代码我也是从本论坛得到，导入EXCEL文件用。office为2007版本
----------------------------------------------------
opendbf=getfile('xlsx')
IF EMPTY(opendbf)
else
lcFileName=opendbf
rq=ALLTRIM(LEFT(RIGHT(lcFileName,13),6))
oExcel=Createobject('Excel.application')
oExcel.Workbooks.Open('&lcFileName') &&打开文件
oExcel.ActiveSheet.UsedRange.Select &&选中已用区域的数据
oExcel.Selection.NumberFormatLocal = "@" &&把被选定的单元格设为文本格式
oExcel.Columns.AutoFit  &&让所有的列宽都自动调整
oExcel.DisplayAlerts=.F.
oExcel.ActiveWorkbook.SaveAs('C:\11.xls',39) && 43为97/2003 xlExcel9795（39为5.0/95 xlExcel5 & xlExcel7)
oExcel.Workbooks.Close &&关闭表
oExcel.Quit &&退出EXCEL
Release oExcel &&释放变量
*Messagebox('另存为5.0格式完成！',64,'信息提示')
IMPORT from c:\11  xl5
----------------------------------------------------

你把EXCEL工作簿中的工作表名字改一下就行，如果方便的话，将文件发上来。

你这样有点"绕远路" ,既然oExcel对象已经访问到了文件,为何还要另存为低版本,再用import呢 .
可以直接用数组把数据抓取出来的.

ff = "e:\CWBB\ttyian\ttyian.xlsx"  && 源文件,xls/xlsx均可
oExcel=Createobject('Excel.Application')
owb = oExcel.Workbooks.Open(ff)
osht = owb.Worksheets("Sheet1")  && 指定Sheet

r2 = osht.UsedRange.rows.count  && 最末行
c2 = osht.UsedRange.columns.count  && 最右列

arr11 = osht.range(osht.cells(2,1) ,osht.cells(r2,c2)).value  && 第一行是表头,故从第2行开始取

select importDBF 
APPEND FROM ARRAY arr11
owb.Close()
oExcel.Quit()

[此贴子已经被作者于2023-5-11 15:42编辑过]