Note: The other languages of the website are Google-translated. Back to English

Hogyan importálhat több fájlnevet az Excel celláiba?

Tegyük fel, hogy több száz fájlt tartalmazó mappa van, és most ezeket a fájlneveket egy munkalap celláiba kívánja importálni. Az egyesével történő másolás és beillesztés sok időt fog igénybe venni, ebben a cikkben néhány gyors trükkről fogok beszélni, amelyek segítségével több fájlnevet importálhat egy mappából egy munkalapba.

Több fájlnév importálása VBA kóddal ellátott munkalap cellákba

Több fájlnév importálása a munkalap celláiba a Kutools for Excel alkalmazással


Több fájlnév importálása VBA kóddal ellátott munkalap cellákba

A következő VBA-kód segíthet a fájlnevek, a fájlkiterjesztések és a mappa nevének importálásában a munkalap celláiba, kérjük, tegye a következőket:

1. Indítson el egy új munkalapot, amelybe importálni szeretné a fájlneveket.

2. Tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.

3. Kattints betétlap > Modulok, és illessze be a következő kódot a Modulok Ablak.

VBA-kód: Több fájlnév importálása a munkalap celláiba

Sub GetFileList()
'updateby Extendoffice
    Dim xFSO As Object
    Dim xFolder As Object
    Dim xFile As Object
    Dim xFiDialog As FileDialog
    Dim xPath As String
    Dim i As Integer
    Set xFiDialog = Application.FileDialog(msoFileDialogFolderPicker)
    If xFiDialog.Show = -1 Then
        xPath = xFiDialog.SelectedItems(1)
    End If
    Set xFiDialog = Nothing
    If xPath = "" Then Exit Sub
    Set xFSO = CreateObject("Scripting.FileSystemObject")
    Set xFolder = xFSO.GetFolder(xPath)
    ActiveSheet.Cells(1, 1) = "Folder name"
    ActiveSheet.Cells(1, 2) = "File name"
    ActiveSheet.Cells(1, 3) = "File extension"
    i = 1
    For Each xFile In xFolder.Files
        i = i + 1
        ActiveSheet.Cells(i, 1) = xPath
        ActiveSheet.Cells(i, 2) = Left(xFile.Name, InStrRev(xFile.Name, ".") - 1)
        ActiveSheet.Cells(i, 3) = Mid(xFile.Name, InStrRev(xFile.Name, ".") + 1)
    Next
End Sub

4. Ezután nyomja meg a gombot F5 gombot a kód végrehajtásához, és a felbukkanó Tallózás ablakban válassza ki azt a mappát, amelybe importálni szeretné a fájlnevek űrlapját, lásd a képernyőképet:

doc import fájlnevek 1

5. Kattintson a gombra OK gombra, és a következő eredményt kapja:

doc import fájlnevek 2

Megjegyzések: Ha az adott mappában vannak almappák, akkor az almappák fájlnevei nem lesznek importálva.


Több fájlnév importálása a munkalap celláiba a Kutools for Excel alkalmazással

Ha a mappában és az almappában is importálnia kell a fájlneveket, ne aggódjon a Kutools az Excel számára'S Fájlnév lista segédprogrammal könnyen importálhatja az összes fájlnevet az adott mappában, beleértve az almappákat is.

Kutools az Excel számára : több mint 300 praktikus Excel-bővítménnyel, ingyenesen, korlátozás nélkül, 30 nap alatt kipróbálható. 

Telepítése után Kutools az Excel számára, kérjük, tegye a következőket:

1. Kattints Kutools Plus> Import Export > Fájlnév lista, lásd a képernyőképet:

2. Az Fájlnév lista párbeszédpanelen hajtsa végre a következő műveleteket:

(1.) Kattintson doc import fájlnevek 5 gombot az importálni kívánt fájlokat tartalmazó mappa kiválasztásához;

(2.) Ellenőrizze Fájlok felvétele az alkönyvtárakba az almappák fájlneveinek importálása;

(3.) Adja meg az importálni kívánt fájltípust a Fájlok típusa szakasz;

(4.) Válasszon ki egy fájlméret-egységet, amelyet megjeleníteni szeretne Fájlméret egység szakasz;

(5.) Ha hiperhivatkozni akarja a fájlneveket és mappákat, ellenőrizze Hiperhivatkozások létrehozása opciót.

doc import fájlnevek 4

