Hogyan lehet gyorsan felsorolni egy mappa képneveit / fájlneveit az Excel cellákba?
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 mappák képneveit az Excelben a VBA segítségével
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 + 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. |
Sorolja fel a képneveket vagy egy mappa meghatározott formátumú fájlneveit az Excel programban a Filename List segítségével
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.
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. |
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.
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.
Töltse le a mintafájlt
Hogyan tüntetheted ki a tömegből, könnyedén dolgozhatsz és élvezheted az életet?
A Kutools for Excel naponta átlagosan 80%-kal javítja a hatékonyságot, így sok ideje marad a családdal való együttlétre és a szórakozásra.
300 fejlett eszköz megoldja 80% Excel-problémák, nem kell többé küzdenie a megoldások keresésével, könnyebben elvégzi a munkát.
Könnyen kezelheti az 1500 Excel-forgatókönyvet, legalább 1 órát spórolhat meg minden nap.
Legyen 5 perc alatt Excel-szakértő, szerezzen népek elismerését és lehetőségét az előléptetésre.
Az egy kattintásos segédprogramok kezelik a kötegelt feldolgozást, ezáltal elkerülheti az egérkattintások ezreit, elbúcsúzik az egér kezétől.
Megszabadulni a rote memorizáló képletektől és a komplex VBA-tól, pihenjen az agyának.
110000+ nagy hatékonyságú tiszt és 300+ világhírű vállalat választása.
Csak 39 dollárt vegyen igénybe, de sokkal többet ér, mint más emberek 4000 dolláros képzése
30 napos ingyenes próbaidőszak korlátozás nélkül, a teljes pénz visszafizetése 30 nap alatt, indoklás nélkül.
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
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!