单个XLS文件内容加到DBF，可用以下代码：
CREATE DBF CURRENT_Class (座号 C(10),姓名 C(8),成绩 F(4,2))
OEXCEL = CREATEOBJECT("EXCEL.APPLICATION")
WITH OEXCEL
    .WORKBOOKS.OPEN(M_FILE)
    .DISPLAYALERTS = .F.
    .ACTIVEWORKBOOK.SAVEAS(SYS(5) + SYS(2003) + "\0326.TXT", -4158)  && 保存为以制表符分隔的文本文件
    .ACTIVEWORKBOOK.CLOSE
    .DISPLAYALERTS = .T.
    .QUIT
ENDWITH
RELEASE OEXCEL
SELECT CURRENT_Class
APPEND FROM 0326.TXT DELIMITED WITH TAB

但是有多个XLS要加到同一表中，这样的操作就麻烦些，还易漏或重复加入，如果将同一目录的的多个XLS加到同一表，代码上如何实现 ？

将处理一个文件的过程写成一个函数fun(文件名)
遍历文件夹获取文件名file_name[n]，调用fun(file_name[n])

将所需XLS文件放入一个指定文件夹下（如：d:\aa\bb\）
adir(afile, "d:\aa\bb\*.xls")
for i = 1 alen(afile,1)
* 自己写代码
* 将1楼代码适当修改，放到此处
endfor