Luttrrt
07-20-2005, 04:41 AM
Hi,
I recently got this code to work for me and thought it might be helpful to others.The macro basically opens up other workbooks, updates the links, saves and closes, moving on to the next workbook.You can do as many workbooks as you like.I've got around 15 and it just flies through them.
Sub GetFile()
Workbooks.Open "Put Workbook path here inc the .xls", UpdateLinks:=1
ActiveWorkbook.Close SaveChanges:=True
Workbooks.Open "Put Workbook path here inc the .xls", UpdateLinks:=1
ActiveWorkbook.Close SaveChanges:=True
Sheets("Name of sheet containing the macro").Select
Range("A5").Select
ActiveCell.Value = "Completed"
Range("A5").Select
End Sub
Regards,
Rowland
I recently got this code to work for me and thought it might be helpful to others.The macro basically opens up other workbooks, updates the links, saves and closes, moving on to the next workbook.You can do as many workbooks as you like.I've got around 15 and it just flies through them.
Sub GetFile()
Workbooks.Open "Put Workbook path here inc the .xls", UpdateLinks:=1
ActiveWorkbook.Close SaveChanges:=True
Workbooks.Open "Put Workbook path here inc the .xls", UpdateLinks:=1
ActiveWorkbook.Close SaveChanges:=True
Sheets("Name of sheet containing the macro").Select
Range("A5").Select
ActiveCell.Value = "Completed"
Range("A5").Select
End Sub
Regards,
Rowland