VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Hyperlinks zu allen Excel-Dateien eines Verzeichnisses erstellen

Gruppe

Datei

Bereich

Verknüpfung

Thema

Hyperlinks zu allen Excel-Dateien eines Verzeichnisses erstellen

Problem

Wie kann ich in der aktiven Tabelle in Spalte A Hyperlinks zu allen Excel-Dateien eines bestimmten Verzeichnisses erstellen?

Lösung

Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.




StandardModule: basMain

Sub SetHyperlinks()
   Dim arr As Variant
   Dim iCounter As Integer
   ActiveSheet.Hyperlinks.Delete
   Range("A2:A65536").ClearContents
   With Application.FileSearch
      .LookIn = Range("B1").Value
      .FileType = msoFileTypeExcelWorkbooks
      .Execute
      For iCounter = 1 To .FoundFiles.Count
         Cells(iCounter + 1, 1).Value = .FoundFiles(iCounter)
         ActiveSheet.Hyperlinks.Add _
            Anchor:=Cells(iCounter + 1, 1), _
            Address:=.FoundFiles(iCounter)
      Next iCounter
   End With
   Columns(1).AutoFit
End Sub

    


Beiträge aus dem Excel-Forum zu den Themen Datei und Verknüpfung