我再研究下

共生成　697　个工作簿
只要理解代码的思路，对原代码稍加调整，就能达到你的要求了

[此贴子已经被作者于2018-9-16 16:02编辑过]

SCAN
    SELECT Test
    COPY TO ("标记" + PADL(T_dist.标记, 4, "0")) TYPE XL5 FIELDS &cZdm FOR 标记 = T_dist.标记
ENDSCAN
由于没有数据，我没法测试。版主，不知道程序这个地方每一次拷贝生成一个EXCEL文件后是如何回到原来（SCAN...ENDSCAN）那个工作区去扫描记录指针的？

萌新还在研究

CLOSE DATABASES ALL
SET SAFETY OFF
SET DEFAULT TO C:\Users\xqb\Desktop\世行程序
SELECT *,0000 标记 FROM clf INTO TABLE Test

    ALTER TABLE Test add 村1 c(10)
cDkh = ""
ncun = ""
SCAN
    IF NOT EMPTY(地块号)
        REPLACE 标记 WITH VAL(地块号)
        replace 村1 WITH 村
        cDkh = 地块号
        ncun = 村
    ELSE
        REPLACE 标记 WITH VAL(cDkh)
        REPLACE 村1 WITH ncun
    ENDIF
ENDSCAN
SELECT clf
cZdm = ""
FOR nCnt = 1 TO AFIELDS(Azdm)
    cZdm = cZdm + "," + Azdm[nCnt, 1]
ENDFOR
cZdm = SUBSTR(cZdm, 2)
SELECT DISTINCT 标记,村 FROM Test INTO CURSOR T_dist
SCAN
    SELECT Test
    COPY TO ("标段" + T_dist.村 + PADL(T_dist.标记, 4, "0")) TYPE XL5 FIELDS &cZdm FOR 标记 = T_dist.标记 AND 村1 = T_dist.村
ENDSCAN
USE IN Test
ERASE Test.Dbf
版主我这样运行完除了697个表外，还会出现多余的空表，这是怎么回事啊

SELECT DISTINCT 标记 FROM Test INTO CURSOR T_dist
SCAN
    SELECT Test
    COPY TO ("标记" + PADL(T_dist.标记, 4, "0")) TYPE XL5 FIELDS &cZdm FOR 标记 = T_dist.标记 && 本行代码执行结束后，VFP 默认回到 T_dist 表所在的工作区，也就是重新回到 SCAN 的位置，接着移动记录指针扫描下一条记录，
ENDSCAN

[此贴子已经被作者于2018-9-17 12:32编辑过]

SELECT DISTINCT 标记,村 FROM Test INTO CURSOR T_dist   && 字段 村 改为 村1 有空记录是不是与此处有关系
在这行代码下加一行代码
BROWSE
看看是否有不符合条件的记录

[此贴子已经被作者于2018-9-17 12:20编辑过]