关于使用代码将excel另存为5.0格式！！
我想实现将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,'操作成功！')
