word文档批量汇总到Excel代码修改

wkfcoffee · 发表于 2022-4-26 09:46

一个培训班报名名单汇总，有几百个word文档。各单位上报人数不等，一个个复制能把人逼疯。用了esDoc2Xls和word精灵，都只能提取第一个人的信息。从网上找了一个范例，VBA命令真心不懂修改，拜请高手出马，帮修改一个代码，达到我手动复制的效果，先谢谢了。

word文档批量汇总到Excel.rar (60.75 KB, 下载次数: 46)

zpy2 · 发表于 2022-4-26 10:30

https://club.excelhome.net/forum.php?mod=viewthread&tid=1624920&mobile&_d

prcstone · 发表于 2022-5-4 11:35

本帖最后由 prcstone 于 2022-5-4 11:37 编辑

1、最简单的是复制粘贴了
2、复杂一点，把文档保存成纯文本文件，再在EXCEL中按特定分隔符导入
3、再复杂，用VBA捣腾

sdytsxd991122 · 发表于 2022-5-22 20:00

qiupan_123 · 发表于 2022-5-22 21:05

很好的资料感谢

wkfcoffee · 发表于 2023-8-29 16:18

自己找了个法子，把代码放到word里，点击运行，再删除空行即可。感谢孙兴华！
Sub 合并多个文件中的表格()
Set 选择器 = Application.FileDialog(msoFileDialogFilePicker)
选择器.Show
For Each 文件 In 选择器.SelectedItems
Set 文档 = Documents.Open(文件)
i = i + 1
If i > 1 Then 文档.Tables(1).Rows(1).Delete
文档.Tables(1).Range.Copy
文档.Close wdDoNotSaveChanges
Selection.Paste
Next
End Sub

Sub 删除空行()
Set 文档 = Word.Application.ActiveDocument
For Each 表 In 文档.Tables
行数 = 表.Rows.Count
列数 = 表.Columns.Count
For i = 行数 To 1 Step -1
      n = 0
      For j = 列数 To 1 Step -1
         Set 单元格 = 表.Cell(i, j)
         '空白单元格含有两个字符Chr(13) & Chr(7)
         If 单元格.Range.Text = Chr(13) & Chr(7) Then
            n = n + 1
         End If
      Next
      If n = 列数 Then 表.Rows(i).Delete
Next
Next
End Sub

		自动登录	找回密码
密码			免费注册

[求助] word文档批量汇总到Excel代码修改

评分