Tip: andere talen zijn Google-Vertaald. Je kunt het English versie van deze link.
Log in
x
or
x
x
Registreren
x

or

Hoe een lijst van alle bestandsnamen in een map en maak hyperlinks voor hen in Excel?

Voor uw dagelijkse werk moet u mogelijk meerdere bestandsnamen uit een map naar een werkblad importeren en hyperlinks maken voor elke bestanden, zodat u het bestand snel en eenvoudig kunt openen. Misschien kun je de bestandsnamen kopiëren en plakken en er handmatig een hyperlink voor maken, maar dit kost veel tijd als er honderden bestanden in de map staan. Vandaag zal ik praten over een aantal snelle en interessante methoden om met deze baan om te gaan.

Maak een lijst van alle bestandsnamen in een map en maak hyperlinks met VBA-code

Maak een lijst van alle bestandsnamen in een map en maak hyperlinks met Kutools voor Excel


Maak een lijst van alle bestanden in een map en maak er tegelijkertijd hyperlinks voor:

Doordat uw bureau Kutools for Excel's Bestandslijst hulpprogramma, kunt u alle bestanden uit een map die de submappen bevat zo snel mogelijk in een werkblad opnemen.

doc lijst bestanden

Kutools for Excel: met meer dan 200 handige Excel-add-ins, gratis om zonder beperking in 60-dagen te proberen. Download en gratis proef nu!



Om een ​​hyperlink met bestanden uit een map op te nemen en te maken, kan de volgende VBA-code u een plezier doen.

1. Activeer een nieuw werkblad om het resultaat te plaatsen.

2. Houd de toets ingedrukt ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

3. Klikken bijvoegsel > moduleen plak de volgende code in de module Venster.

VBA: geef een overzicht van alle bestandsnamen in een map en maak hyperlinks

Sub Example1()
'Update 20150831
    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)
    For Each xFile In xFolder.Files
        I = I + 1
        ActiveSheet.Hyperlinks.Add Cells(I, 1), xFile.Path, , , xFile.Name
    Next
End Sub

4. Druk vervolgens op F5 toets om deze code uit te voeren, en kies de map waarvan u de bestanden wilt weergeven vanuit de Blader venster, zie screenshot:

doc lijst maak hyperlinks 1

5. Nadat u de map hebt opgegeven, klikt u op OK knop, en alle bestanden in de specifieke map zijn weergegeven in actieve werkblad met hyperlinks, zie screenshot:

doc lijst maak hyperlinks 2

Notes: Als er submappen in uw specifieke map staan, worden de bestanden in de submappen niet weergegeven.


Om alle bestanden in een map en de submappen ervan weer te geven en hyperlinks voor elk bestand te maken, Kutools for Excel's Bestandslijst mag je een plezier doen. Met deze functie worden alle bestanden in map en submappen in één keer weergegeven met een aantal kenmerken, zoals bestandsnaam, bestandsgrootte, gemaakte tijd, map en dergelijke.

Kutools for Excel : met meer dan 300 handige Excel-invoegtoepassingen, gratis om zonder beperking te proberen in 60-dagen.

Als je hebt geïnstalleerd Kutools for Excel, gelieve te doen met de volgende stappen:

1. Klikken Enterprise > Import / Export > Bestandslijstzie screenshot:

doc lijst maak hyperlinks 3

2. In de Bestandslijst dialoogvenster, voer de volgende bewerkingen uit:

(1.) Klik op doc lijst maak hyperlinks 5 om de map te selecteren waarin u de bestandsnamen wilt weergeven;

(2.) Controleer Include bestanden in submappen als u bestandsnamen wilt weergeven in submappen;

(3.) Geef de bestandstypen op die u wilt zoeken en vermeld ze onder de Bestanden type sectie;

(4.) Selecteer de bestandsgrootte-eenheid die u wilt weergeven;

(5.) Controleren Maak hyperlinks links onderaan het dialoogvenster.

Download Kutools nu voor Excel!

3. Dan klikken Ok knop en alle bestanden in de map en submappen zijn weergegeven in een nieuw werkblad met de hyperlinks zoals u nodig hebt, zie screenshot:

doc lijst maak hyperlinks 6

Klik om meer details over het hulpprogramma Bestandslijst te weten ...

Download en proef Kutools nu voor Excel!


Kutools for Excel: met meer dan 200 handige Excel-add-ins, gratis om zonder beperking in 60-dagen te proberen. Download en gratis proef nu!


