玩转EXCEL办公技巧汇总（复杂篇）篇2

陆续更新中,常用复杂操作。

一、目录：

8.VBA批量提取word表格到EXCEL中

8.VBA批量提取word表格到EXCEL中

这里有若干份同样表格，但是不同内容的word文档。需求是：将所有的word里面表格的内容全部汇总到一个excel表格当中，如下图：

image

没错，word里面同样也是可以用vba代码的。

思路也是很简单：遍历读取每个word文档，提取指定的表格内容到excel表中即可，源代码如下，大部分网上都有现成的，永恒君做了一些修改而言。

Sub 提取word表格()
    
    mypath = ThisWorkbook.Path & "\"
    myname = Dir(mypath & "*.docx")
    m = 1
        Do While myname <> ""
        Set mydoc = GetObject(mypath & myname)
        With mydoc
            m = m + 1
            With .Tables(1)
                Cells(m, 1) = m - 1          '序号
                Range("A1:F1") = Array("序号", "姓名", "性别", "身份证号", "住址", "联系方式")
                Cells(m, 2) = Replace(.cell(1, 2).Range.Text, "", "")
                Cells(m, 3) = Replace(.cell(2, 2).Range.Text, "", "")
                Cells(m, 4) = Replace(.cell(3, 2).Range.Text, "", "")
                Cells(m, 5) = Replace(.cell(4, 2).Range.Text, "", "")
                Cells(m, 6) = Replace(.cell(5, 2).Range.Text, "", "")
            End With
            .Close False
        End With
        myname = Dir()
        Loop
        Set mydoc = Nothing
        MsgBox "提取完成"

End Sub

看一下效果：

image