I created a macro that opens a series of files according to data in another workbook. I now want to create a macro that will sequentially go through them all and close them (with saving). I tried the code below but it keeps getting hung up on close line. Can someone help me with this.
Please Login or Register to view this content.
No sure is this what you need.Please Login or Register to view this content.
-If the problem is solved, please mark your thread as Solved: Click Thread Tools above your first post, select "Mark your thread as Solved".
-Always upload a workbook before start your question
To attach a file, push the button with the paperclip (or scroll down to the Manage Attachments button), browse to the required file, and then push the Upload button.
+++ If my answer(s) helped you, please add me reputation by click on * +++
Hi, wenqq3,
I may doubt
as this will close the workbook with code (and that should stop the macro from running).Please Login or Register to view this content.
IŽd prefer to set objects and work with these - both for opening and closing the workbooks.
Ciao,
Holger
Use Code-Tags for showing your code: [code] Your Code here [/code]
Please mark your question Solved if there has been offered a solution that works fine for you
Hi HaHoBe,
you are correct. Miss that part. Perhaps
move after end with. so the code can finish running before close.Please Login or Register to view this content.
I tried this code but it comes back with an error. I also need to figure out when these files close with saving of changes that they are changed to a specific directory which has been created by a separate macro that creates a sub directory from a date value in a cell.
Are you trying to close the workbook that opened all the workbooks or are you wanting to close all the workbooks opened by the original workbook?
Edit: I need an emoticon for being cross-eyed after reading my response!
If you're happy with someone's help, click that little star at the bottom left of their post to give them Reps.
---Keep on Coding in the Free World---
Sorry Mordred, I should have been more specific. I want to close the files that are opened by the macro in the main workbook and then close them (again with saving to a specific directory).
Hi agpyle,
I'm assuming that the files that are being opened are also excel workbooks If so try this code.
This will close all open workbooks except the workbook where you ran the original macro from.
Sub CloseAllWorkbooks()
Dim MyBook As Workbook
For Each MyBook In Workbooks
If MyBook.Name <> ThisWorkbook.Name Then
MyBook.Close savechanges:=True
End If
Next MyBook
ThisWorkbook.Close savechanges:=True
End Sub
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks