Wie öffnet man schnell alle Excel-Dateien aus einem Ordner?
In diesem Artikel stelle ich das Makro vor, mit dem Sie alle Arbeitsmappen aus einem bestimmten Ordner öffnen können.
Öffnen Sie alle Arbeitsmappen in einem Ordner mit VBA
Listen Sie alle Dateinamen eines bestimmten Ordners mit Kutools für Excel auf 
Öffnen Sie alle Arbeitsmappen in einem Ordner mit VBA
1. Drücken Sie Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.
2. Klicken Sie auf Einfügen > Modul, und fügen Sie den folgenden Code in das Skript ein.
VBA: Öffnen Sie alle Excel-Dateien in einem Ordner
Sub OpenFiles()
'UpdateByExtendoffice20160623
Dim xStrPath As String
Dim xFileDialog As FileDialog
Dim xFile As String
On Error Resume Next
Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
xFileDialog.AllowMultiSelect = False
xFileDialog.Title = "Select a folder [Kutools for Excel]"
If xFileDialog.Show = -1 Then
xStrPath = xFileDialog.SelectedItems(1)
End If
If xStrPath = "" Then Exit Sub
xFile = Dir(xStrPath & "\*.xlsx")
Do While xFile <> ""
Workbooks.Open xStrPath & "\" & xFile
xFile = Dir
Loop
End Sub
3. Drücken Sie die F5-Taste. Es erscheint ein Dialogfeld, in dem Sie den Ordner auswählen können, dessen Arbeitsmappen Sie alle öffnen möchten. Siehe Screenshot:
4. Klicken Sie auf OK, und alle Arbeitsmappen im angegebenen Ordner werden geöffnet.
Listen Sie alle Dateinamen eines bestimmten Ordners mit Kutools für Excel auf
Abgesehen vom Öffnen von Dateien in einem Ordner – haben Sie jemals alle Dateinamen eines bestimmten Ordners aufgelistet? Mit der Kutools für Excel-Dateinamenliste-Funktion listen Sie im Handumdrehen alle Dateitypen oder einen bestimmten Dateityp in einem Ordner auf.
1. Klicken Sie auf KUTOOLS PLUS > Import/Export > Dateinamenliste. Siehe Screenshot:
2. Wählen Sie im Dialogfeld Dateinamenliste den Ordner aus, aus dem Sie Dateien auflisten möchten, geben Sie den gewünschten Dateityp an und legen Sie gegebenenfalls die Einheit für die Dateigröße fest. Optional können Sie auch einen Hyperlink zu den aufzulistenden Dateinamen hinzufügen. Siehe Screenshot:
3. Klicken Sie auf Ok, und alle Dateien im angegebenen Ordner werden in einem neuen Arbeitsblatt der aktuellen Arbeitsmappe aufgelistet. Siehe Screenshot:
Demo: Alle Dateinamen eines Ordners mit Kutools für Excel auflisten
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins