Wie zu kopieren Sie die Daten aus Arbeitsmappe in verschiedenen Blättern Sie in Microsoft Excel 2010
In diesem Artikel erfahren Sie, wie Sie die Daten aus einer Arbeitsmappe auf verschiedene Blätter in Microsoft Excel 2010 kopieren.
Um Daten aus Excel mit VBA in eine Datei zu kopieren, müssen Sie mit Excel VBA auf die Wortanwendung zugreifen. In diesem Tutorial erfahren Sie, wie Sie eine Word-Anwendung öffnen, ein Dokument hinzufügen und Daten aus Excel kopieren und einfügen.
In diesem Artikel verwenden wir die Methode der frühen Bindung, um ein Objekt der Wortanwendung zu erstellen, anstatt die späte Bindung zu verwenden. Sie können hier ausführlich darüber lesen.
Der Vorgang des Kopierens von Excel-Daten in eine Word-Datei mit Excel VBA Um Daten von Excel mit VBA in eine Word-Datei zu kopieren, müssen Sie zunächst die Word-Anwendung öffnen. Fügen Sie dann ein Dokument hinzu (wenn Sie ein neues Dokument möchten). Kopieren Sie Daten aus der Excel-Datei. Wählen Sie den Absatz im Dokument aus und fügen Sie ihn ein. Speichern und schließen Sie das Dokument schließlich. Jeder dieser Schritte kann einfach von Excel aus ausgeführt werden. Sie müssen nicht mit dem Word-Dokument interagieren.
Beginnen wir mit einem Beispiel, ohne weiter auf die Theorie einzugehen. Weil Iron Man sagte: „Manchmal musst du rennen, bevor du laufen kannst.“
Beispiel: Einfügen von Excel-Daten in Word mithilfe von VBA Der folgende Code ist ein Beispiel dafür, wie Sie einen Excel-Bereich kopieren und in ein neues Word-Dokument einfügen und auf dem Laufwerk speichern können, um es später zu verwenden
'VBA Code To Write to Copy data from Excel to A Document Sub ExcelToWord() 'Using Early Binding Dim wordApp As Word.Application Dim mydoc As Word.Document 'Creating a new instance of word only if there no other instances Set wordApp = New Word.Application 'Making word App Visible wordApp.Visible = True 'Creating a new document Set mydoc = wordApp.Documents.Add() 'copying the content from excel sheet ThisWorkbook.Worksheets("sheet1").Range("A1:g20").Copy 'Pasting on the document mydoc.Paragraphs(1).Range.PasteExcelTable _ LinkedToExcel:=False, _ WordFormatting:=False, RTF:=False 'saving the document mydoc.SaveAs2 "MyDoc" 'closing the document mydoc.Close 'Emptying the Clipboard CutCopyMode = False End Sub
Erläuterung des Codes:
Nun, ich habe jeden Schritt im Code selbst mit Kommentaren erklärt, aber lassen Sie uns etwas über die Zeilen sagen, die wir in diesem Unter verwendet haben.
'Created variables of word application and document type Dim wordApp As Word.Application Dim mydoc As Word.Document
Hier haben wir zwei Variablen der erforderlichen Typen deklariert. Wir können dies tun, weil wir den Verweis auf die Wortanwendung bereits hinzugefügt haben. Sie können dies tun, indem Sie zu den Werkzeugen im Menü gehen. Suchen Sie die Option Referenzen und suchen Sie dann nach der Wortreferenz.
'Creating a new instance of word only if there no other instances Set wordApp = New Word.Application 'Making word App Visible wordApp.Visible = True 'Creating a new document Set mydoc = wordApp.Documents.Add()
In der ersten Zeile oben wird die Variable wordApp mit einem Objekt vom Typ Word.App unter Verwendung des Schlüsselworts New beabsichtigt. Dadurch wird die Word-Anwendung geöffnet.
In der zweiten Zeile machen wir das Wort Anwendung sichtbar, damit wir damit arbeiten können.
In der nächsten Zeile fügen wir der Word-Anwendung mit der Funktion Word.Documents.Add () ein neues Dokument hinzu. Dies wird in der Variablen mydoc gespeichert.
'copying the content from excel sheet
ThisWorkbook.Worksheets („sheet1“). Range („A1: G20“). Copy Hier kopieren wir einfach einen Bereich von Excel. Sie müssen es vorher getan haben. Es wird in der Zwischenablage gespeichert.
'Pasting on the document mydoc.Paragraphs(1).Range.PasteExcelTable _ LinkedToExcel:=False, _ WordFormatting:=False, RTF:=False
Wir verwenden die PasteExcelTable-Methode der Paragraph.Range-Klasse von mydoc, um Daten aus der Zwischenablage einzufügen.
'saving the document mydoc.SaveAs2 "MyDoc" 'closing the document mydoc.Close 'Emptying the Clipboard CutCopyMode = False
Wir speichern das Dokument unter dem Namen MyDoc. Dann schließen wir das Dokument mit der Funktion Schließen. Schließlich geben wir die Zwischenablage frei, damit sie von anderen verwendet werden kann.
Hoffe, dieser Artikel über das Kopieren der Daten aus einer Arbeitsmappe auf verschiedene Blätter in Microsoft Excel 2010 ist erklärend. Weitere Artikel zur Berechnung von Werten und zugehörigen Excel-Formeln finden Sie hier. Wenn Ihnen unsere Blogs gefallen haben, teilen Sie sie Ihren Freunden auf Facebook mit. Und Sie können uns auch auf Twitter und Facebook folgen. Wir würden gerne von Ihnen hören, uns mitteilen, wie wir unsere Arbeit verbessern, ergänzen oder innovieren und für Sie verbessern können. Schreiben Sie uns unter [email protected].
Verwandte Artikel:
link: / allgemeine-themen-in-vba-vba-variablen-in-excel [VBA-Variablen in Excel]
: VBA steht für Visual Basic für Applikationen.
Es ist eine Programmiersprache von Microsoft. Es wird mit Microsoft Office-Anwendungen wie MSExcel, MS-Word und MS-Access verwendet, während VBA-Variablen bestimmte Schlüsselwörter sind.
link: / allgemeine-themen-in-vba-excel-vba-variablenbereich [Excel VBA-Variablenbereich]
: In allen Programmiersprachen haben wir Variablenzugriffsspezifizierer, die definieren, von wo aus auf eine definierte Variable zugegriffen werden kann. Excel VBA ist keine Ausnahme. Auch VBA verfügt über Bereichsspezifizierer.
link: / Zellenbereiche-Zeilen-und-Spalten-in-vba-was-ist-der-Unterschied-zwischen-byref-und-byval-Argumenten-vba-Interview-Frage [ByRef und ByVal Argumente]
: Wann Ein Argument wird als ByRef-Argument an ein anderes Sub oder eine andere Funktion übergeben. Die Referenz der tatsächlichen Variablen wird gesendet. Alle Änderungen, die an der Kopie der Variablen vorgenommen werden, werden im ursprünglichen Argument wiedergegeben.
link: / files-workbook-and-worksheets-in-vba-add-and-save-new-workbook-using-vba-in-microsoft-excel [Neue Arbeitsmappe mit VBA in Microsoft Excel 2016 hinzufügen und speichern]
: In diesem Code haben wir zuerst einen Verweis auf ein Arbeitsmappenobjekt erstellt. Der Vorteil dieses Ansatzes besteht darin, dass Sie Operationen an dieser neuen Arbeitsmappe problemlos ausführen können.
Wie Speichern, Schließen, Löschen usw.
Beliebte Artikel:
link: / tips-if-condition-in-excel [Verwendung der IF-Funktion in Excel]
: Die IF-Anweisung in Excel überprüft die Bedingung und gibt einen bestimmten Wert zurück, wenn die Bedingung TRUE ist, oder gibt einen anderen bestimmten Wert zurück, wenn FALSE .
link: / formeln-und-funktionen-einführung-der-vlookup-funktion [Verwendung der VLOOKUP-Funktion in Excel]
: Dies ist eine der am häufigsten verwendeten und beliebtesten Funktionen von Excel, die zum Nachschlagen von Werten aus verschiedenen Bereichen verwendet wird und Blätter.
link: / excel-formel-und-funktion-excel-sumif-funktion [Verwendung der SUMIF-Funktion in Excel]
: Dies ist eine weitere wichtige Dashboard-Funktion. Auf diese Weise können Sie Werte unter bestimmten Bedingungen zusammenfassen.
link: / tips-countif-in-microsoft-excel [Verwendung der COUNTIF-Funktion in Excel]
: Zählen Sie Werte mit Bedingungen, die diese erstaunliche Funktion verwenden. Sie müssen Ihre Daten nicht filtern, um bestimmte Werte zu zählen. Die Countif-Funktion ist wichtig, um Ihr Dashboard vorzubereiten.