Wir freuen uns, Ihnen in diesem Artikel die Möglichkeit vorzustellen, wie Sie ein Excel-Arbeitsblatt per VBA in eine native Word-Tabelle konvertieren können.
Office-Dateien liegen in verschiedenen Formaten vor. Hin und wieder kommt es vor, dass man eine Datei in ein anderes Format konvertieren muss. Beispielsweise ist die Konvertierung zwischen Excel-Dateien und Word-Dokumenten eine der häufigsten. Wir haben dieses Thema bereits in einem unserer früheren Artikel behandelt. 5 einfache Möglichkeiten, tabellarische Excel-Daten in Ihr Word zu übertragen
Heute gibt es eine viel schnellere Makromethode, um Excel-Arbeitsmappen in ein Word-Dokument zu extrahieren. Dabei werden alle Inhalte eines Arbeitsblatts in eine native Word-Tabelle konvertiert.
Installieren und Ausführen des Word-Makros
Wir werden ein Makro in Word ausführen. Da ein Teil des Codes im Makro das Auslösen eines Excel-Objekts beinhaltet, müssen Sie einen Verweis auf die Objektbibliothek hinzufügen.
- Als Erstes öffnen Sie ein neues, leeres Word-Dokument.
- Drücken Sie „Alt + F11“, um den VBA-Editor in Word zu öffnen.
- Klicken Sie dann in der linken Spalte auf "Normal".
- Klicken Sie anschließend auf "Einfügen" und wählen Sie "Modul".
- Jetzt haben Sie ein neues Modul. Doppelklicken Sie darauf, um es zu öffnen.
- Klicken Sie dann in der Menüleiste auf die Registerkarte „Extras“.
- Wählen Sie „Referenzen“ im Dropdown-Menü.
- Im Fenster „Referenzen – Normal“ das Kontrollkästchen „Microsoft Excel 14.0 Objektbibliothek“ aktivieren und auf „OK“ klicken.
- Kopieren Sie anschließend die folgenden Codes und fügen Sie sie in das neue Modul ein:
Sub ExtractWorksheetsToWordDocument()
Dim objExcel As Excel.Application
Dim objWorkbook As Excel.Workbook
Dim objWorksheet As Excel.Worksheet
Dim objTable As Table
Dim dlgFile As FileDialog
Dim strFileName As String
Application.ScreenUpdating = False
' Select an Excel file from Browse window.
Set dlgFile = Application.FileDialog(msoFileDialogFilePicker)
With dlgFile
If .Show = -1 Then
strFileName = .SelectedItems(1)
Else
MsgBox "No file is selected! Please select the target file."
Exit Sub
End If
End With
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open(strFileName)
objExcel.Visible = False
' Step through each worksheet in the Excel file and extract data to each _
individual section in Word document.
For Each objWorksheet In ActiveWorkbook.Worksheets
objWorksheet.UsedRange.Copy
ActiveDocument.Paragraphs(ActiveDocument.Paragraphs.Count).Range.Paste
ActiveDocument.Range.InsertAfter objWorksheet.Name
If Not objWorksheet.Name = Worksheets(Worksheets.Count).Name Then
With ActiveDocument.Paragraphs(ActiveDocument.Paragraphs.Count).Range
.Collapse Direction:=wdCollapseEnd
.InsertBreak Type:=wdSectionBreakNextPage
End With
End If
Next objWorksheet
For Each objTable In ActiveDocument.Tables
objTable.Borders.Enable = True
Next objTable
' Close the Excel application using the Quit method.
objExcel.Application.Quit
' Release the object variables.
Set objWorksheet = Nothing
Set objWorkbook = Nothing
Set objExcel = Nothing
Application.ScreenUpdating = True
End Sub
- Klicken Sie auf „Ausführen“ oder drücken Sie „F5“.
- Nun erscheint das Fenster „Durchsuchen“. Wählen Sie dort einfach eine Excel-Datei aus und klicken Sie auf „OK“.
Hier ist das Ergebnis:
Stellen Sie sicher, dass Ihre Dokumente noch funktionieren
Möglicherweise sind Hunderte von Dokumenten auf Ihrem Computer gespeichert. Mit der Zeit vergisst man leicht einige davon. Und wenn Sie sich irgendwann daran erinnern, sie überprüft zu haben, stellen Sie fest, dass sie nicht mehr zugänglich sind. Dann sollten Sie sofort auf ein Tool zurückgreifen, um Reparatur doc.
Einführung des Autors:
Vera Chen ist eine Datenrettungsexpertin in DataNumen, Inc., das weltweit führend bei Datenwiederherstellungstechnologien ist, einschließlich behebe xlsx und pdf Reparatur von Softwareprodukten. Für weitere Informationen besuchen Sie www.datanumen.com €XNUMX