The Excel følgende VBA-kode kan hjelpe deg med å importere filnavn, filtyper og mappenavn inn i regnearkceller, kan gjøre med følgende:
1. Lansere et nytt regneark som du vil importere filnavnene.
To. Hold nede ALT + F11-tastene for å åpne Microsoft Visual Basic for Applications vinduet.
3. Klikk Sett > Modul, og lim inn følgende kode i modulen Window
VBA-kode. Importere flere filnavn i celler med regneark
Sub GetFileList () 'updateby Extendoffice 20150909 Dim xFSO As Object Dim xFolder As Object Dim Xfile As Object Dim xFiDialog Som Filedialog Dim xPath As String Dim jeg As Integer Set xFiDialog = Application.FileDialog (msoFileDialogFolderPicker) Hvis xFiDialog.Show = -1 Så XPath = xFiDialog.SelectedItems (1) End If Set xFiDialog = Nothing Hvis xPath = "" Then Exit Sub Still xFSO = Create ("Scripting.FileSystemObject") Set xFolder = xFSO.GetFolder (XPath) ActiveSheet.Cells (1, 1) = "mappenavn" ActiveSheet.Cells (1, 2) = "filnavn" ActiveSheet.Cells ( 1, 3) = "File extension" i = 1 for hver Xfile I 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) NextEnd Sub4. Deretter trykker F5 for å kjøre denne koden, og i den spratt ut Bla vinduet, velger du mappen du vil importere form filnavn, se skjermbilde:
5. Og klikk deretter på OK-knappen, og du vil få følgende resultat:
. Merk: Hvis det er undermapper i din bestemt mappe, vil filnavnene i undermappene ikke importeres
Import multippel filnavn i regnearkceller med Kutools for Excel
Hvis du trenger å importere filnavnene både i mappen og undermapper, kan du ikke bekymre deg, med Kutools for Excel Filnavn List verktøyet, kan du enkelt importere alle filnavnene . i bestemt mappe, inkludert undermapper
Kutools for Excel: med mer enn 120 praktiske Excel-tillegg, gratis å prøve uten begrensning i 60 dager. Få det nå . Gå til DownloadFree Trial 60 daysPurchasePayPal /MyCommerce Etter installering Kutools for Excel, kan du gjøre som følger:
1. Klikk Enterprise > Import /Export > Filnavn listen, se skjermbilde:
to. I Filnavn List dialogboksen gjøre følgende operasjoner: product: (1.) Klikk for å velge mappen med filene du vil importere, plakater (2.) Kontroller Inkluder filer i undermapper for å importere filnavnene til undermappene, plakater (3.) presise filene skriver du vil importere under Filer typen delen, plakater (4.) Velg ett filstørrelse enheten du ønsker å vise fra Fil størrelse enhet delen; Anmeldelser (5.) Hvis du ønsker å hyperkobling filnavn og mapper, kan du sjekke Opprette hyperkoblinger alternativ
3.. Etter å ha fullført innstillingene, klikk OK, og filnavnene både i mappen og undermapper importeres til et nytt regneark som følgende skjermbilde vises:
Tips: Hvis du bare ønsker å importere en angitt type filnavn fra spesifikke mappen, kan du sjekke Angi alternativet i dialogboksen filnavn listen, og skriv filendelsen inn i det, så vil det bare importere de spesifiserte typen filnavnene fra både mappen og undermapper.
Klikk for å vite mer om dette Name List funksjonen ...
Gratis Last ned Kutools for Excel Nå
Datamaskin læring 