Wenn Sie Daten aus mehreren Excel-Arbeitsblättern kopieren und in MS Word einfügen müssen, sollten Sie diesen Artikel lesen. In Excel gibt es keine solche Funktion, mit der Sie die Daten aus einer Excel-Arbeitsmappe in eine Word-Datei konvertieren können. Word-Anwendung kann Excel-Dateien nicht direkt öffnen. Excel-Daten können jedoch kopiert und in Word eingefügt und dann als Word-Dokument gespeichert werden.
Wir alle übertragen Daten manuell von Excel nach Word, was manchmal mühsam wird, wenn die gleichen Schritte zu oft am Tag ausgeführt werden. Um die manuellen Schritte zu vermeiden, werden wir VBA-Code schreiben, um alle Schritte auszuführen.
In diesem Artikel konzentrieren wir uns auf das Verschieben von Daten von Excel in Word-Dokumente. Wir werden den gesamten Vorgang per VBA-Code automatisieren. Mit Makrocode können Sie einfach die Daten in einem Arbeitsblatt gleichzeitig kopieren und dann wird die Word-Anwendung automatisch gestartet und der VBA-Code verwendet den Einfügebefehl, um die Daten in die Doc-Datei einzufügen.
Um den Code zu erhalten; Wir müssen die folgenden Schritte ausführen, um den VB-Editor zu starten:
- Klicken Sie auf die Registerkarte Entwickler
- Wählen Sie in der Gruppe Code die Option Visual Basic . aus
- Es gibt einen wichtigen Schritt, den Sie nicht verpassen dürfen
- Klicken Sie auf Tools, um Referenzen auszuwählen
- Scrollen Sie nach unten, bis Sie "Microsoft Word 15.0-Objektbibliothek" finden.
- Stellen Sie sicher, dass Sie das Kontrollkästchen aktivieren; siehe unten bild
- Kopieren Sie den folgenden Code in das Standardmodul
Sub CopyWorksheetsToWord() Dim wdApp As Word.Application, wdDoc As Word.Document, ws As Worksheet Application.ScreenUpdating = False Application.StatusBar = "Neues Dokument erstellen… " Set wdApp = Neues Word.Application Set wdDoc = wdApp.Documents.Add For Each ws In ActiveWorkbook.Worksheets Application.StatusBar = "Kopieren von Daten von " & ws.Name & "… " ws.UsedRange.Copy wdDoc.Paragraphs(wdDoc.Paragraphs.Count).Range.InsertParagraphAfter wdDoc.Paragraphs(wdDoc.Paragraphs .Count).Range.Paste Application.CutCopyMode = False wdDoc.Paragraphs(wdDoc.Paragraphs.Count).Range.InsertParagraphAfter If Not ws.Name = Worksheets(Worksheets.Count).Name Then With wdDoc.Paragraphs(wdDoc.Paragraphs. Count).Range .InsertParagraphBefore .Collapse Direction:=wdCollapseEnd .InsertBreak Type:=wdPageBreak End With End If Next ws Set ws = Nichts Application.StatusBar = "Aufräumen… " Mit wdApp.ActiveWindow If .View.SplitSpecial = wdPaneNone Then . ActivePane.View.Type = wdNormalView Sonst .View.Type = wdNormalView End If End With Set wdDoc = Nichts wdApp.Visible = True Set wdApp = Nichts Application.StatusBar = False End Sub
Um den Code zu testen, fügen wir 2 Blätter ein und fügen Zufallszahlen hinzu. Im Folgenden sehen Sie die Momentaufnahme der beiden Arbeitsblätter:
1. Blatt:-
2. Blatt:-
- Nach dem Einrichten der Daten in Arbeitsblättern; Wir können das Makro ausführen
- Die Word-Anwendung wird sofort gestartet und die Daten werden aus allen Arbeitsblättern in Word kopiert; siehe unten Schnappschuss
Wenn Sie der Meinung sind, dass das Kopieren der Daten eine Aufgabe ist, sollte jedoch zwischen den Daten jedes Arbeitsblatts ein Seitenumbruch erfolgen, damit jeder leicht zwischen den Daten aus jedem Arbeitsblatt unterscheiden kann.
Die obigen Daten werden von einem Blatt kopiert und dann stellt der VBA-Code sicher, dass ein Seitenumbruch zwischen den Seiten hinzugefügt wird.
Abschluss: Auf diese Weise können wir vielen Microsoft Office-Benutzern helfen, die denken, dass das Konvertieren von Daten aus einer Excel-Datei in ein Word etwas kompliziert oder unmöglich ist. Der obige Code hat gezeigt, wie einfach man Daten ohne großen Aufwand von mehreren Excel-Tabellen in eine Word-Dokumentdatei kopieren und in eine Word-Datei einfügen kann.
Wenn Ihnen unsere Blogs gefallen haben, teilen Sie sie mit Ihren Freunden auf Facebook. Und Sie können uns auch auf Twitter und Facebook folgen.
Wir würden uns freuen, von Ihnen zu hören, lassen Sie uns wissen, wie wir unsere Arbeit verbessern, ergänzen oder erneuern und für Sie verbessern können. Schreiben Sie uns auf der E-Mail-Site