Wie öffne ich schnell alle Excel-Dateien aus einem Ordner?
In diesem Artikel stelle ich das Makro vor, um alle Arbeitsmappen aus einem bestimmten Ordner zu öffnen.
Öffnen Sie alle Arbeitsmappen in einem Ordner mit VBA
Listen Sie alle Dateinamen eines bestimmten Ordners mit Kutools for Excel auf
Öffnen Sie alle Arbeitsmappen in einem Ordner mit VBA
1. Drücken Sie Alt + F11 Schlüssel zum Öffnen Microsoft Visual Basic für Applikationen Fenster.
2 Klicken Insert > Modulund 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 F5 Mit der Taste wird ein Dialogfeld zur Auswahl eines Ordners angezeigt, in dem Sie alle darin enthaltenen Arbeitsmappen öffnen möchten. Siehe Screenshot:
4 Klicken OKund alle Arbeitsmappen im jeweiligen Ordner wurden geöffnet.
Listen Sie alle Dateinamen eines bestimmten Ordners mit Kutools for Excel auf
Haben Sie jemals versucht, alle Dateinamen eines bestimmten Ordners aufzulisten, außer um Dateien in einem Ordner zu öffnen? Mit Kutools for Excel Dateinamenliste Dienstprogramm, können Sie schnell alle Arten oder einen bestimmten Dateityp in einem Ordner auflisten.
Kutools for Excel, mit mehr als 300 praktische Funktionen erleichtern Ihre Arbeit. |
Nach der kostenlose Installation Kutools für Excel, bitte gehen Sie wie folgt vor:
1 Klicken Kutoolen Plus > Import Export > Dateinamenliste. Siehe Screenshot:
2. In dem Dateinamenliste Wählen Sie im Dialogfeld einen Ordner aus, aus dem Sie Dateien auflisten möchten, geben Sie den Dateityp an, den Sie auflisten möchten, und geben Sie dann die Einheit der Dateigröße an, die Sie benötigen. Wenn Sie möchten, können Sie Hyperlinks zu den Dateinamen erstellen, die aufgelistet werden. Siehe Screenshot:
3 Klicken Okund alle Dateien in dem jeweiligen Ordner wurden in einem neuen Blatt der aktiven Arbeitsmappe aufgelistet. Siehe Screenshot:
Listen Sie alle Dateinamen eines Ordners auf
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, 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 Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!