Jak uruchomić makro w tym samym czasie w wielu plikach skoroszytu?
W tym artykule omówię, jak uruchomić makro w wielu plikach skoroszytu w tym samym czasie bez ich otwierania. Poniższa metoda może pomóc w rozwiązaniu tego zadania w programie Excel.
Uruchom makro jednocześnie w wielu skoroszytach z kodem VBA
Uruchom makro jednocześnie w wielu skoroszytach z kodem VBA
Aby uruchomić makro w wielu skoroszytach bez ich otwierania, zastosuj następujący kod VBA:
1. Przytrzymaj ALT + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.
2. Kliknij wstawka > Modułi wklej następujące makro w Moduł Okno.
Kod VBA: uruchom to samo makro na wielu skoroszytach w tym samym czasie:
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: W powyższym kodzie skopiuj i wklej własny kod bez rozszerzenia Podłoże nagłówek i End Sub stopka między With Workbooks.Open (xFdItem & xFileName) i Kończyć z skrypty. Zobacz zrzut ekranu:
3. Następnie naciśnij F5 klucz do wykonania tego kodu oraz a Przeglądaj zostanie wyświetlone okno, wybierz folder zawierający skoroszyty, do których chcesz zastosować to makro, zobacz zrzut ekranu:
4. A następnie kliknij OK przycisk, żądane makro zostanie wykonane od razu z jednego skoroszytu do drugiego.
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!