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!
Die besten Produktivitätstools für das Büro
Stärken Sie Ihre Excel-Fähigkeiten mit Kutools für Excel und genießen Sie Effizienz wie nie zuvor. Kutools für Excel bietet mehr als300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen...
Office Tab bringt die Tab-Oberfläche in Office und macht Ihre Arbeit wesentlich einfacher
- Aktivieren Sie die Tabulator-Bearbeitung und das Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Tabs innerhalb desselben Fensters, statt in neuen Einzelfenstern.
- Steigert Ihre Produktivität um50 % und reduziert hunderte Mausklicks täglich!
Alle Kutools-Add-Ins. Ein Installationspaket
Das Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro und ist ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- All-in-One-Paket — Add-Ins für Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Ein Installationspaket, eine Lizenz — in wenigen Minuten einsatzbereit (MSI-kompatibel)
- Besser gemeinsam — optimierte Produktivität in allen Office-Anwendungen
- 30 Tage kostenlos testen — keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis — günstiger als Einzelkauf der Add-Ins