批量将word文档中表格转为excel教程

可以使用Microsoft Word的宏功能（VBA）来自动化任务。

1.打开word，alt+F11，得到如下界面：

2.点击->运行->运行宏，得到如下界面：

 3.宏名称随便指定，->创建，进入如下界面：

 4.只需将下面代码的第十五行，更改为自己word文档的文件夹即可，路径后要有一个斜杠，切记：

Sub WordtoExcel()
    Dim dirpath As String
    Dim filename As String
    Dim WordApp As Object
    Dim ExcelApp As Object
    Dim WordDoc As Object
    Dim ExcelWorkbook As Object
    Dim ExcelSheet As Object
    
    ' 设置Word和Excel应用程序对象
    Set WordApp = CreateObject("Word.Application")
    Set ExcelApp = CreateObject("Excel.Application")
    
    ' 设置文件夹路径，确保路径末尾有反斜杠（\）
    dirpath = "C:\Users\admin\Desktop\word\" ' 更改为您的Word文件夹路径
    
    ' 获取文件夹中的第一个Word文档
    filename = Dir(dirpath & "*.docx")
    
    ' 循环处理每个Word文档
    Do While filename <> ""
        ' 打开Word文档
        Set WordDoc = WordApp.Documents.Open(dirpath & filename)
        
        ' 创建新的Excel工作簿
        Set ExcelWorkbook = ExcelApp.Workbooks.Add
        Set ExcelSheet = ExcelWorkbook.Sheets(1) ' 使用第一个工作表
        
        ' 将Word表格复制到Excel工作表
        WordDoc.Tables(1).Range.Copy
        ExcelSheet.Cells(1, 1).Select
        ExcelSheet.Paste
        
        ' 关闭Word文档
        WordDoc.Close
        Set WordDoc = Nothing
        
        ' 保存Excel工作簿为单独的文件
        ExcelWorkbook.SaveAs dirpath  & Replace(filename, ".docx", ".xlsx") ' 更改保存路径和文件名
        
        ' 关闭Excel工作簿和应用程序
        ExcelWorkbook.Close
        Set ExcelWorkbook = Nothing
        
        ' 继续下一个文件
        filename = Dir
    Loop
    
    ' 关闭Word和Excel应用程序
    WordApp.Quit
    
    ' 释放对象引用
    Set WordApp = Nothing
    
    ' 显示Excel应用程序
    ExcelApp.Visible = True
    
    MsgBox "表格已复制到独立的Excel文件！", vbInformation
End Sub

5.将改好后的内容复制到步骤3中的文本框中，得到如下界面：

 6.点击->运行->运行子过程/用户窗体，即可批量完成指定文件下所有word文档转为excel的操作。