vba to loop through folder containing xlsx files`

[p4nny]

Hi

I'm looking for some code that will loop through a specified folder (C:\My Documents\) containing xlsx files and

open, calculate and save & close each workbook

If file is read-only, then do nothing and loop to next file.

hope that makes sense

Cheers

 

[Eric W]

Try this:

Sub OpenAndCalc()
Dim myDir As String, fn As String, SaveFlag as Boolean

    Application.ScreenUpdating = False

    myDir = "C:\Users\username\Documents\"
    fn = Dir(myDir & "*.xls*")
    
    Do While fn <> ""
        Workbooks.Open (myDir & fn)
        SaveFlag = Not ActiveWorkbook.ReadOnly
        ActiveWorkbook.Close SaveFlag
        fn = Dir()
    Loop
    
End Sub

Change the user name in red to your username.

Let me know how that works.