Wie kann man Daten aus einer geschlossenen Arbeitsmappe in die aktuelle Arbeitsmappe importieren/kopieren?
Es ist einfach, Daten aus einem geöffneten Arbeitsblatt zu kopieren und in eine andere geöffnete Arbeitsmappe einzufügen, aber haben Sie jemals versucht, Daten aus einer geschlossenen Arbeitsmappe in eine geöffnete Arbeitsmappe zu importieren? In diesem Artikel werde ich darüber sprechen, wie man Daten aus einer geschlossenen Arbeitsmappe importiert.
Daten aus einer geschlossenen Arbeitsmappe mit VBA-Code in die aktuelle Arbeitsmappe importieren
Daten aus einer geschlossenen Arbeitsmappe mit VBA-Code in die aktuelle Arbeitsmappe importieren
Der folgende VBA-Code kann Ihnen helfen, Daten aus einer Arbeitsmappe zu kopieren, ohne sie zu öffnen, und diese in die aktive geöffnete Arbeitsmappe einzufügen. Bitte folgen Sie den folgenden Schritten:
1. Halten Sie die Tasten ALT + F11 gedrückt, und es öffnet sich das Fenster Microsoft Visual Basic for Applications.
2. Klicken Sie auf Einfügen > Modul, und fügen Sie den folgenden Code im Modulfenster ein.
VBA-Code: Daten aus einer geschlossenen Arbeitsmappe in die aktuelle Arbeitsmappe importieren
Sub ImportDatafromcloseworkbook()
'Updateby Extendoffice
Dim xWb As Workbook
Dim xAddWb As Workbook
Dim xRng1 As Range
Dim xRng2 As Range
Set xWb = Application.ActiveWorkbook
xTitleId = "KutoolsforExcel"
With Application.FileDialog(msoFileDialogOpen)
.Filters.Clear
.Filters.Add "Excel 2007-13", "*.xlsx; *.xlsm; *.xlsa"
.AllowMultiSelect = False
.Show
If .SelectedItems.Count > 0 Then
Application.Workbooks.Open .SelectedItems(1)
Set xAddWb = Application.ActiveWorkbook
Set xRng1 = Application.InputBox(prompt:="Select source range", Title:=xTitleId, Default:="A1", Type:=8)
xWb.Activate
Set xRng2 = Application.InputBox(prompt:="Select destination cell", Title:=xTitleId, Default:="A1", Type:=8)
xRng1.Copy xRng2
xRng2.CurrentRegion.EntireColumn.AutoFit
xAddWb.Close False
End If
End With
End Sub
3. Drücken Sie dann die F5-Taste, um diesen Code auszuführen, und im Fenster Datei öffnen wählen Sie die Arbeitsmappe aus, aus der Sie Daten importieren möchten, siehe Screenshot:
4. Klicken Sie dann auf die Schaltfläche Öffnen, und ein KutoolsforExcel-Dialogfeld erscheint, das Sie daran erinnert, einen Datenbereich auszuwählen, den Sie in eine andere Arbeitsmappe importieren möchten, siehe Screenshot:
5. Klicken Sie dann auf die Schaltfläche OK, im erscheinenden Dialogfeld wählen Sie eine Zelle aus, in die Sie die Daten einfügen möchten, siehe Screenshot:
6. Klicken Sie auf OK, und die Daten aus der geschlossenen Arbeitsmappe wurden in die aktuelle Arbeitsmappe importiert.
Daten aus einer geschlossenen Arbeitsmappe mit Kutools für Excel in die aktuelle Arbeitsmappe importieren
Der VBA-Code könnte für Excel-Anfänger etwas schwierig sein, daher empfehle ich Ihnen hier ein praktisches Tool - Kutools für Excel. Mit der Funktion Datei an Cursor einfügen können Sie den gesamten Inhalt eines Arbeitsblatts aus einer geschlossenen Arbeitsmappe schnell und einfach einfügen.
Nach der Installation von Kutools für Excel gehen Sie bitte wie folgt vor:
1. Klicken Sie auf Kutools Plus > Importieren & Exportieren > Datei an Cursor einfügen, siehe Screenshot:

2. Führen Sie im Dialogfeld Datei an Cursor einfügen die folgenden Aktionen aus:
(1.) Klicken Sie auf die Schaltfläche, um eine Zelle auszuwählen, in die Sie die importierten Daten einfügen möchten;
(2.) Klicken Sie auf die Schaltfläche, um die Arbeitsmappe auszuwählen, aus der Sie Daten importieren möchten.
Hinweis: Nur Werte (keine Formeln): Wenn Sie diese Option aktivieren, werden nur die Werte importiert, nicht jedoch die Formeln.
Formatierung nicht übertragen: Wenn Sie diese Option aktivieren, werden die Daten ohne Formatierung in das Arbeitsblatt importiert.
3. Klicken Sie dann auf OK. Wenn es mehr als ein Arbeitsblatt in der Arbeitsmappe gibt, erscheint ein Dialogfeld Arbeitsblatt auswählen. Bitte geben Sie das Arbeitsblatt an, aus dem Sie die Daten importieren möchten, siehe Screenshot:
4. Klicken Sie dann auf die Schaltfläche OK, und die Daten im ausgewählten Arbeitsblatt wurden in die aktuelle Arbeitsmappe importiert.
Jetzt Kutools für Excel herunterladen und kostenlos testen!
Beste Büroproduktivitätswerkzeuge
Verbessern Sie Ihre Excel-Fähigkeiten mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über300 erweiterte Funktionen zur Steigerung der Produktivität und Zeitersparnis. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen...
Office Tab bringt eine Registerkartenoberfläche zu Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie die Bearbeitung und das Lesen mit Registerkarten in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters, anstatt in neuen Fenstern.
- Steigert Ihre Produktivität um50 % und reduziert täglich hunderte von Mausklicks für Sie!