V tej vadnici bom predstavil nekaj trikov za hitro naštevanje vseh imen slik ali imen datotek določene mape na Excelovem listu, kot je prikazano na sliki zaslona. HITRA NAVIGACIJA >Navedite imena slik v mapi v Excelu z VBA >S seznama imen datotek v Excelu navedite imena slik ali imena datotek v določenem formatu mape >Prenesite vzorčno datoteko

V Excelu ni vgrajene funkcije, ki bi lahko samodejno naštela vsa imena slik mape, ki ste jo izbrali, v celici lista, vendar imam tukaj kodo VBA, ki vam lahko pomaga hitro rešiti to nalogo.

1. V Excelu pritisnite druga + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. V pojavnem oknu kliknite Vstavi > Moduli da ustvarite nov skript modula.

3. Kopirajte spodnjo kodo in jih prilepite v novo okno skripta modula.

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. Pritisnite F5 , nato se prikaže pogovorno okno, v katerem izberete celico, v katero boste postavili imena slik.

5. klik OK za nadaljevanje izbiranja mape, v katero želite našteti imena slik v pogovornem oknu Brskanje.

6. klik OK, zdaj so bila vsa imena slik v izbrani mapi na seznamu v Excelu.

Opomba: V kodi VBA lahko v kodnem nizu jpg / png /… Če je InStr (1, xFileName, ".jpg") + InStr (1, xFileName, ".png") + InStr (1, xFileName, ".img") + InStr (1, xFileName, ".ioc") + InStr (1, xFileName, ".bmp") > 0 Potem na končnico datoteke, ki jo potrebujete, na primer, če želite navesti imena datotek datoteke v obliki dokumenta, spremenite samo kodni niz v Če je InStr (1, xFileName, ".doc")> 0 Potem.

Če morate pri vsakodnevnem delu navesti imena datotek ene ali vseh formatov mape v celici Excel, je koda zapletena in z njo ni enostavno ravnati, vendar lahko to nalogo hitro rešite na spodnji način.

Ali želite dvig plač in veliko časa za spremstvo z družino? Zavihek Office poveča vašo učinkovitost za 50% v Microsoft Officeu, ki deluje zdaj Neverjetno, delo z dvema ali več dokumenti je lažje in hitrejše kot delo z enim. V primerjavi z dobro znanimi brskalniki je orodje z zavihki v zavihku Office zmogljivejše in učinkovitejše. Vsak dan zmanjšajte na stotine klikov z miško in tipkanja na tipkovnici, poslovite se od roke miške. Če običajno delate z več dokumenti, vam bo Office Tab odlično prihranil čas. 30-dnevni brezplačni preizkus, kreditna kartica ni potrebna. Preberi večBrezplačno prenesete zdaj

Tu je pripomoček - Seznam imen datotek in Kutools za Excel, ki lahko

>> seznam vseh imen datotek v vseh oblikah datotek mape na novem listu;

>> navedite imena datotek v eni ali več oblikah datotek, ki jih določite v Excelu;

>> seznam imen datotek, vključno z podmapami in skritimi datotekami in mapami, shranite v Excel.

Brezplačen preizkus Poslovite se od mišje roke in cervikalne spondiloze

300 naprednih orodij Kutools for Excel rešuje 80% Opravila v Excelu v nekaj sekundah, izvlečejo vas iz tisočih klikov miške.

Preprosto obravnavajte 1500 delovnih scenarijev, ni treba izgubljati časa za iskanje rešitev, imate veliko časa za uživanje v svojem življenju. Vsak dan izboljšajte 80% produktivnost za 110000+ zelo učinkovitih ljudi, seveda tudi vi. Da vas ne bodo več mučile boleče formule in VBA, dajte možganom počitek in veselo delovno razpoloženje. 30-dnevno brezplačno preskusno obdobje s polnimi funkcijami, 30-dnevno vračilo denarja brez razloga. Boljše telo ustvarja boljše življenje.

Preberi več Prenesi zdaj

Po brezplačni namestitvi Kutools za Excel naredite spodaj:

1. Omogočite delovni zvezek, v katerega želite navesti imena datotek, in kliknite Kutools Plus > Uvoz / izvoz > Seznam imen datotek.

2. V Ljubljani Seznam imen datotek pogovorno okno, najprej kliknite  Če želite izbrati mapo, v katero želite našteti imena datotek, lahko potrdite polja Vključi datoteke v podimenike in Vključi skrite datoteke in mape kot jo potrebujete.

3. Nato izberite obliko datoteke, v kateri želite navesti imena Vrsta datotek oddelek.

Preveri Vse datoteke možnost, bo seznam vseh imen datotek v vseh oblikah datotek v izbrani mapi

Preveri Skupno in na spustnem seznamu izberite določeno obliko datoteke, v katero želite navesti imena datotek, nato pa bodo na seznamu navedena vsa imena datotek, ki ste jih izbrali na spustnem seznamu.

Preveri Določite možnost, nato vnesite končnice datotek (z vejico jih ločite), ki jih želite v imeniku navesti imena datotek, nato pa bo imena datotek navedla samo z vhodnimi končnicami datotek v Excelu

4. Na spustnem seznamu v izberite želeno velikost Enota velikosti datoteke če želite ustvariti povezavo do imen datotek, potrdite Ustvari hiperpovezave možnost.

5. klik Okbo ustvarjen nov list, v katerem bodo navedena imena datotek in nekatere informacije o njih.

Nasvet: če želite v Excelu navesti vsa imena listov, lahko uporabite Kutools za Excel ' Ustvari seznam imen listov pripomoček bo ustvaril nov list s seznamom vseh povezanih imen listov.

Kutools za Excel: + uporabna priročna orodja, ki zapletene naloge v Excelu poenostavijo v nekaj klikov.

Priporočena orodja za produktivnost

Zavihek Office - brskanje, urejanje in upravljanje dokumentov z zavihki v sistemih Microsoft Office 2019 - 2003 in Office 365

Brezplačen prenos

Profesionalni dodatek za pospeševanje Excela 2019-2007, opravila za ure zmanjša na sekunde

Ta dodatek vključuje na desetine poklicnih skupin, pri čemer bo več kot 300 možnosti avtomatiziralo večino vaših dnevnih opravil v Excelu in povečalo vašo produktivnost vsaj za 50%. Na primer skupine optonov z enim klikom in paketne pretvorbe.
Zdaj je vaša priložnost, da se pospešite s programom Kutools for Excel!

Brezplačen prenos