3. A beállítások elvégzése után kattintson a gombra OK gombra, és a mappában és az almappákban található fájlneveket is importálja egy új munkalapra, az alábbi képernyőkép szerint:

doc import fájlnevek 6

tippek: Ha csak egy megadott típusú fájlnevet szeretne importálni egy adott mappából, ellenőrizheti Adja meg lehetőség a Fájlnév lista párbeszédpanelt, és írja be a fájlkiterjesztést, majd csak a megadott típusú fájlneveket importálja mind a mappából, mind az almappákból.

Kattintson ide, ha többet szeretne megtudni erről a fájlnévlista szolgáltatásról ...

Töltse le és ingyenes próbaverziót Kutools for Excel Now!


Bemutató: Több fájlnév importálása munkalap cellákba a Kutools for Excel alkalmazással

Kutools az Excel számára: több mint 300 praktikus Excel-bővítménnyel, ingyenesen, korlátozás nélkül, 30 nap alatt kipróbálható. Töltse le és ingyenes próbaverziót most!

Kapcsolódó cikkek:

Hogyan lehet mappába és almappákba tartozó összes fájlt felsorolni egy munkalapba?

Hogyan lehet felsorolni az összes fájlnevet egy mappában, és létrehozni hozzájuk hiperhivatkozásokat az Excelben?


A legjobb irodai termelékenységi eszközök

A Kutools for Excel megoldja a legtöbb problémát, és 80% -kal növeli a termelékenységet

  • újrafelhasználás: Gyorsan helyezze be összetett képletek, diagramok és bármi, amit korábban használt; Cellák titkosítása jelszóval; Levelezőlista létrehozása és e-maileket küldeni ...
  • Szuper Formula Bár (könnyedén szerkeszthet több szöveget és képletet); Olvasás elrendezés (könnyen olvasható és szerkeszthető nagyszámú cella); Beillesztés a Szűrt tartományba...
  • Cellák / sorok / oszlopok egyesítése az adatok elvesztése nélkül; Osztott cellák tartalma; Kombinálja a duplikált sorokat / oszlopokat... megakadályozza az ismétlődő cellákat; Hasonlítsa össze a tartományokat...
  • Válassza a Másolat vagy az Egyedi lehetőséget Sorok; Válassza az Üres sorok lehetőséget (az összes cella üres); Super Find és Fuzzy Find sok munkafüzetben; Véletlenszerű kiválasztás ...
  • Pontos másolás Több cella a képletreferencia megváltoztatása nélkül; Automatikus referenciák létrehozása több lapra; Helyezze be a golyókat, Jelölőnégyzetek és még sok más ...
  • Kivonat szöveg, Szöveg hozzáadása, Eltávolítás pozíció szerint, Hely eltávolítása; Hozz létre és nyomtasson személyhívó részösszegeket; Konvertálás a cellatartalom és a megjegyzések között...
  • Szuper szűrő (mentse el és alkalmazza a szűrősémákat más lapokra); Haladó rendezés hónap / hét / nap, gyakoriság és egyebek szerint; Speciális szűrő félkövér, dőlt betűvel ...
  • Kombinálja a munkafüzeteket és a munkalapokat; Táblázatok egyesítése kulcsoszlopok alapján; Az adatok felosztása több lapra; Kötegelt konvertálás xls, xlsx és PDF...
  • Több mint 300 hatékony funkció. Támogatja az Office / Excel 2007-2021 és 365 verziókat. Minden nyelvet támogat. Könnyű üzembe helyezés vállalatában vagy szervezetében. Teljes funkciók 30 napos ingyenes próbaverzió. 60 napos pénzvisszafizetési garancia.
kte lap 201905

Az Office fül a füles felületet hozza az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
officetab alja
A megjegyzések rendezése szerint
Hozzászólások (14)
Az 5-t az 5-ből kiértékelte · 1 értékelés
A weboldal moderátora ezt a megjegyzést minimalizálta
Hé,
Van egy ecxel lapom, amelyen van néhány terméknév, és van egy mappám is, amiben néhány pdf fájl neve megegyezik a cellaadatokban, például ha az A2 cella értéke apple1, a PDF fájl neve apple1.pdf, szeretném tudni, hogy melyik név. hiányzik a fájl, meg tudjuk-e szerezni valahogy az excelben?
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia Myk,
Először a fenti kód segítségével beillesztheti a fájlneveket a munkalapba, felsorolja a fájlnevek két oszlopát egy munkalapon, majd a Kutools azonos és különböző cellák kiválasztása funkciójával azonosíthatja és kiemelheti a hiányzó fájlneveket, lásd a képernyőképet. :

