Auto open, print, then close an excel file from in another?

[stubs]

I would like to have a file/small VB program to automatically open each Excel file (or Word file) in a specified folder, print its contents, then close the file...

Is it also possible to have it pick from a list of folder names, according to what day of the week it is?

For example, if I click on the file/program on a Wednesday, it would open all the files in the "Wednesday" folder, print them, and close them. No particular order is required.

I have started to try & figure this out myself, but would greatly appreciate any advice!



Thanks,
Stu

 

[rjp]

Try this:

Sub test()

    Dim fPath As String
    Dim fName As String

    Application.ScreenUpdating = False
    Application.EnableEvents = False

    'You'll need to customise the path in the next line
    fPath = "C:\" & Format(Date, "dddd") & "\"

    fName = Dir(fPath & "*.xls")

    Do While fName <> ""
        Workbooks.Open fPath & fName
        ActiveWorkbook.PrintOut
        ActiveWorkbook.Close

        fName = Dir
    Loop

    Application.ScreenUpdating = True
    Application.EnableEvents = True

End Sub

 

[stubs]

Cheers! I will give that a try... its much smaller than the code I was coiming up with!