Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Alle Dateien ab einem bestimmten Datum listen

Gruppe

Zeit

Problem

Wie kann ich in einem Tabellenblatt alle Dateien auflisten, deren letztes Änderunsdatum nach einem anzugebenden Datum liegt?

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

StandardModule: basMain

Sub DateiListe()
   Dim fs As FileSearch
   Dim iCounter As Integer
   Dim sPath As String
   sPath = InputBox( _
      prompt:="Verzeichnis:", _
      Default:=CurDir)
   If sPath = "" Then Exit Sub
   Set fs = Application.FileSearch
   With fs
      .LookIn = sPath
      .FileType = msoFileTypeExcelWorkbooks
      .LastModified = msoLastModifiedThisMonth
      .Execute
      For iCounter = 1 To .FoundFiles.Count
         Cells(iCounter, 1).Value = .FoundFiles(iCounter)
      Next iCounter
   End With
End Sub