Kérlek próbáld ki, köszönöm!
A weboldal moderátora ezt a megjegyzést minimalizálta
Nagyon hasznos, köszönöm!
A weboldal moderátora ezt a megjegyzést minimalizálta
Apakah bisa merename fájl excel?
terimakasih sangat membantu perkerjaan saya,
A weboldal moderátora ezt a megjegyzést minimalizálta
saya coba yg pake vba di run bisa tapi pas di step browser nya bukan oke tapi open terus sampai ke file tertentu dan ketika di klik malah run time 26 path not found bisa bantu kenapa itu bisa terjadi?
A weboldal moderátora ezt a megjegyzést minimalizálta
Kösz. Fantasztikus volt
A weboldal moderátora ezt a megjegyzést minimalizálta
A VBA kódnál hogyan húznád be a módosítás dátumát is?
A weboldal moderátora ezt a megjegyzést minimalizálta
Helló,
Adja hozzá a módosítás dátuma oszlopot az importált fájlnevekhez, alkalmazza a következő VBA kódot, próbálja ki, remélem segíthet!

Sub GetFileList()
Dim xFSO objektumként
Dim xFolder mint objektum
Dim xFile mint objektum
Dim xFiDialog mint FileDialog
Dim xPath As String
Dim i mint egész
Set xFiDialog = Application.FileDialog(msoFileDialogFolderPicker)
Ha xFiDialog.Show = -1 Akkor
xPath = xFiDialog.SelectedItems(1)
Ha véget
Állítsa be az xFiDialog = Semmit
Ha xPath = "", akkor lépjen ki a Subból
Set xFSO = CreateObject("Scripting.FileSystemObject")
Állítsa be az xFolder = xFSO.GetFolder(xPath)
ActiveSheet.Cells(1, 1) = "Mappa neve"
ActiveSheet.Cells(1, 2) = "Fájlnév"
ActiveSheet.Cells(1, 3) = "Fájlkiterjesztés"
ActiveSheet.Cells(1, 4) = "Utolsó módosítás dátuma"
i = 1
Minden xFolder.Files xFájlhoz
i = i + 1
ActiveSheet.Cells(i, 1) = xPath
ActiveSheet.Cells(i, 2) = Left(xFile.Name, InStrRev(xFile.Name, ".") - 1)
ActiveSheet.Cells(i, 3) = Mid(xFile.Name, InStrRev(xFile.Name, ".") + 1)
ActiveSheet.Cells(i, 4) = CDate(xFile.datelastmodified)
Következő
End Sub
A weboldal moderátora ezt a megjegyzést minimalizálta
van rá mód, hogy a mappa elérési útját már a kódban beírjam?
A weboldal moderátora ezt a megjegyzést minimalizálta
csak a mappa nevét szeretném megemlíteni.mi a vba kód erre.
A weboldal moderátora ezt a megjegyzést minimalizálta
táblát akarok hozzáadni, csak a mappa nevét és az adatokat is módosítani?
A weboldal moderátora ezt a megjegyzést minimalizálta
Helló,
Szeretné felsorolni az összes mappa nevét egy adott főmappából? Kérjük, írja le részletesebben a problémáját.
A weboldal moderátora ezt a megjegyzést minimalizálta
Van egy másik egyszerű módszer is. Csak másolja ki a könyvtár elérési útját, ahová a dokumentumokat mentette, és illessze be a hivatkozást a böngészőbe (chrome/mozilla). Megkapja a névlistát, és csak másolja be az excelbe. Egészségére!
A weboldal moderátora ezt a megjegyzést minimalizálta
nagyon hasznos. Tnx sok
Az 5-t az 5-ből kiértékelte
Még senki sem írt megjegyzést
Hagyja meg észrevételeit
Feladás vendégként
×
Értékeld ezt a bejegyzést:
0   Karakterek
Javasolt helyek

Kövess minket

Copyright © 2009 - www.extendoffice.com. | Minden jog fenntartva. Powered by ExtendOffice. | Oldaltérkép
A Microsoft és az Office logó a Microsoft Corporation védjegyei vagy bejegyzett védjegyei az Egyesült Államokban és / vagy más országokban.
Sectigo SSL védi