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

Kako uvoziti več imen datotek v celice v Excelu?

Recimo, da imate mapo s stotinami datotek in zdaj želite ta imena datotek uvoziti v celice delovnega lista. Kopiranje in lepljenje enega za drugim bo porabilo veliko časa, v tem članku bom govoril o nekaj hitrih trikih, ki vam bodo pomagali pri uvozu več imen datotek iz mape na delovni list.

Uvozi več imen datotek v celice delovnega lista s kodo VBA

Uvozi več imen datotek v celice delovnega lista s programom Kutools za Excel


Uvozi več imen datotek v celice delovnega lista s kodo VBA

Naslednja koda VBA vam lahko pomaga uvoziti imena datotek, končnice datotek in ime mape v celice delovnega lista, naredite naslednje:

1. Zaženite nov delovni list, v katerega želite uvoziti imena datotek.

2. Držite tipko ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

3. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v Moduli Okno.

Koda VBA: Uvozi več imen datotek v celice delovnega lista

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. Nato pritisnite F5 tipko za zagon te kode in v pojavnem oknu Brskaj izberite mapo, v katero želite uvoziti obrazec imen datotek, glejte posnetek zaslona:

doc uvozi imena datotek 1

5. In nato kliknite OK in dobili boste naslednji rezultat:

doc uvozi imena datotek 2

Opombe: Če so v vaši določeni mapi podmape, se imena datotek v podmapah ne bodo uvozila.


Uvozi več imen datotek v celice delovnega lista s programom Kutools za Excel

Če želite uvoziti imena datotek v mapo in podmape, ne skrbite, z Kutools za ExcelJe Seznam imen datotek Pripomoček lahko enostavno uvozite vsa imena datotek v določeno mapo, vključno s podmapami.

Kutools za Excel : z več kot 300 priročnimi dodatki za Excel, ki jih lahko brezplačno preizkusite v 30 dneh. 

Po namestitvi Kutools za Excel, naredite naslednje:

1. Kliknite Kutools Plus> Uvozno-izvoznih > Seznam imen datotek, glej posnetek zaslona:

2. v Seznam imen datotek v pogovornem oknu izvedite naslednje postopke:

(1.) Kliknite doc uvozi imena datotek 5 gumb, da izberete mapo z datotekami, ki jih želite uvoziti;

(2.) Preverite Vključi datoteke v podimenike za uvoz imen datotek podmap;

(3.) V razdelku določite vrsto datotek, ki jih želite uvoziti Vrsta datotek odsek;

(4.) Na seznamu izberite enoto velikosti datoteke, ki jo želite prikazati Enota velikosti datoteke odsek;

(5.) Če želite hiperpovezati imena datotek in mape, preverite Ustvari hiperpovezave možnost.

doc uvozi imena datotek 4

3. Po končanih nastavitvah kliknite OK in imena datotek v mapi in podmapah se uvozijo v nov delovni list, kot je prikazano na sliki spodaj:

doc uvozi imena datotek 6

nasveti: Če želite samo uvoziti imena določenih datotek tipa iz določene mape, lahko preverite Določite možnost v Seznam imen datotek pogovorno okno in vanj vnesite končnico datoteke, nato pa bo uvozila samo navedena imena datotek tipa iz mape in podmap.

Kliknite, če želite izvedeti več o tej funkciji seznama datotek ...

Prenesite in brezplačno preizkusite Kutools za Excel zdaj!


Predstavitev: Uvozi več imen datotek v celice delovnega lista s programom Kutools za Excel

Kutools za Excel: z več kot 300 priročnimi dodatki za Excel, brezplačno preizkusite brez omejitev v 30 dneh. Prenesite in brezplačno preskusite zdaj!

Sorodni članki:

Kako vse datoteke v mapi in podmapah našteti na delovnem listu?

Kako našteti vsa imena datotek v mapi in ustvariti hiperpovezave zanje v Excelu?


Najboljša orodja za pisarniško produktivnost

Kutools za Excel rešuje večino vaših težav in poveča vašo produktivnost za 80%

  • Ponovna uporaba: Hitro vstavite zapletene formule, grafikoni in vse, kar ste že uporabljali; Šifriraj celice z geslom; Ustvari poštni seznam in pošiljanje e-pošte ...
  • Vrstica Super Formula (enostavno urejanje več vrstic besedila in formule); Bralna postavitev (enostavno branje in urejanje velikega števila celic); Prilepite v filtrirani obseg...
  • Združi celice / vrstice / stolpce brez izgube podatkov; Vsebina razdeljenih celic; Združi podvojene vrstice / stolpce... prepreči podvojene celice; Primerjaj obsege...
  • Izberite Duplicate ali Unique Vrstice; Izberite prazne vrstice (vse celice so prazne); Super Find in Fuzzy Find v mnogih delovnih zvezkih; Naključna izbira ...
  • Natančna kopija Več celic brez spreminjanja sklica formule; Samodejno ustvarjanje referenc na več listov; Vstavi oznake, Potrditvena polja in še več ...
  • Izvleček besedila, Dodaj besedilo, Odstrani po položaju, Odstrani presledek; Ustvari in natisni vmesne seštevke strani Pretvarjanje med vsebino celic in komentarji...
  • Super filter (shranite in uporabite sheme filtrov za druge liste); Napredno razvrščanje glede na mesec / teden / dan, pogostost in drugo; Poseben filter s krepko, ležeče ...
  • Združite delovne zvezke in delovne liste; Spoji tabele na podlagi ključnih stolpcev; Razdelite podatke na več listov; Paketna pretvorba xls, xlsx in PDF...
  • Več kot 300 zmogljivih funkcij. Podpira Office / Excel 2007-2021 in 365. Podpira vse jezike. Enostavna uvedba v vašem podjetju ali organizaciji. 30-dnevna brezplačna preizkusna različica vseh funkcij. 60-dnevna garancija vračila denarja.
