VBA:将WORD表格导出到excel

Sub ExportTableToExcel()
    Dim wdDoc As Document
    Dim xlApp As Object
    Dim xlWorkbook As Object
    Dim xlWorksheet As Object
    Dim tbl As Table
    Dim row As Row
    Dim col As Column
    Dim i As Integer
    Dim j As Integer
    
    ' 获取当前打开的Word文档
    Set wdDoc = ActiveDocument
    
    ' 创建Excel应用程序对象
    Set xlApp = CreateObject("Excel.Application")
    
    ' 创建新的Excel工作簿
    Set xlWorkbook = xlApp.Workbooks.Add
    
    ' 获取第一个工作表
    Set xlWorksheet = xlWorkbook.Worksheets(1)
    
    ' 遍历Word文档中的所有表格
    For Each tbl In wdDoc.Tables
        ' 将表格数据逐行逐列导出到Excel工作表中
        For i = 1 To tbl.Rows.Count
            For j = 1 To tbl.Columns.Count
                xlWorksheet.Cells(i, j).Value = tbl.Cell(i, j).Range.Text
            Next j
        Next i
    Next tbl
    
    ' 保存Excel文件
    xlWorkbook.SaveAs "C:\path\to\output.xlsx"
    
    ' 关闭Excel文件和应用程序对象
    xlWorkbook.Close
    xlApp.Quit
    
    ' 释放对象变量
    Set xlWorksheet = Nothing
    Set xlWorkbook = Nothing
    Set xlApp = Nothing
    Set wdDoc = Nothing
    
    MsgBox "表格已成功导出到Excel文件。"
End Sub