Jak zaimportować wiele nazw plików do komórek w programie Excel?
Przypuśćmy, że masz folder z setkami plików, a teraz chcesz zaimportować te nazwy plików do komórek arkusza. Kopiowanie i wklejanie jednego po drugim zajmie dużo czasu, w tym artykule omówię kilka szybkich sztuczek, które pomogą Ci zaimportować wiele nazw plików z folderu do arkusza roboczego.
Importuj wiele nazw plików do komórek arkusza z kodem VBA
Importuj wiele nazw plików do komórek arkusza za pomocą Kutools for Excel
Importuj wiele nazw plików do komórek arkusza z kodem VBA
Poniższy kod VBA może pomóc w zaimportowaniu nazw plików, rozszerzeń plików i nazwy folderu do komórek arkusza, wykonaj następujące czynności:
1. Uruchom nowy arkusz roboczy, do którego chcesz zaimportować nazwy plików.
2. Przytrzymaj ALT + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.
3. Kliknij wstawka > Modułi wklej następujący kod w Moduł Okno.
Kod VBA: Importuj wiele nazw plików do komórek arkusza
Sub GetFileList()
'updateby Extendoffice
Dim xFSO As Object
Dim xFolder As Object
Dim xFile As Object
Dim xFiDialog As FileDialog
Dim xPath As String
Dim i As Integer
Set xFiDialog = Application.FileDialog(msoFileDialogFolderPicker)
If xFiDialog.Show = -1 Then
xPath = xFiDialog.SelectedItems(1)
End If
Set xFiDialog = Nothing
If xPath = "" Then Exit Sub
Set xFSO = CreateObject("Scripting.FileSystemObject")
Set xFolder = xFSO.GetFolder(xPath)
ActiveSheet.Cells(1, 1) = "Folder name"
ActiveSheet.Cells(1, 2) = "File name"
ActiveSheet.Cells(1, 3) = "File extension"
i = 1
For Each xFile In xFolder.Files
i = i + 1
ActiveSheet.Cells(i, 1) = xPath
ActiveSheet.Cells(i, 2) = Left(xFile.Name, InStrRev(xFile.Name, ".") - 1)
ActiveSheet.Cells(i, 3) = Mid(xFile.Name, InStrRev(xFile.Name, ".") + 1)
Next
End Sub
4. Następnie naciśnij F5 klawisz, aby wykonać ten kod, iw wyskakującym oknie Przeglądaj wybierz folder, do którego chcesz zaimportować formularz nazw plików, patrz zrzut ekranu:
5. A następnie kliknij OK przycisk, a otrzymasz następujący wynik:
Note: Jeśli w określonym folderze znajdują się podfoldery, nazwy plików w podfolderach nie zostaną zaimportowane.
Importuj wiele nazw plików do komórek arkusza za pomocą Kutools for Excel
Jeśli chcesz zaimportować nazwy plików zarówno w folderze, jak i podfolderach, nie martw się, z Kutools dla programu Excel'S Lista nazw plików narzędzie, możesz łatwo zaimportować wszystkie nazwy plików z określonego folderu, w tym podfolderów.
Kutools dla programu Excel : z ponad 300 poręcznymi dodatkami Excela, które można wypróbować bez ograniczeń w ciągu 30 dni. |
Po zainstalowaniu Kutools dla programu Excelwykonaj następujące czynności:
1. Kliknij Kutools Plus> Import Eksport > Lista nazw plikówzobacz zrzut ekranu:
2, w Lista nazw plików w oknie dialogowym wykonaj następujące operacje:
(1.) Kliknij przycisk, aby wybrać folder z plikami, które chcesz zaimportować;
(2.) Sprawdź Uwzględnij pliki w podkatalogach importować nazwy plików podfolderów;
(3.) Określ typ plików, które chcesz importować w Typ plików Sekcja;
(4.) Wybierz jedną jednostkę rozmiaru pliku, którą chcesz wyświetlić z Jednostka rozmiaru pliku Sekcja;
(5.) Jeśli chcesz utworzyć hiperłącze do nazw plików i folderów, zaznacz Twórz hiperlinki opcja.
3. Po zakończeniu ustawień kliknij OK przycisk, a nazwy plików w folderze i podfolderach są importowane do nowego arkusza, jak pokazano na poniższym zrzucie ekranu:
Tips: Jeśli chcesz tylko zaimportować jedną określoną nazwę pliku typu z określonego folderu, możesz zaznaczyć Sprecyzować opcja w Lista nazw plików i wpisz w nim rozszerzenie pliku, a następnie zaimportuje tylko określone nazwy plików zarówno z folderu, jak i podfolderów.
Kliknij, aby dowiedzieć się więcej o tej funkcji listy nazw plików…
Pobierz i bezpłatną wersję próbną Kutools dla programu Excel teraz!
Demo: Importuj wiele nazw plików do komórek arkusza za pomocą Kutools for Excel
Podobne artykuły:
Jak wyświetlić wszystkie pliki w folderze i podfolderach w arkuszu?
Jak wyświetlić wszystkie nazwy plików w folderze i utworzyć dla nich hiperłącza w programie Excel?
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!