Gerelateerd artikel:

Hoe een lijst van alle bestanden in map en submappen in een werkblad?


Kutools voor Excel - De beste Office-productiviteitstool Verhoog uw productiviteit met 80%

  • visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Coderen van cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • Super Formula Bar (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken op gefilterd bereik...
  • Cellen / rijen / kolommen samenvoegen zonder gegevens te verliezen; Inhoud gesplitste cellen; Combineer dubbele rijen / kolommen... voorkomen dubbele cellen; Ranges vergelijken...
  • Selecteer Dupliceren of Uniek rijen; Selecteer Lege rijen (alle cellen zijn leeg); Super Find en Fuzzy Find in veel werkboeken; Willekeurig selecteren ...
  • Exacte kopie Meerdere cellen zonder formule-referentie te wijzigen; Automatisch referenties maken naar meerdere vellen; Voeg kogels toe, Selectievakjes en meer ...
  • extract Text, Tekst toevoegen, verwijderen op positie, Verwijder de spatie; Subtotalen voor paging maken en afdrukken; Converteren tussen cellen Inhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerde sortering per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Volledige functionaliteit 60-daagse gratis proefversie.
kte-tab 201905

Tabblad Office Brengt interface met tabbladen naar Office en maakt uw werk veel eenvoudiger

  • Bewerken en lezen met tabbladen inschakelen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en verlaagt dagelijks honderden muisklikken voor u!
Officetab onderaan
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.
    Ellie · 7 months ago
    How would I change this code to have it list folder names rather than file names? And how would I change it to check subfolders for files?
    • To post as a guest, your comment is unpublished.
      skyyang · 6 months ago
      Hi, Ellie,
      To list all folder and subfolder names from a directory, the below VBA code can help you, please try, hopt it can help you.

      Sub FolderNames()
      Application.ScreenUpdating = False
      Dim xPath As String
      Dim xWs As Worksheet
      Dim fso As Object, j As Long, folder1 As Object
      With Application.FileDialog(msoFileDialogFolderPicker)
      .Title = "Choose the folder"
      .Show
      End With
      On Error Resume Next
      xPath = Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1) & "\"
      Application.Workbooks.Add
      Set xWs = Application.ActiveSheet
      xWs.Cells(1, 1).Value = xPath
      xWs.Cells(2, 1).Resize(1, 5).Value = Array("Path", "Dir", "Name", "Date Created", "Date Last Modified")
      Set fso = CreateObject("Scripting.FileSystemObject")
      Set folder1 = fso.getFolder(xPath)
      getSubFolder folder1
      xWs.Cells(2, 1).Resize(1, 5).Interior.Color = 65535
      xWs.Cells(2, 1).Resize(1, 5).EntireColumn.AutoFit
      Application.ScreenUpdating = True
      End Sub
      Sub getSubFolder(ByRef prntfld As Object)
      Dim SubFolder As Object
      Dim subfld As Object
      Dim xRow As Long
      For Each SubFolder In prntfld.SubFolders
      xRow = Range("A1").End(xlDown).Row + 1
      Cells(xRow, 1).Resize(1, 5).Value = Array(SubFolder.Path, Left(SubFolder.Path, InStrRev(SubFolder.Path, "\")), SubFolder.Name, SubFolder.DateCreated, SubFolder.DateLastModified)
      Next SubFolder
      For Each subfld In prntfld.SubFolders
      getSubFolder subfld
      Next subfld
      End Sub
  • To post as a guest, your comment is unpublished.
    jms · 9 months ago
    "VBA: List all filenames in a folder and create hyperlinks" is great! It works perfectly! Thank you for posting! One question... Now that you told us how to add links from folder, is it possible to use those links to get information from say one or two different sheets in each of the files listed? They would be the same cells for each of the files we now have a list for. This would help create a comprehensive contents with active links to otherwise unintelligible file names.
  • To post as a guest, your comment is unpublished.
    alice · 1 years ago
    Great thanks although can not view the files in the selected directory as barry said, it creates hyperlinks for all files in that directory anyway.
  • To post as a guest, your comment is unpublished.
    Chaudhary Mubashir · 1 years ago
    Awesome ..thanks a lot. It really saved my time.
  • To post as a guest, your comment is unpublished.
    barry · 3 years ago
    Running the VBA code listed above, shows the selected directory is empty, when it is full of Excel files.