xls 文件的格式为：考场号，座位号，考生号，身份证号，准考证号，姓名
对应转换成DBF的格式为：
kch（字符型，1）
zch(字符型，5）
ksh（字符型，14）
sfzh(字符型，18）
zkzh(字符型，14）
xm（字符型，8）

请大家指点一下，谢谢啦

上传XLS文件看看

已上传，谢谢。期待回复！

[此贴子已经被作者于2018-2-23 12:49编辑过]

DBF表名一般用字母开头的。

clear
close databases
set safety off
eole = CREATEOBJECT("Excel.Application")
eole.Workbooks.Open("D:\群问题\123.xls")
nrows=eole.activesheet.usedrange.rows.count && 有效行
ncols=eole.activesheet.usedrange.columns.count && 有效列
local asj[nrows-1,ncols]
for i=2 to nrows
    for ii=1 to ncols
        asj[i-1,ii]=eole.SHEETS(1).CELLS(i,ii).text
    endfor
endfor
eole.quit
RELEASE eole
use s123 in 0
zap
append from array asj
browse

方法二：先另存为txt文件再追加到DBF中
clear
close databases
set safety off
eole = CREATEOBJECT("Excel.Application")
eole.Workbooks.Open("D:\群问题\123.xls")
eole.DisplayAlerts = .f.
eole.ActiveWorkbook.SaveAs("D:\群问题\123.txt",-4158)
eole.DisplayAlerts = .t.  
eole.ActiveWorkbook.Close(.f.)
eole.quit
RELEASE eole
use s123 in 0
zap
append from 123.txt DELIMITED with tab
delete record 1
pack
browse
erase 123.txt

可以用了，解决了大问题，非常感谢。

用office 2003以处版本打开电子表格，另存为，选自己需要的DBF格式就行，表字段类型长度自行修改
如果表有数据，电子表格的第一行数据类型必须设置成与DBF字段类型一致

[此贴子已经被作者于2018-3-3 12:27编辑过]