zavihek kte 201905

Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo

  • Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
dno pisarniške mize
Komentarji (14)
Ocenjeno 5 iz 5 · 1 ocene
Ta komentar je moderator na spletnem mestu minimiziral
Hej,
Imam list ecxel, ki ima nekaj imen izdelkov in imam tudi mapo, v kateri je nekaj datotek pdf, imenovanih enako kot v podatkih celice, na primer, če je vrednost celice A2 apple1, ime datoteke Pdf je apple1.pdf, želim vedeti, katero ime manjka datoteka, ali jo lahko dobimo v excelu somwhow..
Ta komentar je moderator na spletnem mestu minimiziral
Pozdravljeni, Myk,
Najprej lahko uporabite zgornjo kodo, da vstavite imena datotek v delovni list, navedete dva stolpca imen datotek v en delovni list, nato pa lahko uporabite funkcijo Izbira enakih in različnih celic Kutools, da prepoznate in označite manjkajoča imena datotek, glejte posnetek zaslona :

Prosim, poskusite, hvala!
Ta komentar je moderator na spletnem mestu minimiziral
Zelo koristno, hvala!
Ta komentar je moderator na spletnem mestu minimiziral
Ali želite datoteko z velikim imenom v Excelu?
terimakasih sangat membantu perkerjaan saya,
Ta komentar je moderator na spletnem mestu minimiziral
saya coba yg pake vba di run bisa tapi pas di step browser nya bukan oke tapi open terus sampai ke file tertentu in ketika di kliknite malah run time 26 path not found bisa bantu kenapa itu bisa terjadi?
Ta komentar je moderator na spletnem mestu minimiziral
Hvala. Bilo je super
Ta komentar je moderator na spletnem mestu minimiziral
Za kodo VBA, kako bi pritegnili tudi spremenjen datum?
Ta komentar je moderator na spletnem mestu minimiziral
Zdravo,
Dodajte stolpec datumske spremembe za uvožena imena datotek, uporabite naslednjo kodo VBA, poskusite, upam, da vam lahko pomaga!

Sub GetFileList()
Dim xFSO kot objekt
Zatemni xFolder kot objekt
Zatemni xFile kot objekt
Zatemni xFiDialog kot FileDialog
Dim xPath kot niz
Dim i kot celo število
Nastavite xFiDialog = Application.FileDialog(msoFileDialogFolderPicker)
Če je xFiDialog.Show = -1 Potem
xPath = xFiDialog.SelectedItems(1)
Konec Če
Nastavite xFiDialog = Nič
Če je xPath = "" Nato zapustite Sub
Nastavite xFSO = CreateObject("Scripting.FileSystemObject")
Nastavite xFolder = xFSO.GetFolder(xPath)
ActiveSheet.Cells(1, 1) = "Ime mape"
ActiveSheet.Cells(1, 2) = "Ime datoteke"
ActiveSheet.Cells(1, 3) = "Razširitev datoteke"
ActiveSheet.Cells(1, 4) = "Datum zadnje spremembe"
i = 1
Za vsako xFile v 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)
ActiveSheet.Cells(i, 4) = CDate(xFile.datelastmodified)
Naslednji
End Sub
Ta komentar je moderator na spletnem mestu minimiziral
ali obstaja način, da se pot mape že vstavi v kodo?
Ta komentar je moderator na spletnem mestu minimiziral
želim omeniti samo ime mape. kaj je vba koda za to.
Ta komentar je moderator na spletnem mestu minimiziral
želim dodati tabelo, samo ime mape in spremenjene podatke?
Ta komentar je moderator na spletnem mestu minimiziral
Zdravo,
Ali želite prikazati vsa imena map iz določene glavne mape? Prosimo, opišite svojo težavo bolj podrobno.
Ta komentar je moderator na spletnem mestu minimiziral
Obstaja še ena preprosta metoda. Preprosto kopirajte pot imenika, kamor ste shranili dokumente, in prilepite to povezavo v brskalnik (chrome/mozilla). Dobili boste seznam imen in samo kopirajte prilepite v excel. Na zdravje!
Ta komentar je moderator na spletnem mestu minimiziral
zelo koristno. Tnx veliko
Ocenjeno 5 iz 5
Tu še ni objavljenih komentarjev
Pustite vaše komentarje
Objava kot gost
×
Ocenite to objavo:
0   Znaki
Predlagane lokacije

Sledi nam

Copyright © 2009 - www.extendoffice.com. | Vse pravice pridržane. Poganja ga ExtendOffice. | Kazalo
Microsoft in logotip Office sta blagovni znamki ali registrirani blagovni znamki družbe Microsoft Corporation v ZDA in / ali drugih državah.
Zaščiteno s Sectigo SSL