In diesem Artikel erstellen wir ein Makro, um mehrere Dateien mit einem Dateidialogfeld zu öffnen.
Wir haben das Makro „opening_multiple_file“ erstellt, um mehrere Dateien zu öffnen. Ein Benutzer kann auf die Schaltfläche "Mehrere Dateien öffnen" klicken, um das Makro auszuführen.
Logikerklärung
Wir haben das Makro „opening_multiple_file“ erstellt, um mehrere Dateien zu öffnen. Ein Benutzer kann auf die Schaltfläche "Mehrere Dateien öffnen" klicken, um das Makro auszuführen. Es öffnet das Dateidialogfeld, in dem ein Benutzer mehrere Excel-Dateien auswählen kann, die er öffnen möchte.
Sobald alle Dateien ausgewählt sind, klicken Sie auf die Schaltfläche „OK“, um alle ausgewählten Dateien zu öffnen.
Codeerklärung
Application.FileDialog(msoFileDialogFilePicker)
Der obige Code wird verwendet, um das Dateidialogfeld zu öffnen.
.AllowMultiSelect = True
Im obigen Code ist die AllowMultipleSelect-Eigenschaft auf true festgelegt, um die Mehrfachauswahl im Dateidialogfeld zu ermöglichen.
.Filter.Add "Excel-Dateien", "*.xls*"
Im obigen Code ist der Filter für das Dateidialogfeld so eingestellt, dass nur Excel-Dateien ausgewählt werden.
Wenn .Show = True Then
Der obige Code wird verwendet, um zu überprüfen, ob ein Benutzer im Dateidialogfeld auf die Schaltfläche „OK“ oder „Abbrechen“ drückt.
Arbeitsmappen.Open .SelectedItems(i)
Der obige Code wird verwendet, um die ausgewählte Excel-Datei zu öffnen.
Bitte folgen Sie unten für den Code
Option Explicit Sub open_multiple_file() Dim i As Integer 'Dateidialogfeld mit Application.FileDialog(msoFileDialogFilePicker) öffnen 'Mehrere Dateien aktivieren select .AllowMultiSelect = True .Filters.Clear 'Nur Excel-Dateien können ausgewählt werden .Filters.Add "Excel Files" , "*.xls*" If .Show = True Then For i = 1 To .SelectedItems.Count 'Ausgewählte Datei öffnen Workbooks.Open .SelectedItems(i) Next i End If End With End Sub
Wenn Ihnen dieser Blog gefallen hat, teilen Sie ihn mit Ihren Freunden auf Facebook. Außerdem können Sie uns auf Twitter und Facebook folgen.
Wir würden uns freuen, von Ihnen zu hören, lassen Sie uns wissen, wie wir unsere Arbeit verbessern und für Sie verbessern können. Schreiben Sie uns auf der E-Mail-Site