VBA:将WORD表格导出到excel

VBA是Visual Basic for Applications的缩写，是一种用于Microsoft Office套件中的自动化和自定义编程语言。它可以用于各种Office应用程序，包括Word、Excel、PowerPoint等。

将Word表格导出到Excel可以通过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

这段VBA代码首先获取当前打开的Word文档，然后创建一个新的Excel应用程序对象，并新建一个Excel工作簿。接下来，它遍历Word文档中的所有表格，并将表格数据逐行逐列导出到Excel工作表中。最后，它保存Excel文件，关闭Excel应用程序对象，并显示一个消息框表示导出成功。

推荐的腾讯云相关产品和产品介绍链接地址：