D
darren.woolston
Hi,
I have a user that is using a Macro in Exel 2002, that is opening and
saving a number of files .xls files.
He has about 50 of these subs, opening and saving a different file
every time. Is there a better way of achieving the same thing without
having to open & save all the documents, as you can imaging, opening &
saving all of these documents can take a very long time.
Sub Network1()
'
' Network1 Macro
' Macro recorded 05/01/2004 by Iain McLachlan
'
'
Workbooks.Open Filename:= _
"\\<netwotk_path>\<file_name.xls>"
Sheets("Data").Select
Range("A1").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
ActiveWorkbook.Save
ActiveWindow.Close
End Sub
Sub Network2()
'
' Network2 Macro
' Macro recorded 05/01/2004 by Iain McLachlan
'
'
Workbooks.Open Filename:= _
"\\<netwotk_path>\<file_name.xls>"
Sheets("Data").Select
Range("A1").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
ActiveWorkbook.Save
ActiveWindow.Close
End Sub
I did input the following into each sub:
Application.ScreenUpdating = True
Workbooks.Open Filename:= _
"\\<netwotk_path>\<file_name.xls>"
Sheets("Data").Select
Range("A1").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
ActiveWorkbook.Save
ActiveWindow.Close
Application.ScreenUpdating = True
This seems to have helped a bit, but the constant file opening &
closing. Thanks for any help in advance, much appreciated
I have a user that is using a Macro in Exel 2002, that is opening and
saving a number of files .xls files.
He has about 50 of these subs, opening and saving a different file
every time. Is there a better way of achieving the same thing without
having to open & save all the documents, as you can imaging, opening &
saving all of these documents can take a very long time.
Sub Network1()
'
' Network1 Macro
' Macro recorded 05/01/2004 by Iain McLachlan
'
'
Workbooks.Open Filename:= _
"\\<netwotk_path>\<file_name.xls>"
Sheets("Data").Select
Range("A1").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
ActiveWorkbook.Save
ActiveWindow.Close
End Sub
Sub Network2()
'
' Network2 Macro
' Macro recorded 05/01/2004 by Iain McLachlan
'
'
Workbooks.Open Filename:= _
"\\<netwotk_path>\<file_name.xls>"
Sheets("Data").Select
Range("A1").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
ActiveWorkbook.Save
ActiveWindow.Close
End Sub
I did input the following into each sub:
Application.ScreenUpdating = True
Workbooks.Open Filename:= _
"\\<netwotk_path>\<file_name.xls>"
Sheets("Data").Select
Range("A1").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
ActiveWorkbook.Save
ActiveWindow.Close
Application.ScreenUpdating = True
This seems to have helped a bit, but the constant file opening &
closing. Thanks for any help in advance, much appreciated