Wie kann ein Makro gleichzeitig über mehrere Arbeitsmappendateien ausgeführt werden?
In diesem Artikel werde ich darüber sprechen, wie ein Makro über mehrere Arbeitsmappendateien gleichzeitig ausgeführt wird, ohne sie zu öffnen. Die folgende Methode kann Ihnen helfen, diese Aufgabe in Excel zu lösen.
Führen Sie ein Makro gleichzeitig über mehrere Arbeitsmappen mit VBA-Code aus
Führen Sie ein Makro gleichzeitig über mehrere Arbeitsmappen mit VBA-Code aus
Wenden Sie den folgenden VBA-Code an, um ein Makro über mehrere Arbeitsmappen hinweg auszuführen, ohne diese zu öffnen:
1. Halten Sie die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.
2. Klicken Sie Insert > Modulund fügen Sie das folgende Makro in das Feld ein Modul Fenster.
VBA-Code: Führen Sie dasselbe Makro auf mehreren Arbeitsmappen gleichzeitig aus:
Sub LoopThroughFiles()
Dim xFd As FileDialog
Dim xFdItem As Variant
Dim xFileName As String
Set xFd = Application.FileDialog(msoFileDialogFolderPicker)
If xFd.Show = -1 Then
xFdItem = xFd.SelectedItems(1) & Application.PathSeparator
xFileName = Dir(xFdItem & "*.xls*")
Do While xFileName <> ""
With Workbooks.Open(xFdItem & xFileName)
'your code here
End With
xFileName = Dir
Loop
End If
End Sub
Note: Kopieren Sie im obigen Code Ihren eigenen Code und fügen Sie ihn ohne den Code ein Sub Überschrift und End Sub Fußzeile zwischen dem Mit Workbooks.Open (xFdItem & xFileName) und Ende mit Skripte. Siehe Screenshot:
3. Dann drücken F5 Schlüssel zum Ausführen dieses Codes und a Entdecken Wenn das Fenster angezeigt wird, wählen Sie einen Ordner aus, der die Arbeitsmappen enthält, auf die Sie dieses Makro anwenden möchten. Siehe Screenshot:
4. Und dann klick OK Mit der Schaltfläche wird das gewünschte Makro sofort von einer Arbeitsmappe zur anderen ausgeführt.
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!