Yn y tiwtorial hwn, byddaf yn darparu rhai triciau ar restru pob enw llun neu enw ffeil ffolder benodol yn gyflym mewn dalen Excel fel y screenshot a ddangosir. CYFLEUSTER CYFLYM >Rhestrwch enwau lluniau ffolder yn Excel gyda VBA >Rhestrwch enwau lluniau neu enwau ffeiliau fformat penodol ffolder yn Excel gyda Rhestr Enw Ffeil >Dadlwythwch ffeil sampl

Yn Excel, nid oes swyddogaeth adeiledig a all restru'n awtomatig holl enwau lluniau ffolder rydych chi'n ei ddewis mewn cell o ddalen, ond yma mae gen i god VBA a all eich helpu i ddatrys y swydd hon yn gyflym.

1. Yn Excel, yna pwyswch Alt + F11 allweddi i agor Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Yn popping window, cliciwch Mewnosod > Modiwlau i greu sgript Modiwl newydd.

3. Copïwch y cod isod a'u pastio i ffenestr sgript newydd y Modiwl.

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. Gwasgwch F5 allwedd, yna mae deialog yn galw allan i chi ddewis cell i osod enwau'r lluniau.

5. Cliciwch OK i barhau i ddewis y ffolder rydych chi am restru enwau'r lluniau yn deialog Pori.

6. Cliciwch OK, nawr mae'r holl enwau lluniau yn y ffolder a ddewiswyd wedi'u rhestru yn Excel.

Nodyn: Yn y cod VBA, gallwch jpg / png /… yn y llinyn cod Os yw InStr (1, xFileName, ".jpg") + InStr (1, xFileName, ".png") + InStr (1, xFileName, ".img") + InStr (1, xFileName, ".ioc") + InStr (1, xFileName, ".bmp") > 0 Yna i'r estyniad ffeil sydd ei angen arnoch, er enghraifft, os ydych chi am restru enwau ffeiliau'r ffeil ar ffurf doc, dim ond newid llinyn y cod i Os InStr (1, xFileName, ".doc")> 0 Yna.

Os oes angen i chi restru enwau ffeiliau un neu bob fformat mewn ffolder yng nghell Excel yn eich gwaith bob dydd, mae'r cod yn gymhleth ac nid yw'n hawdd ei drin, ond, o dan y ffordd, gallwch chi ddatrys y swydd hon yn gyflym.

Ydych chi Am Gael Codi Tâl a Llawer o Amser i Gyfeilio i'r Teulu? Mae Office Tab yn Gwella Eich Effeithlonrwydd 50% Yn Microsoft Office Working Right Now Yn anghredadwy, mae gweithio mewn dwy ddogfen neu fwy yn haws ac yn gyflymach na gweithio mewn un. O'i gymharu â phorwyr adnabyddus, mae'r offeryn tabbed yn Office Tab yn fwy pwerus ac yn fwy effeithlon. Gostyngwch gannoedd o gliciau llygoden a theipio bysellfwrdd bob dydd i chi, ffarweliwch â llaw'r llygoden nawr. Os ydych chi fel arfer yn gweithio ar sawl dogfen, bydd Office Tab yn arbed amser gwych i chi. 30- treial am ddim diwrnod, nid oes angen cerdyn credyd. Darllenwch fwyAm ddim Lawrlwythwch Nawr

Dyma gyfleustodau - Rhestr Enw Ffeil in Kutools ar gyfer Excel, a all

>> rhestru holl enwau ffeiliau ym mhob fformat ffeil mewn ffolder mewn dalen newydd;

>> rhestrwch enwau'r ffeiliau mewn un neu sawl fformat ffeil rydych chi'n ei nodi i Excel;

>> rhestru enwau ffeiliau gan gynnwys is-ffolderi a ffeiliau a ffolderau cudd i Excel.

Treial am ddim Ffarwelio â Llaw Llygoden a Spondylosis Serfigol Nawr

Mae offer uwch 300 o Kutools ar gyfer Excel yn datrys 80% Tasgau Excel mewn eiliadau, tynnu chi allan o'r miloedd o llygoden-cliciau.

