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:
Uwagi： 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:
Wskazówki: 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
Kutools dla programu Excel rozwiązuje większość problemów i zwiększa produktywność o 80%
- Ponowne użycie: Szybko włóż złożone wzory, wykresy i wszystko, czego używałeś wcześniej; Szyfruj komórki z hasłem; Utwórz listę mailingową i wysyłaj e-maile ...
- Pasek Super Formula (łatwo edytować wiele wierszy tekstu i formuły); Układ do czytania (łatwe odczytywanie i edytowanie dużej liczby komórek); Wklej do filtrowanego zakresu...
- Scal komórki / wiersze / kolumny bez utraty danych; Podziel zawartość komórek; Połącz zduplikowane wiersze / kolumny... Zapobiegaj zduplikowanym komórkom; Porównaj zakresy...
- Wybierz Duplikat lub Unikalny Wydziwianie; Wybierz puste wiersze (wszystkie komórki są puste); Super Find i Fuzzy Find w wielu zeszytach ćwiczeń; Losowy wybór ...
- Dokładna kopia Wiele komórek bez zmiany odwołania do formuły; Automatyczne tworzenie odniesień do wielu arkuszy; Wstaw punktory, Pola wyboru i nie tylko ...
- Wyodrębnij tekst, Dodaj tekst, Usuń według pozycji, Usuń przestrzeń; Tworzenie i drukowanie podsumowań stronicowania; Konwertuj zawartość komórek i komentarze...
- Super filtr (zapisz i zastosuj schematy filtrów do innych arkuszy); Zaawansowane sortowanie według miesiąca / tygodnia / dnia, częstotliwości i innych; Specjalny filtr pogrubieniem, kursywą ...
- Połącz skoroszyty i arkusze robocze; Scal tabele na podstawie kluczowych kolumn; Podziel dane na wiele arkuszy; Konwersja wsadowa xls, xlsx i PDF...
- Ponad 300 zaawansowanych funkcji. Obsługuje Office / Excel 2007-2021 i 365. Obsługuje wszystkie języki. Łatwe wdrażanie w przedsiębiorstwie lub organizacji. Pełne funkcje 30-dniowa bezpłatna wersja próbna. 60-dniowa gwarancja zwrotu pieniędzy.
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!
