Jak szybko otworzyć wszystkie pliki Excela z folderu?
W tym artykule przedstawię makro, które otwiera wszystkie skoroszyty z określonego folderu.
Otwórz wszystkie skoroszyty w folderze z VBA
Wyświetl wszystkie nazwy plików jednego określonego folderu za pomocą Kutools for Excel
Otwórz wszystkie skoroszyty w folderze z VBA
1. naciśnij Alt + F11 klucze do otwarcia Microsoft Visual Basic for Applications okno.
2. kliknij wstawka > Modułi wklej poniższy kod do skryptu.
VBA: Otwórz wszystkie pliki Excela w folderze
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. naciśnij F5 klawisz, pojawi się okno dialogowe umożliwiające wybranie folderu, w którym chcesz otworzyć wszystkie zawarte w nim skoroszyty. Zobacz zrzut ekranu:
4. kliknij OK, a wszystkie skoroszyty w określonym folderze zostały otwarte.
Wyświetl wszystkie nazwy plików jednego określonego folderu za pomocą Kutools for Excel
Oprócz otwierania plików w folderze, czy kiedykolwiek próbowałeś wyświetlić listę wszystkich nazw plików z jednego określonego folderu? Z Kutools dla programu Excel'S Lista nazw plików narzędzie, możesz szybko wyświetlić wszystkie typy lub jeden określony typ plików w jednym folderze.
Kutools dla programu Excel, ponad 300 przydatne funkcje, ułatwiają pracę. |
Po bezpłatna instalacja Kutools dla programu Excel, wykonaj poniższe czynności:
1. kliknij Kutools Plus > Import Eksport > Lista nazw plików. Zobacz zrzut ekranu:
2. w Lista nazw plików wybierz folder, z którego chcesz wyświetlić listę plików, określ typ pliku, który chcesz wyświetlić, a następnie określ wymaganą jednostkę rozmiaru pliku. Jeśli chcesz, możesz utworzyć hiperłącza do nazw plików, które zostaną wyświetlone. Zobacz zrzut ekranu:
3. kliknij Ok, a wszystkie pliki w określonym folderze zostały wymienione w nowym arkuszu aktywnego skoroszytu. Zobacz zrzut ekranu:
Wyświetl wszystkie nazwy plików w folderze
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!