Results 1 to 3 of 3
  1. #1
    2 Star Lounger
    Join Date
    Nov 2004
    Location
    Darmstadt, Hessen, Germany
    Posts
    128
    Thanks
    15
    Thanked 2 Times in 2 Posts

    List Updated Workbooks Between Dates (Offive 2003)

    hi all...

    i like to have a macro which searches ""all"" .xls files on the drive and lists only those having a modified date from today minus 7 days only....

    thank you very much..

    best,
    wolfgang

  2. #2
    Plutonium Lounger
    Join Date
    Mar 2002
    Posts
    84,353
    Thanks
    0
    Thanked 29 Times in 29 Posts

    Re: List Updated Workbooks Between Dates (Offive 2003)

    Try this. Substitute the appropriate drive.

    Sub ListRecentlyModified()
    Dim i As Long
    Cells.ClearContents
    With Application.FileSearch
    .FileType = msoFileTypeExcelWorkbooks
    .LastModified = msoLastModifiedThisWeek
    .LookIn = "F:"
    .SearchSubFolders = True
    .Execute
    For i = 1 To .FoundFiles.Count
    Range("A" & i) = .FoundFiles(i)
    Next i
    End With
    End Sub

    Warning: the code will clear the active worksheet before creating the list!

  3. #3
    2 Star Lounger
    Join Date
    Nov 2004
    Location
    Darmstadt, Hessen, Germany
    Posts
    128
    Thanks
    15
    Thanked 2 Times in 2 Posts

    Re: List Updated Workbooks Between Dates (Offive 2003)

    hi hans...

    runs just fine...

    thank you very much and have a nice day..

    best,
    wolfgang

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •