HERBERS Excel-Forum - die Beispiele

Thema: Dateien mit Angabe des Dateidatums mit Hyperlink listen

Home

Gruppe

Datei

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

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

Verknüpfung Daten-Userform in Word-Dok Excel/PDF Datei unter bestimmten Pfad abspeichern
aus excel Worddatei nach Wert durchsuchen Split-Funktion beim Einlesen TXT-Datei
Datei löschen mit unterschiedlichen Zahlen im Name Datei löschen mit unterschiedlichen Zhalen im Name
geöffnete Worddatei und Word aus Excel beenden Excel-Datei nicht im Projekt-Explorer
Suche nach jüngster Datei Mehrere Zellen in mehreren Dateien ersetzen
Datei öffnen mit variablen im Namen Vergleichen zweier Dateien und aktualisieren
Datei langsam durch Formel Dateien aus Unterordner öffnen
Daten import aus txt--Datei Bedingte Formatierung mit UND Verknüpfung
Dateipfad öffnen mit VBA Datei-Verknüpfungen
Masterdatei erschaffen? Mehrere Datenblätter als PDF-Datei ausgeben
Makro bei Erstellen einer Datei aus einer Vorlage Zusammenführung aus mehreren Dateien
Rechteck per Button in andere Datei einfügen. Alle Dateien in einem Unterordner öffnen
VBA: MsgBox: yes/no. Bei yes andere Datei öffnen Mehrere txt Dateien einlesen in ein Programm
VBA Datei als .txt speichern Excel Datei in CSV Datei wandeln mit Extras
aktierten Text in geöffnete Worddatei Spalte in andere Dateien kopieren + zurückkopieren
Aus einer CSV-Datei ein bestimmtes Layout erzeugen Daten ausgew. WS in 2. Datei zusammenführen
Per VBA aktuelle Datei in Autostart-Ordner csv Dateien importieren
Makrodatei als Software hochwertiger gestalten manuelles Speichern bei schreibgeschützter Datei
Daten aus geschlossener Datei in Zieldatei kopiere Dateinamen per VBA vorgeben (Datum: Vormonat)
Ordner mit Unterordnern/Dateien kopieren Auswertung über mehrere Dateien
Geschlossene Excel-Datei bearbeiten? datei öffnen durch vba ohne makroaktivierung
Datei öffnet im Entwurfsmodus Dateinamen der ausgelesenen Datei anzeigen
Dateien vergleichen-doppelte löschen Datendatei per Doppelklick einlesen
Hyperlink auf Excel-Datei funktioniert nicht Kopieren über 2 Dateien?
Dateiinfo aller Dateien in allen Verz./Unterverz