操作环境：vfp6.0 excel2007
有多个excel表，表名按“部门+考勤表+年月”格式命名，每个表中有三个sheet1(考勤表）、sheet2(考勤汇总表）、sheet3(调休汇总表），表头及列数均固定，现求：
1、将所有表中的考勤表（sheet1)黄颜色部分数据分别导入考勤表.dbf中
2、将所有表中的考勤汇总表（sheet2)黄颜色部分数据分别导入考勤汇总表.dbf中
3、将所有表中的调休汇总表（sheet3)黄颜色部分数据分别导入调休表.dbf中
注：每个excel中sheet1和sheet3人数多少不一，有增减，人数不确定(sheet2与sheet2行数是一致的）

谢谢大佬帮助！

有多个excel表，表名按“部门+考勤表+年月”格式命名：有二十几个这样的表格

你好，谢谢！
我是先在EXCEL中拼好，然后再另存为DBF文件，一直是这样弄的。
在拼的过程中要粘贴出错的，想有没有直接转的，假若不能的话先将每一个表格转为三个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的帖子中看见的）我想对原表excel不作变动，怎样改能为我所用，求救