Hvordan å liste opp alle filnavn i en mappe og opprette hyperkoblinger for dem i Excel?

To listen og opprette hyperkobling med filer fra en mappe, kan følgende VBA-kode gjør deg en tjeneste.
1. Aktivere et nytt regneark for å sette resultatet.
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:. List alle filnavn i en mappe og opprette hyperkoblinger
Sub Eksempel 1 () 'Update 20150831 Dim xFSO As Object Dim xFolder As Object Dim Xfile As Object Dim xFiDialog Som Filedialog Dim xPath As String Dim jeg som 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 Set xFSO = Create ("Scripting.FileSystemObject") Set xFolder = xFSO.GetFolder (xPath) for hver Xfile I xFolder.Files I = i + 1 ActiveSheet.Hyperlinks.Add Cells (I, 1), xFile.Path,,, Xfile .name NextEnd Sub4. Deretter trykker F5 for å kjøre denne koden, og velg mappen du ønsker å liste filene fra Browse vinduet, se skjermbilde:
5. Når du har angitt mappen, klikker OK-knappen, og alle filene i den spesifikke mappen har vært notert i aktive regnearket med hyperkoblinger, se skjermbilde:
Merk: Hvis det er undermapper i din bestemt mappe, filene i undermapper vil ikke bli oppført.

List alle filnavn i en mappe og opprette hyperkoblinger med Kutools for Excel
Å liste opp alle filene både i en mappe og dens undermapper og skapte hyperkoblinger for hver fil, Kutools for Excel Name Listen kan gjøre deg en tjeneste. Med denne funksjonen, vil alle filer i mappen og undermapper bli oppført på en gang med noen attributter, for eksempel filnavn, filstørrelse, skapte tid, inneholder mappen og så videre
Kutools for Excel. Med mer enn 120 hendig Excel -ins, gratis å prøve uten begrensning i 60 dager. Få det nå . Gå til DownloadFree Trial 60 daysPurchasePayPal /MyCommerce Hvis du har installert Kutools for Excel, kan du gjøre med følgende trinn :( Gratis Last ned Kutools for Excel nå)
1. Klikk Enterprise > Import /Export > Filnavn listen, se skjermbilde:
to. I Filnavn List dialogboksen, kan du gjøre følgende operasjoner: product: (1.) Klikk for å velge mappen du ønsker å liste filnavnene, plakater (2.) Kontroller Inkluder filer i undermapper hvis du ønsker å liste filnavn innenfor undermapper, plakater (3.) Angi hvilke filtyper som du ønsker å finne og liste under Filer typen delen, plakater (4.) Velg filstørrelsen enhet som du ønsker å vise;
(5.) Sjekk Lag hyperkoblinger til venstre nederst i dialogboksen.
tre. Klikk deretter på OK-knappen, og alle filene i mappen og undermapper har vært oppført i et nytt regneark med hyperkoblinger som du trenger, se skjermbilde:
Klikk for å vite mer detaljer om filnavn List verktøy ...
Gratis nedlasting Kutools for Excel Nå