W tym samouczku przedstawię kilka sztuczek dotyczących szybkiego wyszczególnienia wszystkich nazw obrazów lub nazw plików określonego folderu w arkuszu Excela, jak pokazano na zrzucie ekranu. SZYBKA NAWIGACJA >Lista nazw obrazów folderu w programie Excel za pomocą VBA >Wyświetl nazwy obrazów lub określone nazwy plików w formacie folderu w programie Excel za pomocą listy nazw plików >Pobierz przykładowy plik

W programie Excel nie ma wbudowanej funkcji, która może automatycznie wyświetlać wszystkie nazwy obrazów z wybranego folderu w komórce arkusza, ale tutaj mam kod VBA, który może pomóc w szybkim rozwiązaniu tego zadania.

1. W programie Excel, a następnie naciśnij inny + F11 klucze do otwarcia Microsoft Visual Basic for Applications okno.

2. W wyskakującym oknie kliknij wstawka > Moduł aby utworzyć nowy skrypt modułu.

3. Skopiuj poniższy kod i wklej go w nowym oknie skryptu modułu.

Sub PictureNametoExcel()
'UpdatebyExtendoffice 
    Dim I As Long
    Dim xRg As Range
    Dim xAddress As String
    Dim xFileName As String
    Dim xFileDlg As FileDialog
    Dim xFileDlgItem As Variant
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Select a cell to place name list:", "Kutools For Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    Set xRg = xRg(1)
    xRg.Value = "Picture Name"
    With xRg.Font
    .Name = "Arial"
    .FontStyle = "Bold"
    .Size = 10
    End With
    xRg.EntireColumn.AutoFit
    Set xFileDlg = Application.FileDialog(msoFileDialogFolderPicker)
    I = 1
    If xFileDlg.Show = -1 Then
        xFileDlgItem = xFileDlg.SelectedItems.Item(1)
        xFileName = Dir(xFileDlgItem & "\")
        Do While xFileName <> ""
            If InStr(1, xFileName, ".jpg") + InStr(1, xFileName, ".png") + InStr(1, xFileName, ".img") + InStr(1, xFileName, ".ioc") + InStr(1, xFileName, ".bmp") > 0 Then
                xRg.Offset(I).Value = xFileDlgItem & "\" & xFileName
                I = I + 1
            End If
            xFileName = Dir
        Loop
    End If
    Application.ScreenUpdating = True
End Sub

4. naciśnij F5 , a następnie pojawi się okno dialogowe, w którym możesz wybrać komórkę, w której chcesz umieścić nazwy obrazów.

5. kliknij OK aby kontynuować wybieranie folderu, w którym chcesz wyświetlić nazwy obrazów w oknie dialogowym Przeglądaj.

6. kliknij OK, teraz wszystkie nazwy obrazów w wybranym folderze zostały wyświetlone w programie Excel.

Uwaga: W kodzie VBA możesz w ciągu kodu jpg / png /… Jeśli InStr (1, xFileName, „.jpg”) + InStr (1, xFileName, „.png”) + InStr (1, xFileName, „.img”) + InStr (1, xFileName, „.ioc”) + InStr (1, xFileName, „.bmp”) > 0 Następnie na potrzebne rozszerzenie pliku, na przykład, jeśli chcesz wyświetlić nazwy plików w formacie doc, zmień tylko ciąg kodu na Jeśli InStr (1, xFileName, ".doc")> 0 Wtedy.

Jeśli zwykle w codziennej pracy musisz wymieniać nazwy plików jednego lub wszystkich formatów folderu w komórce programu Excel, kod jest złożony i niełatwy w obsłudze, ale w poniższy sposób możesz szybko rozwiązać to zadanie.

Czy chcesz mieć podwyżkę i dużo czasu na towarzystwo rodziny? Karta Office zwiększa wydajność o 50% podczas pracy pakietu Microsoft Office Niewiarygodne, praca na dwóch lub więcej dokumentach jest łatwiejsza i szybsza niż praca na jednym. W porównaniu ze znanymi przeglądarkami narzędzie z kartami na karcie Office jest wydajniejsze i bardziej wydajne. Zredukuj dla siebie setki kliknięć myszą i pisania na klawiaturze każdego dnia, pożegnaj się z dłonią myszy. Jeśli zwykle pracujesz nad wieloma dokumentami, karta Office to świetna oszczędność czasu. 30-dniowy bezpłatny okres próbny, Nie wymagamy karty kredytowej. Czytaj więcejPobierz teraz

Oto narzędzie - Lista nazw plików in Kutools dla programu Excel, Który może

>> wymień wszystkie nazwy plików we wszystkich formatach plików folderu w nowym arkuszu;

>> wymień nazwy plików w jednym lub kilku formatach plików określonych w programie Excel;

>> lista nazw plików, w tym podfolderów i ukrytych plików i folderów do programu Excel.

Free Trial Pożegnaj się teraz z dłonią myszy i spondylozy szyjnej

300 zaawansowanych narzędzi Kutools for Excel rozwiązuje 80% Zadania Excela w kilka sekund, wyrwij się z tysięcy kliknięć myszką.

Z łatwością poradzisz sobie z 1500 scenariuszami pracy, nie musisz tracić czasu na szukanie rozwiązań, masz dużo czasu na cieszenie się życiem. Zwiększ produktywność o 80% dla ponad 110000 XNUMX wysoce efektywnych ludzi każdego dnia, oczywiście włączając Ciebie. Nie męczy Cię już bolesne formuły i VBA, daj swojemu mózgowi spokój i radosny nastrój do pracy. 30-dniowy bezpłatny okres próbny z pełnymi funkcjami, 30-dniowy zwrot pieniędzy bez podania przyczyny. Lepsze ciało tworzy lepsze życie.

Czytaj więcej Pobierz teraz

Po bezpłatnej instalacji Kutools dla programu Excel wykonaj poniższe czynności:

1. Włącz skoroszyt, dla którego chcesz wyświetlić nazwy plików, a następnie kliknij Kutools Plus > Import / Eksport > Lista nazw plików.

2. w Lista nazw plików po pierwsze, kliknij  aby wybrać folder, w którym chcesz wyświetlić listę nazw plików, możesz zaznaczyć pola wyboru Uwzględnij pliki w podkatalogach i Uwzględnij ukryte pliki i foldery tak jak potrzebujesz.

3. Następnie wybierz format pliku, w którym chcesz wyświetlić listę nazw Typ plików

Kontrola Wszystkie pliki opcja, wyświetli listę wszystkich nazw plików we wszystkich formatach plików w wybranym folderze

Kontrola wspólny opcja i wybierz określony format pliku, w którym chcesz wyświetlić nazwy plików z rozwijanej listy, a następnie wyświetli wszystkie nazwy plików formatu pliku wybranego z listy rozwijanej

Kontrola Sprecyzować opcja, a następnie wpisz rozszerzenia plików (oddzielając je przecinkami), które chcesz wyświetlić nazwy plików w polu tekstowym, wtedy wyświetli się tylko nazwy plików z wprowadzanymi rozszerzeniami plików w programie Excel

4. Wybierz potrzebną jednostkę rozmiaru z rozwijanej listy w Jednostka rozmiaru pliku jeśli chcesz utworzyć łącze do nazw plików, zaznacz Twórz hiperlinki opcja.

5. kliknij Ok, zostanie utworzony nowy arkusz zawierający listę nazw plików i niektóre informacje o plikach.

Wskazówka: jeśli chcesz wyświetlić wszystkie nazwy arkuszy w programie Excel, możesz zastosować Kutools for Excel ' Utwórz listę nazw arkuszy narzędzie, utworzy nowy arkusz zawierający listę wszystkich nazw arkuszy, które można połączyć.

Kutools dla programu Excel: + przydatne przydatne narzędzia, upraszczające skomplikowane zadania w Excelu za pomocą kilku kliknięć.

Zalecane narzędzia zwiększające produktywność

Karta Office - przeglądanie w kartach, edycja, zarządzanie dokumentami w pakiecie Microsoft Office 2019-2003 i Office 365

Darmowe pobieranie

Profesjonalny dodatek przyspieszający pracę programu Excel 2019-2007, skracający godziny zadań do sekund

Ten dodatek zawiera dziesiątki grup zawodowych, a ponad 300 opcji zautomatyzuje większość Twoich codziennych zadań w programie Excel i zwiększy produktywność co najmniej o 50%. Takich jak grupy opcji opcji za jednym kliknięciem i konwersje zbiorcze.
Teraz masz szansę przyspieszyć się dzięki Kutools for Excel!

Darmowe pobieranie