Note: The other languages of the website are Google-translated. Back to English

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:

nazwy plików importu doc ​​1

5. A następnie kliknij OK przycisk, a otrzymasz następujący wynik:

nazwy plików importu doc ​​2

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 nazwy plików importu doc ​​5 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.

nazwy plików importu doc ​​4

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:

nazwy plików importu doc ​​6

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

Kutools dla programu Excel: z ponad 300 poręcznymi dodatkami do programu Excel, które można wypróbować bez ograniczeń w ciągu 30 dni. Pobierz i bezpłatną wersję próbną teraz!

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 kte 201905

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!
officetab dół
Sortuj komentarze według
Komentarze (14)
Znamionowy 5 z 5 · 1 oceny
Ten komentarz został zminimalizowany przez moderatora na stronie
Hej,
Mam arkusz ecxel, który ma kilka nazw produktów, a także folder z plikami pdf o nazwach takich samych jak w danych komórki, na przykład jeśli wartość komórki A2 to apple1, nazwa pliku PDF to apple1.pdf, chcę wiedzieć, która nazwa brakuje pliku, czy możemy to uzyskać w programie Excel somwhow?
Ten komentarz został zminimalizowany przez moderatora na stronie
Witam, Myk,
Najpierw możesz zastosować powyższy kod, aby wstawić nazwy plików do arkusza roboczego, wymienić dwie kolumny nazw plików w jednym arkuszu, a następnie możesz użyć funkcji Wybierz te same i różne komórki Kutools, aby zidentyfikować i podświetlić brakujące nazwy plików, patrz zrzut ekranu :

Proszę spróbować, dziękuję!
Ten komentarz został zminimalizowany przez moderatora na stronie
Bardzo pomocne, dziękuję!
Ten komentarz został zminimalizowany przez moderatora na stronie
Apakah bisa nazwa pliku dengan excel?
terimakasih sangat membantu perkerjaan saya,
Ten komentarz został zminimalizowany przez moderatora na stronie
saya coba yg pake vba di run bisa tapi pas di step browser nya bukan oke tapi otwórz terus sampai ke plik tertentu dan ketika di klik malah run time 26 nie znaleziono ścieżki bisa bantu kenapa itu bisa terjadi?
Ten komentarz został zminimalizowany przez moderatora na stronie
Dzięki. To było niesamowite
Ten komentarz został zminimalizowany przez moderatora na stronie
W przypadku kodu VBA, jak byś wprowadził również zmodyfikowaną datę?
Ten komentarz został zminimalizowany przez moderatora na stronie
Cześć,
Dodaj kolumnę daty modyfikacji dla importowanych nazw plików, zastosuj następujący kod VBA, spróbuj, mam nadzieję, że może ci to pomóc!

Sub GetListaPlików()
Dim xFSO jako obiekt
Dim xFolder jako obiekt
Przyciemnij xFile jako obiekt
Dim xFiDialog jako FileDialog
Dim xPath jako ciąg
Dim i As Integer
Ustaw xFiDialog = Application.FileDialog(msoFileDialogFolderPicker)
Jeśli xFiDialog.Show = -1 Wtedy
xPath = xFiDialog.SelectedItems(1)
End If
Ustaw xFiDialog = Nic
Jeśli xPath = "" Następnie wyjdź z Sub
Ustaw xFSO = CreateObject("Scripting.FileSystemObject")
Ustaw xFolder = xFSO.GetFolder(xPath)
ActiveSheet.Cells(1, 1) = "Nazwa folderu"
ActiveSheet.Cells(1, 2) = "Nazwa pliku"
ActiveSheet.Cells(1, 3) = "Rozszerzenie pliku"
ActiveSheet.Cells(1, 4) = "Data ostatniej modyfikacji"
i = 1
Dla każdego pliku xFile w 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)
ActiveSheet.Cells(i, 4) = CDate(xFile.datalastmodified)
Dalej
End Sub
Ten komentarz został zminimalizowany przez moderatora na stronie
czy istnieje sposób na umieszczenie ścieżki folderu już w kodzie?
Ten komentarz został zminimalizowany przez moderatora na stronie
chcę wspomnieć tylko o nazwie folderu. co to jest kod vba.
Ten komentarz został zminimalizowany przez moderatora na stronie
chcę dodać tabelę, tylko nazwę folderu i zmodyfikowane dane?
Ten komentarz został zminimalizowany przez moderatora na stronie
Cześć,
Czy chcesz wyświetlić listę wszystkich nazw folderów z określonego folderu głównego? Podaj bardziej szczegółowo swój problem.
Ten komentarz został zminimalizowany przez moderatora na stronie
Jest tam inna łatwa metoda. Po prostu skopiuj ścieżkę katalogu, w którym zapisałeś dokumenty, i wklej ten link w przeglądarce (chrome/mozilla). Otrzymasz listę nazwisk i po prostu skopiuj wklej do Excela. Dzięki!
Ten komentarz został zminimalizowany przez moderatora na stronie
bardzo pomocne. Tnx dużo
Znamionowy 5 z 5
Nie ma tu jeszcze żadnych komentarzy
Zostaw swój komentarz
Publikowanie jako gość
×
Oceń ten post:
0   Postacie
Sugerowane lokalizacje

Bądż na bieżąco

Prawa autorskie © 2009 - www.extendoffice.com. | Wszelkie prawa zastrzeżone. Zasilany przez ExtendOffice, | Mapa strony
Microsoft i logo Office są znakami towarowymi lub zastrzeżonymi znakami towarowymi Microsoft Corporation w Stanach Zjednoczonych i / lub innych krajach.
Chronione przez Sectigo SSL