VBA:将WORD表格导出到excel

在Microsoft Office中，VBA（Visual Basic for Applications）是一种强大的编程语言，可以用来自动化各种任务，包括将Word表格导出到Excel。以下是将Word表格导出到Excel的基础概念、步骤和相关信息。

基础概念

VBA：Visual Basic for Applications，是一种内置于Microsoft Office应用程序中的编程语言。
Word表格：在Microsoft Word文档中创建的数据表。
Excel工作表：在Microsoft Excel中用于存储和管理数据的电子表格。

类型

单个表格导出：将Word中的一个表格导出到一个Excel工作表。
多个表格导出：将Word中的多个表格分别导出到不同的Excel工作表。

应用场景

数据处理：需要将Word中的数据整理后导入Excel进行分析。
报告生成：自动化生成包含数据的Excel报告。
数据迁移：将旧系统中的数据从Word迁移到Excel。

示例代码

以下是一个VBA脚本示例，展示如何将Word中的一个表格导出到一个新的Excel工作簿中。

Sub ExportWordTableToExcel()
    Dim wdDoc As Document
    Dim xlApp As Object
    Dim xlBook As Object
    Dim xlSheet As Object
    Dim tbl As Table
    Dim i As Long, j As Long
    
    ' 打开Word文档
    Set wdDoc = Documents.Open("C:\path\to\your\document.docx")
    
    ' 创建新的Excel应用程序实例
    On Error Resume Next
    Set xlApp = GetObject(, "Excel.Application")
    If Err.Number <> 0 Then
        Set xlApp = CreateObject("Excel.Application")
    End If
    On Error GoTo 0
    
    ' 显示Excel应用程序
    xlApp.Visible = True
    
    ' 添加新的工作簿
    Set xlBook = xlApp.Workbooks.Add
    Set xlSheet = xlBook.Worksheets(1)
    
    ' 遍历Word文档中的所有表格
    For Each tbl In wdDoc.Tables
        ' 将表格内容复制到Excel
        For i = 1 To tbl.Rows.Count
            For j = 1 To tbl.Columns.Count
                xlSheet.Cells(i, j).Value = tbl.Cell(i, j).Range.Text
            Next j
        Next i
    Next tbl
    
    ' 关闭Word文档
    wdDoc.Close SaveChanges:=False
    
    ' 清理对象
    Set wdDoc = Nothing
    Set xlSheet = Nothing
    Set xlBook = Nothing
    Set xlApp = Nothing
End Sub