Ebben az oktatóanyagban néhány trükköt fogok nyújtani arról, hogyan lehet gyorsan felsorolni egy adott mappa összes képnevét vagy fájlnevét egy Excel-lapra, ahogy a képernyőképen látható. GYORS NAVIGÁCIÓ >Sorolja fel a mappák képneveit az Excelben a VBA segítségével >Sorolja fel a képneveket vagy egy mappa meghatározott formátumú fájlneveit az Excel programban a Filename List segítségével >Töltse le a minta fájlt

Az Excel programban nincs olyan beépített funkció, amely automatikusan felsorolhatna egy mappa összes képnevét egy lap cellájában, de itt van egy VBA kódom, amely segít megoldani ezt a feladatot.

1. Az Excel programban nyomja meg a gombot más + F11 gombokat a megnyitáshoz Microsoft Visual Basic for Applications ablak.

2. A felbukkanó ablakban kattintson a gombra betétlap > Modulok új modul parancsfájl létrehozásához.

3. Másolja az alábbi kódot, és illessze be az új modul parancsfájl ablakba.

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. nyomja meg F5 gombot, majd megjelenik egy párbeszédpanel, ahol kiválaszthat egy cellát a képnevek elhelyezéséhez.

5. kettyenés OK a böngészés párbeszédpanelen folytathatja a képnevek felsorolásához kívánt mappa kiválasztását.

6. kettyenés OK, most a kiválasztott mappában található összes képnév felkerült az Excel programba.

Jegyzet: A VBA kódban a jpg / png /… kódot adhatja meg a kódláncban Ha InStr (1, xFileName, ".jpg") + InStr (1, xFileName, ".png") + InStr (1, xFileName, ".img") + InStr (1, xFileName, ".ioc") + InStr (1, xFileName, ".bmp") > 0 Akkor a szükséges fájlkiterjesztéshez, például, ha a fájl fájlneveit doc formátumban szeretné felsorolni, csak a Ha az InStr (1, xFileName, ".doc")> 0, akkor.

Ha a mindennapi munkában általában fel kell sorolnia egy mappa egyik vagy összes formátumának fájlnevét az Excel cellában, a kód összetett és nem könnyen kezelhető, de az alábbiak szerint gyorsan megoldhatja ezt a feladatot.

Szeretne fizetést emelni és sok időt arra, hogy elkísérje a családját? Az Office lap 50%-kal növeli a hatékonyságot a jelenleg működő Microsoft Office-ban Hihetetlen, hogy két vagy több dokumentumnál dolgozni könnyebb és gyorsabb, mint egynél dolgozni. A jól ismert böngészőkkel összehasonlítva az Office Tab füles eszköze erősebb és hatékonyabb. Csökkentse az egérkattintások százait és a billentyűzet gépelését minden nap az Ön számára, búcsúzzon el most az egér kezétől. Ha általában több dokumentummal dolgozik, az Office Tab nagyszerű időt takarít meg. 30-napos ingyenes próbaverzió, nincs szükség hitelkártyára. KATT ideIngyenes letöltése most

Itt van egy segédprogram - Fájlnév lista in Kutools az Excel számára, melyik tud

>> felsorolja az összes fájlnevet egy mappa összes fájlformátumában egy új munkalapon;

>> sorolja fel a fájlneveket egy vagy több fájlformátumban, amelyet megad az Excel programban;

>> listázza a fájlneveket, beleértve az almappákat, valamint a rejtett fájlokat és mappákat az Excelbe.

Ingyenes próbaverzió Most búcsút mondjon az egér kezének és a nyaki spondylosisnak

A Kutools for Excel 300 fejlett eszköze megoldja 80% Az Excel-feladatok másodpercek alatt, húzza ki Önt a több ezer kattintásból.

Könnyen kezelheti 1500 működő forgatókönyvet, nem kell időt pazarolnia a megoldások keresésére, sok ideje van arra, hogy élvezze az életét. Javítsa 80% -os termelékenységet minden nap 110000+ rendkívül hatékony ember számára, természetesen Önnel együtt. Ne kínozzon többé fájdalmas formulák és VBA, adja meg az agyának a pihenést és az örömteli munkakedvet. 30 napos ingyenes próbaverzió teljes funkciókkal, 30 napos pénzvisszafizetés indoklás nélkül. Egy jobb test jobb életet teremt.

KATT ide Töltse le most

A Kutools for Excel ingyenes telepítése után tegye a következőket:

1. Engedélyezze a fájlnevek felsorolásához használni kívánt munkafüzetet, majd kattintson a gombra Kutools Plus > Import / Export > Fájlnév lista.

2. Ban,-ben Fájlnév lista párbeszédpanelen először kattintson a gombra  hogy kiválasszon egy mappát, amelynek a fájlneveit fel akarja sorolni, akkor jelölje be a jelölőnégyzeteket Fájlok felvétele az alkönyvtárakba és a Tartalmazzon rejtett fájlokat és mappákat amire szüksége van.

3. Ezután válassza ki a fájlformátumot, amelyben fel szeretné sorolni a neveket Fájlok típusa szakasz.

Jelölje be Minden fájl opcióval felsorolja az összes fájlnevet a kiválasztott mappa összes fájlformátumában

Jelölje be Közös opciót, és a legördülő listából válassza ki azt a fájlformátumot, amelyhez fel szeretné sorolni a fájlneveket, majd felsorolja a legördülő listában kiválasztott fájlformátum összes fájlnevét

Jelölje be Adja meg opciót, majd írja be azokat a fájlkiterjesztéseket (vesszővel választva el őket), amelyekkel fel szeretné sorolni a fájlneveket a szövegmezőbe, ekkor csak a fájlneveket sorolja fel az Excel fájlbővítményekkel

4. Válassza ki a kívánt méretegységet a legördülő listából Fájlméret egység szakaszban, ha hivatkozást szeretne létrehozni a fájlnevekre, ellenőrizze Hiperhivatkozások létrehozása opciót.

5. kettyenés Ok, egy új lap jön létre, amely felsorolja a fájlneveket és néhány fájlinformációt.

Tipp: ha az összes lapnevet fel szeretné sorolni az Excelben, alkalmazhatja a Kutools for Excel alkalmazást. Létrehozza a munkalapok listáját segédprogrammal létrehoz egy új lapot az összes összekapcsolható lap nevének felsorolásához.

Kutools az Excel számára: + hasznos praktikus eszközök, egyszerűsítve az Excel bonyolult feladatait néhány kattintással.

Ajánlott termelékenységi eszközök

Office lap – lapos böngészés, szerkesztés, dokumentumok kezelése a Microsoft Office 2019 – 2003 és az Office 365 programban

ingyenes letöltés

Egy professzionális bővítmény az Excel 2019-2007 gyorsításához, az órai feladatok másodpercre zsugorítására

Ez a bővítmény több tucat szakmai csoportot tartalmaz, több mint 300 opcióval automatizálja a napi feladatok nagy részét az Excel programban, és legalább 50% -kal növeli a termelékenységet. Ilyenek például az egy kattintásos optonok és a kötegelt konverziók csoportjai.
Most itt a lehetőség, hogy felgyorsítsa magát a Kutools for Excel segítségével!

ingyenes letöltés