Open, Update, Save Close Macro

J

James

I am having trouble getting a macro to work. I would like
the macro to open a series of files, update the links on
each, save each and close them all. Is this possible? The
glitch seems to be in the Update Links part.
 
E

Ecocandle

You might try opening all of the workbooks, then save them
as a WorkGroup. Turn the Macro Recorder on and open the
workgroup, when the pop up box asks if you want to update
the links click yes. Then use the File Close to close the
workgroup.

I have not actually tried this, but I think it might work.

Good Luck
 
A

alloyking

Private Sub Workbook_open()

links = ActiveWorkbook.LinkSources(xlExcelLinks)
For I = 1 To UBound(links)
Workbooks.Open links(I)
Next I


This will open any liks you have on the page.
 
Top