我想实现将excel中数据导入到DBF中（手工先将表另存为5.0格式），但导入时会出现将第一行的字段名认为是一行数据，出现“员工编号”重复的提示，将字段名全删后手工可实现功能。于是自己照着写了一段代码如下，想自动删除第一行，并将excel自动转成5.0格式，但转换完成后导入时出现“不是一个表”
，很郁闷，望高人指点！！！

aa=getfile('xls')
if isblank(aa)
return
endif

eole=createobject("excel.application")
eole.visible=.t.
bookexcel=eole.workbooks.open(aa)

eole.ActiveSheet.rows(1).select
eole.activesheet.rows(1).delete

eole.Range("A1:T5000").Select

eole.ActiveWorkbook.SaveAs('导入数据.xls',39) &&39是否代表5.0格式？？
eole.ActiveWorkbook.SaveAs(aa,39) &&另存为DBF
eole.ActiveWorkbook.saved=.T. &&不保存当前EXCEL表
eole.Workbooks.Close &&关闭表
eole.Quit &&退出EXCEL
Release eole &&释放变量

APPEND FROM getfile('XLS', '','', 0, '选择一个EXCEL文件')   TYPE XL5 执行到此行时出现“不是一个表”

messagebox('数据导入完毕',48,'操作成功！')

是否最后一条命令改为
IMPORT FROM getfile('XLS', '','', 0, '选择一个EXCEL文件') TYPE XL8

找出以前做的一个程序，供楼主参考：
my_file=GETFILE("xls")
IMPORT FROM "&my_file" type XL5
my_dbf=JUSTSTEM(my_file)
SELECT (my_dbf)
FOR iii=1 to FCOUNT(my_dbf)
    mzd=SUBSTR("ABCDEFGHIJKLMNOPQRSTUVWSYZ",iii,1)
    mfilename=FIELD(mzd)
    m_ren="ALTER TABLE "+ "&my_dbf rename column "+ mzd+" to "+ &mfilename
    &m_ren
NEXT
GO 1
DELETE
PACK
BROWSE

已成功谢谢二位！