Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Dateien mit Angabe des Dateidatums mit Hyperlink listen

Gruppe

Verknüpfung

Problem

In Spalte A sollen die Dateien aus dem in Zelle A1 genannten Verzeichnis einschl. aller Unterverzeichnissen mit Hyperlinks gelistet und in Spalte B soll das zugehörige Dateidatum eingetragen werden.

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

StandardModule: Modul1

Sub ScanDir()
   Dim lRow As Long, lCounter As Long
   Dim iCol As Integer
   lRow = 1
   iCol = 1
   With Application.FileSearch
      .LookIn = Range("A1").Value
      .SearchSubFolders = True
      .Execute
      For lCounter = 1 To .FoundFiles.Count
         lRow = lRow + 1
         If lRow = 65537 Then
            lRow = 2
            iCol = iCol + 1
         End If
         Cells(lRow, iCol).Value = .FoundFiles(lCounter)
         Cells(lRow, iCol).Hyperlinks.Add _
            Cells(lRow, iCol), .FoundFiles(lCounter)
         Cells(lRow, iCol + 1).Value = FileDateTime(.FoundFiles(lCounter))
      Next lCounter
   End With
   Columns.AutoFit
End Sub