如何将下列几个excel文件合并为一个文件？
E:\ftp\校长室\通讯录校长室.xls
E:\ftp\教导处\通讯录教导处.xls
E:\ftp\德育处\通讯录德育处.xls
这几个文件字段相同，均含有编号、姓名、联系电话、部门。

不同文件夹下的excel文件？合并成一个excel？哈哈^_^

[此贴子已经被作者于2020-5-31 17:05编辑过]

文件合并之前已经探讨过
现在问题主要是枚举E:\ftp文件夹下（包括所有子文件夹）的所有xls文件

把三个E表COPY到同一文件夹中会汇总的话，无非是加一个路径而已，所以应该也是容易解决的

也可以用cmd命令结果输出到文件，再解释文件内容获取XLS文件名
CREATE CURSOR tt (编号 I, 姓名 C(10), 联系电话 C(20), 部门 C(10))
cPath = "C:\TEMP\通讯录\"
RUN "cmd /c dir /s " + cPath + "*.xls > tmp.txt"
s = FILETOSTR("tmp.txt")
cFile = ""
FOR i=1 TO ALINES(ai, s, 5, 0h0D,0h0A)
    IF ALINES(aj,ai[i],5," ") > 0
        IF UPPER(LEFT(aj[1],LEN(cPath))) == cPath
            cFile = aj[1]
        ELSE
            IF !EMPTY(cFile) AND UPPER(JUSTEXT(aj[ALEN(aj)])) == "XLS"
                cFile = cFile + "\" + aj[ALEN(aj)]
                APPEND FROM (cFile) FOR 编号!=0 TYPE XLS
                cFile = ""
            ENDIF
        ENDIF
    ENDIF
ENDFOR
INDEX on 编号 TAG 编号
COPY TO 通讯录.xls TYPE xls
BROWSE

[此贴子已经被作者于2020-6-1 05:26编辑过]

@吹水佬 非常感谢指点！能根据我的要求将程序修改一下吗？期待中……

上面的代码的文件夹改为你的文件夹
试试将：
cPath = "C:\TEMP\通讯录\"
改为：
cPath = "E:\ftp\"

s=FILETOSTR(“TMP.txt”) 提示文件不存在。

用全路径稳阵
cPath = "E:\ftp\"
cTmpFile = cPath + "tmp.txt"
cOutFile = cPath + "通讯录.xls"
cmd = "RUN cmd /c dir /s " + cPath + "*.xls > " + cTmpFile
EXECSCRIPT(cmd)
s = FILETOSTR(cTmpFile)

这句也改改
IF UPPER(LEFT(aj[1],LEN(cPath))) == UPPER(cPath)