So kopieren Sie den Inhalt eines in ein Word-Dokument eingefügten Tabellenobjekts mithilfe von VBA-Code nach Excel

1. Wie füge ich eine Tabelle mit VBA-Code in ein Word-Dokument ein?

Das Einfügen einer Tabelle in ein Word-Dokument in VBA ist sehr einfach. Sie können das folgende Codebeispiel verwenden:

Sub InsertTableInWord()
    Dim wdApp As Object
    Dim wdDoc As Object
    Dim wdTable As Object
    
    ' 创建Word应用程序对象
    Set wdApp = CreateObject("Word.Application")
    wdApp.Visible = True ' 如果需要可见Word应用程序，请设置为True
    
    ' 创建一个新的Word文档
    Set wdDoc = wdApp.Documents.Add
    
    ' 插入一个表格
    Set wdTable = wdDoc.Tables.Add(wdDoc.Range, NumRows:=3, NumColumns:=4)
    ' 更改表格的内容和格式
    ' ...
    
    ' 释放对象
    Set wdTable = Nothing
    Set wdDoc = Nothing
    Set wdApp = Nothing
End Sub

Dieser Code erstellt ein neues Word-Dokument und fügt darin eine Tabelle mit 3 Zeilen und 4 Spalten ein. Sie können die Anzahl der Zeilen und Spalten der Tabelle ändern und den Tabelleninhalt nach Bedarf weiter formatieren.

2. Wie kopiere ich den Inhalt einer Word-Tabelle mit VBA nach Excel?

In VBA können Sie den folgenden Code verwenden, um den Tabelleninhalt im Word-Dokument in das Excel-Arbeitsblatt zu kopieren:

Sub CopyTableFromWordToExcel()
    Dim wdApp As Object
    Dim wdDoc As Object
    Dim wdTable As Object
    Dim xlApp As Object
    Dim xlWb As Object
    Dim xlSheet As Object
    
    ' 创建Word应用程序对象
    Set wdApp = CreateObject("Word.Application")
    wdApp.Visible = True ' 如果需要可见Word应用程序，请设置为True
    
    ' 打开Word文档
    Set wdDoc = wdApp.Documents.Open("C:\Path\To\Your\Word\File.docx")
    
    ' 获取Word文档中的表格
    Set wdTable = wdDoc.Tables(1) ' 假设表格在文档中的第一个位置
    
    ' 创建Excel应用程序对象
    Set xlApp = CreateObject("Excel.Application")
    xlApp.Visible = True ' 如果需要可见Excel应用程序，请设置为True
    
    ' 创建一个新的Excel工作簿
    Set xlWb = xlApp.Workbooks.Add
    ' 在Excel工作簿中创建一个工作表
    Set xlSheet = xlWb.Sheets(1)
    
    ' 将Word表格复制到Excel中
    wdTable.Range.Copy
    xlSheet.Range("A1").PasteSpecial
    
    ' 释放对象
    Set xlSheet = Nothing
    Set xlWb = Nothing
    Set xlApp = Nothing
    
    ' 关闭Word文档
    wdDoc.Close False ' False表示不保存更改
    Set wdTable = Nothing
    Set wdDoc = Nothing
    wdApp.Quit
    Set wdApp = Nothing
End Sub

Dieser Code öffnet ein Word-Dokument unter einem bestimmten Pfad (bitte ersetzen Sie den Pfad durch Ihren Word-Dateipfad). ), kopieren Sie die erste Tabelle darin und fügen Sie sie in die erste Zelle von Excel (A1) ein. Sie können den Tabellenindex, den Speicherort des Ziel-Excel-Arbeitsblatts usw. nach Bedarf ändern.

3. Zusammenfassung

Mit VBA können Sie ganz einfach Tabellen in Word einfügen und Tabelleninhalte in Word-Dokumenten nach Excel kopieren. Indem Sie ein Word-Anwendungsobjekt erstellen und die Funktionalität seines Objektmodells nutzen, können Sie Tabellen in einem Word-Dokument bearbeiten und dann ein Excel-Anwendungsobjekt zum Kopieren und Einfügen von Tabelleninhalten verwenden. Diese Operationen können je nach Bedarf weiter erweitert und geändert werden.

Das obige ist der detaillierte Inhalt vonSo kopieren Sie den Inhalt eines in ein Word-Dokument eingefügten Tabellenobjekts mithilfe von VBA-Code nach Excel. Für weitere Informationen folgen Sie bitte anderen verwandten Artikeln auf der PHP chinesischen Website!