如何合并同一文件夹下多个WORD文档内容到DBF表中 - 编程论坛

#2

吹水佬2021-12-20 01:43

之前是用excel，现在又用word了
取word的表格对象就可以
论坛搜搜看，应该有这方面的参考贴

#3

王咸美2021-12-20 05:13

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

#4

mywisdom882021-12-20 08:34

判断第1列或者第7列，如果是空，就不操作

#5

王咸美2021-12-20 09:02

下列代码有点问题，请高手指教，万分感谢！！！
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编辑过]

#6

厨师王德榜2021-12-20 13:31

这里给你示范取一个Word的表格,取多个的话,你自己用adir()循环一下就好.

程序代码：

LOCAL oDoc as Object , oDocapp As Object ,tab1 as Object
LOCAL  rr As Integer, cc As Integer, ir As Integer, ic As Integer, iarr As Integer
LOCAL tmpStr as String
CLOSE TABLES ALL

create cursor cj (编号 c(10) null ,姓名 c(20) null ,出生年月 c(20) null ,  ;
    语文 n(6,2)  ,数学 n(6,2)  ,英语 n(6,2)   )

oDocapp = CREATEOBJECT("Word.application")
oDoc = oDocapp.Documents.Open('c:\XIDE\Prg\二(1)班成绩.doc')
tab1 = oDoc.Tables(1)
rr = (tab1.Rows.Count)
cc = (tab1.Columns.Count)
DIMENSION   arr1( rr, cc)

For ir = 1 To rr
    For ic = 1 To cc
        tmpStr = tab1.Cell(ir, ic).Range.Text
        tmpStr = STRTRAN(STRTRAN(tmpStr ,CHR(13) ,CHR(32))  ,CHR(7) ,CHR(32))
        arr1(ir, ic) = tmpStr
    Next ic

Next ir

oDoc.close()
oDocapp.quit()

create cursor cj0 (编号 c(10) null ,姓名 c(20) null ,出生年月 c(20) null ,  ;
    语文 n(6,2)  ,数学 n(6,2)  ,英语 n(6,2)  ,;
    编号1 c(10) null ,姓名1 c(20) null ,出生年月1 c(20) null ,;
    语文1 n(6,2)  ,数学1 n(6,2)  ,英语1 n(6,2) )

SELECT cj0
APPEND FROM ARRAY arr1
DIMENSION arr1(1,1)

INSERT INTO cj( 编号  ,姓名   ,出生年月   ,  语文  ,数学   ,英语 ) ;
SELECT 编号  ,姓名   ,出生年月   ,  ;
    语文  ,数学   ,英语 FROM cj0  WHERE (语文 + 数学 + 英语 > 0 ) ;
UNION ALL  ;
SELECT 编号1 as 编号  ,姓名1 as 姓名   ,出生年月1 as 出生年月   ,  ;
    语文1 as 语文  ,数学1 as 数学   ,英语1 as 英语 FROM cj0 WHERE (语文1 + 数学1 + 英语1 > 0 )

USE IN cj0

#7

王咸美2021-12-20 15:01

非常感谢！

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

#8

王咸美2021-12-20 17:01

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

#9

王咸美2021-12-21 08:19

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