VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Alle Dateien ab einem bestimmten Datum listen

Gruppe

Datei

Bereich

Zeit

Thema

Alle Dateien ab einem bestimmten Datum listen

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

    


Beiträge aus dem Excel-Forum zu den Themen Datei und Zeit