VBA to Open/Save/Close Multiple Excel Files

[MrMaker]

Hi all,

I need some code that will loop through a folder of 300 excel files.........I need the code to open each file (which enables some updates), then save it, and then close it.

The format of the files is xlsm.

Probably a simple one for some of you folk

Can anyone help?

 

[DanteAmor]

Try this

Sub opensaveclose()
  Dim sPath As String, sFile As Variant
  sPath = "C:\your path\books\"
  sFile = Dir(sPath & "*.xlsm")
  Do While sFile <> ""
    Workbooks.Open (sPath & sFile)
    ActiveWorkbook.Close True
    sFile = Dir()
  Loop
End Sub

 

[MrMaker]

Hi again,

So the above doesn't seem to work, can anyone help?

Simple VBA to loop through a folder of 300 workbooks, opening, (allowing the code to run), saving and closing

Much appreciated

 

[DanteAmor]

I need the code to open each file (which enables some updates), then save it, and then close it.

(allowing the code to run)

In the first post you didn't mention a code. If you have a code to execute you can put it between the open and close statements.
In the code you must also change the folder where you have the books.

 

[MrMaker]

Yeah, sorry, I'm not over clued up with this stuff.

So, the code is embedded within each of the 300 reports. The code auto runs when the reports are opened, so I'm not sure if that still needs to be written into this new code, as essentially I'm just asking for the sheet to open, the code to auto run, then a save and close....

Any thoughts?

Really appreciate your time

 

[DanteAmor]

I'm just asking for the sheet to open, the code to auto run, then a save and close

That's what the macro does, opens the book. -at that moment the code should be executed, if the code is not executed, it is something that you should review in your books-, finally close the book and save it.

You can share the code you have in any of your books, to see in which event you have it.

 

[flickalok]

I have exactly the same issue. Can you share your final solution?