如何将多个WORD里的表格合并到一个EXCEL表里
发布网友
发布时间：2022-04-29 20:12
共3个回答
热心网友
时间：2022-06-22 07:42
方法如下：
1、打开word；
2、点击表格左上方的“表格属性”按钮；
3、在“表格属性”窗口中，将两个表格的文字环绕方式都设置成“无”
4、这个时候再删除独立表格之间的空行，就可以轻松的将两个表格进行合并，如下图：
热心网友
时间：2022-06-22 07:43
Sub 提取文件()
On Error Resume Next '屏蔽错误，遇到错误继续运行
Dim wordapp As Object, mytab As Object
Dim mydoc
Dim dirpath$, docname$, myfile$
'创建word应用程序对象
Set wordapp = CreateObject("word.application")
'定义word文件存放路径
dirpath = ThisWorkbook.Path & "/word/"
'获取路径下word文档合集
myfile = Dir(dirpath & "*.docx")
i = 2
'循环读取文件夹下文档
Range("a2:h10000").ClearContents
Do While myfile <> ""
'打开文件
Set mydoc = wordapp.Documents.Open(dirpath & myfile)
'获取表格对象
Set mytab = mydoc.tables(1)
'获取word单元格内容，存储到excel
Cells(i, 1) = tt(mytab.Cell(1, 2).Range.Text)
Cells(i, 2) = tt(mytab.Cell(1, 4).Range.Text)
Cells(i, 3) = tt(mytab.Cell(2, 2).Range.Text)
Cells(i, 4) = tt(mytab.Cell(3, 2).Range.Text)
Cells(i, 5) = tt(mytab.Cell(4, 2).Range.Text)
Cells(i, 6) = tt(mytab.Cell(4, 4).Range.Text)
Cells(i, 7) = tt(mytab.Cell(5, 2).Range.Text)
Cells(i, 8) = tt(mytab.Cell(5, 4).Range.Text)
myfile = Dir
i = i + 1
Loop
'关闭文档
mydoc.Close False
'退出word应用程序
wordapp.Quit
End Sub
'自定义函数，用于截断获取内容的最后一个特殊字符
Function tt(rtext)
tt = Left(rtext, Len(rtext) - 1)
End Function
热心网友
时间：2022-06-22 07:43
单个WORD是表格的话，就可以录制宏来完成追问附件2就是WORD的表格形式，然后转化为后面图片的EXCEL表格格式，WORD里的表格前面要加上2列员工信息和身份证号。
