Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

Kako uvoziti več imen datotek v celice v Excelu?

Če imate mapo z več sto datotekami, zdaj pa želite imena teh datotek uvažati v celice delovnega lista. Kopiranje in lepljenje enega po enega bo v tem članku veliko časa. V zvezi s tem bom govoril o nekaterih hitrih trikovih, s katerimi boste lahko uvozili več imen datotek iz mape v delovni list.

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

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


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


Naslednja VBA koda vam lahko pomaga, da uvozite imena datotek, razširitve datotek in ime mape v celice delovnega lista, in to storite z naslednjimi koraki:

1. Zaženite nov delovni list, ki ga želite uvoziti z imeni datotek.

2. Drži dol ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

3. Kliknite Vstavi > Moduli, in prilepite naslednjo kodo v Moduli Okno.

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

Sub GetFileList()
'updateby Extendoffice 20150909
    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 ključno za izvedbo te kode in v pop-uprganem oknu Browse (Brskanje) izberite mapo, v katero želite uvoziti obrazec imen datotek, si oglejte sliko zaslona:

doc uvozi filename 1

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

doc uvozi filename 2

Opombe: Če v svoji posebni mapi obstajajo podmape, se imena datotek v podmapah ne uvažajo.


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

Če želite uvoziti imena datotek v mapi in podmapah, vas prosimo, da ne skrbite Kutools za ExcelJe Seznam datotek uporabnost, lahko enostavno uvozite vsa imena datotek v določeni mapi, vključno s podmapami.

Kutools za Excel : z več kot 300 priročnimi dodatki Excel, lahko brezplačno poskusite brez omejitev v dnevih 60.

Po namestitvi Kutools za Excel, storite naslednje:

1. Kliknite Podjetje > Uvozno-izvoznih > Seznam datotek, si oglejte sliko zaslona:

doc uvozi filename 3

2. v Seznam datotek pogovorno okno naredite naslednje operacije:

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

(2.) Preverite Vključi datoteke v podimenike uvoziti imena datotek podmape;

(3.) Določite vrsto datoteke, ki jo želite uvoziti pod Vrsta datoteke oddelek;

(4.) Izberite enoto enote velikosti datoteke, ki jo želite prikazati Enota velikosti datoteke oddelek;

(5.) Če želite hiperpovezavo z imeni datotek in mapami, preverite Ustvari hiperpovezave možnost.

doc uvozi filename 4

3. Ko končate nastavitve, kliknite OK gumb in imena datotek v mapi in podmapah se uvažajo v nov delovni list, kot je prikazano spodaj prikazano sliko:

doc uvozi filename 6

nasveti: Če želite le uvoziti eno določeno datoteko tipov iz določene mape, lahko preverite Določite možnost v Seznam datotek pogovorno okno in vnesite razširitev datoteke vanj, nato pa bo uvažala le imena določenih tipov datotek iz mape in podmape.

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

Prenesite in brezplačno preizkusite Kutools za Excel zdaj!


Demo: uvozite več imen datotek v celice delovnega lista s programom Kutools for Excel

Kutools za Excel: z več kot 200 priročnimi dodatki Excel, lahko brezplačno poskusite brez omejitev v dnevih 60. Prenesite in brezplačno preizkusite zdaj!


Sorodni članki:

Kako vse datoteke v mapi in podmape v seznam dodati v delovni list?

Kako naj seznam vseh imen datotek v mapi in ustvarite hiperpovezave zanje v Excelu?



Priporočena orodja za produktivnost za Excel

Kutools za Excel vam pomaga, da vedno končate delo pred časom in izstopite iz množice

  • Več kot zmogljive napredne funkcije 300, zasnovane za 1500 delovne scenarije, ki povečujejo produktivnost z 70%, vam dajejo več časa za skrb za družino in uživanje v življenju.
  • Ne potrebujete več pomnilniških formul in VBA kod, od zdaj naprej pa dajate svojim možganom počitek.
  • Postanite strokovnjak za Excel v minutah 3, zapletene in ponavljajoče se operacije lahko opravite v nekaj sekundah,
  • Vsak dan zmanjšajte število operacij tipkovnice in miške, zdaj se poslovite od poklicnih bolezni.
  • 110,000 visoko učinkovite ljudi in 300 + svetovno priznanih podjetij izbiro.
  • Brezplačna preizkusna različica 60 dneva. 60-dnevno jamstvo vračila denarja. 2 let brezplačne nadgradnje in podpore.

Prinaša kartično brskanje in urejanje za Microsoft Office, veliko močnejši od zavihkov brskalnika

  • Office Tab je namenjen za Word, Excel, PowerPoint in druge Office aplikacije: Založnik, Dostop, Visio in Projekt.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Z 50% poveča vašo produktivnost in vsak dan zmanjša na stotine klikov z miško!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    J · 5 months ago
    For the VBA code, how would you pull in the date modified as well?
    • To post as a guest, your comment is unpublished.
      skyyang · 4 months ago
      Hello,
      Add the date modified column for the imported filenames, please apply the following VBA code, please try it, hope it can help you!

      Sub GetFileList()
      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"
      ActiveSheet.Cells(1, 4) = "Date last modified"
      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)
      ActiveSheet.Cells(i, 4) = CDate(xFile.datelastmodified)
      Next
      End Sub
  • To post as a guest, your comment is unpublished.
    kaka · 6 months ago
    Thanks. It was awesome
  • To post as a guest, your comment is unpublished.
    dimas · 9 months ago
    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?
  • To post as a guest, your comment is unpublished.
    agiltriyasmoko · 11 months ago
    Apakah bisa merename file dengan excel?
    terimakasih sangat membantu perkerjaan saya,
  • To post as a guest, your comment is unpublished.
    Carrin · 1 years ago
    Very helpful, thank you!