Deliwch yn hawdd â 1500 o senarios gwaith, nid oes angen gwastraffu amser ar gyfer chwilio atebion, cael llawer o amser i fwynhau'ch bywyd. Gwella cynhyrchiant 80% ar gyfer 110000+ o bobl hynod effeithiol bob dydd, gan gynnwys eich cynnwys chi wrth gwrs. Peidiwch â chael eich poenydio bellach gan fformiwlâu poenus a VBA, rhowch orffwys a hwyliau gweithio llawen i'ch ymennydd. Treial 30 diwrnod am ddim gyda nodweddion llawn, arian 30 diwrnod yn ôl heb resymau. Mae Corff Gwell yn Creu Bywyd Gwell.

Darllenwch fwy Lawrlwytho Nawr

Ar ôl gosod Kutools ar gyfer Excel am ddim, gwnewch fel isod:

1. Galluogi'r llyfr gwaith rydych chi am restru enwau'r ffeiliau, yna cliciwch Kutools Byd Gwaith > Mewnforio / Allforio > Rhestr Enw Ffeil.

2. Yn y Rhestr Enw Ffeil deialog, yn gyntaf, cliciwch  i ddewis ffolder yr ydych am restru ei enwau ffeiliau, yna gallwch wirio blychau gwirio Cynhwyswch ffeiliau mewn is-gyfeiriaduron ac Cynhwyswch ffeiliau a ffolderau cudd fel y mae arnoch ei angen.

3. Yna dewiswch y fformat ffeil rydych chi am restru'r enwau ynddo Math o ffeiliau adran hon.

Gwirio Pob ffeil opsiwn, bydd yn rhestru'r holl enwau ffeiliau yn yr holl fformatau ffeil yn y ffolder a ddewiswyd

Gwirio Cyffredin opsiwn, a dewiswch y fformat ffeil penodol rydych chi am restru enwau'r ffeiliau o'r gwymplen, yna bydd yn rhestru holl enwau ffeiliau'r fformat ffeil a ddewiswch yn y gwymplen

Gwirio Nodwch opsiwn, yna teipiwch yr estyniadau ffeil (gan ddefnyddio coma i'w gwahanu) rydych chi am restru enwau'r ffeiliau yn y blwch testun, yna dim ond gyda'r estyniadau ffeil sy'n mewnbynnu yn Excel y bydd yn rhestru enwau'r ffeiliau.

4. Dewiswch yr uned faint yn ôl yr angen o'r rhestr ostwng i mewn Uned maint ffeil adran, os ydych chi am greu dolen i enwau'r ffeiliau, gwiriwch Creu hypergysylltiadau opsiwn.

5. Cliciwch Ok, bydd taflen newydd yn cael ei chreu i restru enwau'r ffeiliau a rhywfaint o wybodaeth ffeil.

Tip: os ydych chi am restru pob enw dalen yn Excel, gallwch chi wneud cais Kutools ar gyfer Excel ' Creu Rhestr o Enwau Dalennau cyfleustodau, bydd yn creu dalen newydd i restru'r holl enwau dalennau y gellir eu cysylltu.

Kutools ar gyfer Excel: + offer defnyddiol defnyddiol, gan symleiddio'r tasgau cymhleth yn Excel i ychydig o gliciau.

Offer Cynhyrchaeth a Argymhellir

Tab Office - Pori Tabiau, Golygu, Rheoli Dogfennau Yn Microsoft Office 2019 - 2003 Ac Office 365

Lawrlwythiad Am Ddim

Ychwanegiad Proffesiynol ar gyfer Cyflymu Excel 2019-2007, crebachu tasgau oriau i eiliadau

Mae'r ychwanegiad hwn yn cynnwys dwsinau o grwpiau proffesiynol, gyda 300+ opsiwn yn awtomeiddio'r rhan fwyaf o'ch tasgau dyddiol yn Excel, ac yn cynyddu eich cynhyrchiant o 50% o leiaf. Megis grwpiau o optonau un clic ac addasiadau swp.
Nawr dyma'ch cyfle i gyflymu'ch hun gyda Kutools ar gyfer Excel!

Lawrlwythiad Am Ddim