标题:如何合并多个word表格到dbf表中
只看楼主
王咸美
Rank: 1
等 级:新手上路
帖 子:569
专家分:0
注 册:2018-1-4
结帖率:96.99%
已结贴  问题点数:20 回复次数:2 
如何合并多个word表格到dbf表中
现有一个word文档,内有结构相同的多个表格,如何导入到dbf表中?望各位高手赐教。万分感谢!!!
多表格文档(2).7z (11.13 KB)


[此贴子已经被作者于2020-3-29 21:38编辑过]

搜索更多相关主题的帖子: 表中 表格 dbf word 多个 
2020-03-29 21:28
王咸美
Rank: 1
等 级:新手上路
帖 子:569
专家分:0
注 册:2018-1-4
得分:0 


[此贴子已经被作者于2020-3-29 21:34编辑过]

2020-03-29 21:30
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:432
帖 子:10064
专家分:41463
注 册:2014-5-20
得分:20 
之前那个贴是读一个表,改一下读多几个表就是了

CREATE CURSOR tt (考生号 C(16), 姓名 C(10), 总分 I, 语文 I, 数学 I, 外语 I, 综合 I)
word = CREATEOBJECT("Word.Application")
doc = word.Documents.Open("C:\TEMP\多表格文档(2)\多表格文档(2).docx")
FOR EACH tab IN doc.tables
    FOR row=2 TO tab.rows.count
        INSERT INTO tt VALUES (;
           RTRIM(tab.Cell(row,1).Range.Text, 0h0D,0h07,0h20),;
           RTRIM(tab.Cell(row,2).Range.Text, 0h0D,0h07,0h20),;
           VAL(tab.Cell(row,3).Range.Text),;
           VAL(tab.Cell(row,4).Range.Text),;
           VAL(tab.Cell(row,5).Range.Text),;
           VAL(tab.Cell(row,6).Range.Text),;
           VAL(tab.Cell(row,7).Range.Text))
     ENDFOR
ENDFOR
doc.Close
word.Quit
SELECT * FROM tt
2020-03-29 22:05



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-500713-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.582516 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved