HERBERS Excel-Forum - die Beispiele

Thema: Alle Dateien ab einem bestimmten Datum listen

Home

Gruppe

Datei

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

Excel/PDF Datei unter bestimmten Pfad abspeichern Datum + Uhrzeit aus Textbox richtig in Zelle
aus excel Worddatei nach Wert durchsuchen Split-Funktion beim Einlesen TXT-Datei
Datei löschen mit unterschiedlichen Zahlen im Name Laufzeit ermitteln
Datei löschen mit unterschiedlichen Zhalen im Name geöffnete Worddatei und Word aus Excel beenden
Laufzeitfehler 438 Laufzeitfehler '13'
Excel-Datei nicht im Projekt-Explorer Suche nach jüngster Datei
Akt. Datum und Uhrzeit am gedruckten Dokument Mehrere Zellen in mehreren Dateien ersetzen
VBA: UF Laufzeitfehler Datei öffnen mit variablen im Namen
SVERWEIS mit wahr via Zeit hh:mm bzw. hh:mm:ss Vergleichen zweier Dateien und aktualisieren
Datei langsam durch Formel 4 gleiche Gruppen aus 40 Zeiten/Läufern
Dateien aus Unterordner öffnen Wandlung Connectstring für Uhrzeit
Daten import aus txt--Datei Laufzeitfehler 1004: Anwendungs- oder objektorient
Laufzeitfehler 104 automatisches Starten von Makro 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 Blatt als pdf mit Datum Uhrzeit
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
XLTM wird von ca. 200 Pers. gleichzeitig geöffnet 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
Auswertung_Uhrzeiten_Schichtplan