现有3个Excel文件：E:\ftp\通讯录校长室.xls，E:\ftp\通讯录教导处.xls，E:\ftp\通讯录德育处.xls。它们是由总表按不同部门（校长室、教导处、德育处）拆分下来的，经多人修改完善后如何快速会并为一个总表，用vfp代码如何做到呢？请高手赐教，万分感谢！！！

APPEND 到 DBF 再 COPY 到 XLS

怎样用vfp代码实现把多个excel表格合并为一个总表。

CREATE CURSOR tt (编号 I, 姓名 C(10), 联系电话 C(20), 部门 C(10))
APPEND FROM 通讯录德育处.xls FOR 编号!=0 TYPE XLS
APPEND FROM 通讯录教导处.xls FOR 编号!=0 TYPE XLS
APPEND FROM 通讯录校长室.xls FOR 编号!=0 TYPE XLS
INDEX on 编号 TAG 编号
COPY TO 通讯录.xls TYPE xls
BROWSE

[此贴子已经被作者于2020-5-30 07:39编辑过]

@吹水佬 谢谢！假如有很多个分表，用APPEND FROM...是不是很麻烦?有没有更好的方法？

CREATE CURSOR tt (编号 I, 姓名 C(10), 联系电话 C(20), 部门 C(10))
LOCAL iCount,i,xlsName
iCount=ADIR(xlsList,"xls")
FOR i=1 to iCount
    xlsName=xlsList(i,1)
    APPEND FROM &xlsName FOR 编号!=0 TYPE XLS
ENDFOR
INDEX on 编号 TAG 编号
COPY TO 通讯录.xls TYPE xls
BROWSE

试试，未测试。

假如有多个excel文件在不同的文件夹下：E:\ftp\校长室\通讯录校长室.xls,E:\ftp\教导处\通讯录教导处.xls,E:\ftp\德育处\通讯录徳育处.xls…… 用vfp代码合并成一个excel文件，且在E:\ftp文件夹下，应如何操作，请高手指点，万分感谢！！！（文件夹 校长室、教导处、德育处……是以表文件tab1字段 部门 自动创建的）

[此贴子已经被作者于2020-5-30 12:22编辑过]

CREATE CURSOR tt (编号 I, 姓名 C(10), 联系电话 C(20), 部门 C(10))
LOCAL iCount,i,xlsName,cDir
cDir='e:\ftp\'
select 部门 from tab1 into cursor curdepart distinct
scan
    cd cDir+allt(curDepart.部门)
    iCount=ADIR(xlsList,"xls")
    FOR i=1 to iCount
        xlsName=xlsList(i,1)
        APPEND FROM &xlsName FOR 编号!=0 TYPE XLS
    ENDFOR
endscan
INDEX on 编号 TAG 编号
COPY TO 通讯录.xls TYPE xls
BROWSE

多谢！如果没有表文件tab1.dbf,能否把E:\ftp\下不同文件夹里的excel文件合并为一个总的excel文件？望赐教！十分期盼！万分感谢！！！