同一文件夹下有多个WORD文档，且结构相同，字段相同。如何将它们的信息合并到DBF表中，请高手赐教，万分感谢！！！

主要是学习编程技术,因为在工作中会遇到这种情况，不是找麻烦，多此一举。这次求救的表格有点特殊：一是6个字段内容分12列显示(或18列)，二是数据多少不一样，三是显示方式不一样，有的表格12列都有数据，有的只有左边6列有数据，有的只有右边6列有数据。还请高手帮忙，万分感谢！！！

下列代码有点问题，请高手指教，万分感谢！！！
SET  talk OFF
SET SAFETY  OFF
CLOSE DATABASES
CLEAR ALL
cDefpath=ADDBS(JUSTPATH(SYS(16)))
SET DEFAULT TO (cDefpath)
CREATE TABLE tt (编号 C(10),姓名 C(10),出生年月 C(10),语文 I,数学 I,英语 I)
oWord=CREATEOBJECT("word.application")
FOR i=1 TO ADIR(c_File,"*.doc")
    oDoc=oWord.Documents.OPEN(cDefpath+"\"+c_File(i,1))
    oTab=oDoc.tables(1)
    FOR j=1 TO 2
        k=3
        DO WHILE k<33
            IF ISNULL(oTab.Cell(k,(j-1)*6+1).RANGE.TEXT)
                EXIT
            ENDIF
            INSERT INTO tt VALUES (;
            ALLTRIM(oTab.Cell(k,(j-1)*6+1).RANGE.TEXT,0h0d,0h07,0h20),;
                ALLTRIM(oTab.Cell(k,(j-1)*6+2).RANGE.TEXT,0h0d,0h07,0h20),;
                ALLTRIM(oTab.Cell(k,(j-1)*6+3).RANGE.TEXT,0h0d,0h07,0h20),;
                VAL(oTab.Cell(k,(j-1)*6+4).RANGE.TEXT),;
                VAL(oTab.Cell(k,(j-1)*6+5).RANGE.TEXT),;
                VAL(oTab.Cell(k,(j-1)*6+6).RANGE.TEXT))
                k=k+1
        enddo
    ENDFOR
    oDoc.CLOSE
    oWord.QUIT   
ENDFOR
SELECT * FROM tt

[此贴子已经被作者于2021-12-20 12:53编辑过]

非常感谢！

[此贴子已经被作者于2021-12-20 15:39编辑过]

＠厨师王德榜，如果是多个文件，如何用Adir()循环一遍，还请不吝赐教。谢谢！（因为本人对 vfp一知半解）

如何判定word表格某个单元格为空值？如五（1）班考试成绩统计表中第7列第2行为空，用代码如何写？请高手指点，万分感谢！！！