How to open Multiple files through dates modified

[kangero]

Hello,

I am trying to figure out how to open multiple files with different names based on date modified. For example, I have 4 files and the names on them go 5Ab458, 5Dd5578,57C604P,548SKJV. There are multiple files in this folder as well so naming on each file is different so i need to open all specifically by date. So I would open 4 files for July 25. then close and open 4 files for July 26 e.t.c. How would I program something like this? is it possible to do this in vba or do I need to use python or something else and link it to excel VBA.

 

[JLGWhiz]

Here is one way.

Sub t()
Dim wb As Workbook, fPath As String, fName As String
fPath = ThisWorkbook.Path & "\"
fName = Dir(fPath & "*.xlsx")
    Do While fName <> ""
        If ThisWorkbook.Name <> fName Then
            Set fs = CreateObject("Scripting.FileSystemObject")
            Set f = fs.GetFile(fPath & fName)
            q = MsgBox("Date last modified is: " & f.DateLastModified & ".  Do you want to open this file?, vbYesNo, "OPTIONT TO OPEN")
                If q = vbYes Then
                    Set wb = Workbooks.Open(fPath & fName)
                    'other code here if needed
                    wb.Close False
                End If
        End If
        fName = Dir
    Loop
End Sub

Note the comment about additional code. That is your choice, but if you do not use code to edit your workbooks, then I suggest you delete the 'wb.Close False' line so you can manually do the edits and manually close the workbooks that were opened.

 

[kangero]

sorry forgot to mention these files were pdf files and also wanted to know if fpath can be this "C:\Users\specia4\Downloads\UiAutomation"

 

[JLGWhiz]

Modified per post #3

Sub t()
Dim wb As Workbook, fPath As String, fName As String
fPath = "C:\Users\specia4\Downloads\UiAutomation\"
fName = Dir(fPath & "*.pdf")
    Do While fName <> ""
        If ThisWorkbook.Name <> fName Then
            Set fs = CreateObject("Scripting.FileSystemObject")
            Set f = fs.GetFile(fPath & fName)
            q = MsgBox("Date last modified is: " & f.DateLastModified & ".  Do you want to open this file?", vbYesNo, "OPTIONT TO OPEN")
                If q = vbYes Then
                    Set wb = Workbooks.Open(fPath & fName)
                    'other code here if needed
                    wb.Close False
                End If
        End If
        fName = Dir
    Loop
End Sub

You might be better off using the GetOpenFilename method and selecting the files via a dialog box.