同一文件夹下有多个EXCEL文件，格式相同，字段相同，如何将它们读入到DBF汇总表中？请高手帮忙，万分感谢！！！

cDefPath = ADDBS(JUSTPATH(SYS(16)))
SET DEFAULT TO (cDefPath)
CREATE CURSOR tt (编号 c(10),姓名 c(10),出生年月 c(10),语文 I, 数学 I,英语 I)
oExcel = CREATEOBJECT('Excel.Application')
oExcel.DisplayAlerts = 0
FOR i=1 TO ADIR(aXLS,"*.xls")
    sh = oExcel.WorkBooks.Open(cDefPath + aXLS[i,1]).ActiveSheet
    sh.Rows("1:2").Delete
    row1 = oExcel.CountA(sh.Columns(1))
    row2 = oExcel.CountA(sh.Columns(7))
    arr1 = sh.Cells(1,1).Resize(row1,6).Value  
    arr2 = sh.Cells(1,7).Resize(row2,6).Value  
    INSERT INTO tt FROM ARRAY arr1
    INSERT INTO tt FROM ARRAY arr2
    oExcel.WorkBooks.Close
ENDFOR
oExcel.Quit 
SELECT * FROM tt

先在EXCEL中拼好，然后再另存为DBF文件
这是一种朴素的做法
我一直是这样弄的。

@吹水佬 非常感谢！如果分数为小数：87.5、77.5、90.5 代码应如何写

CREATE CURSOR tt (编号 c(10),姓名 c(10),出生年月 c(10),语文 n(6,2), 数学 n(6,2),英语 n(6,2))
oExcel = CREATEOBJECT('Excel.Application')

吹版的VFP-VBA 太牛了，点赞！

非常感谢各位的热心指点！如果将 出生年月 字段设置为日期型，代码如何写呢？

查帮助CREATE  TABLE

出生日期 D

有直路行就不绕路走