G
Guest
Below i have some code that will open up just a single excel file how can i
open up multiple file at a time?
Sub HB_ESG1()
Workbooks.OpenText FileName:= _
"P:\BIW_Qual\fits\BIW_FITS\HB_ESG1.TXT", Origin:=xlWindows, _
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False,
Comma:=True, _
Space:=False, Other:=False
Range("a1:cw20").Select
Selection.Copy
Windows("HB_ESG1.xls").Activate
ActiveWindow.ScrollWorkbookTabs Sheets:=1
Sheets("Data ESG_HB").Select
Range("B3").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("COMMANDS").Select
Windows("HB_ESG1.TXT").Activate
ActiveWindow.Close
End Sub
open up multiple file at a time?
Sub HB_ESG1()
Workbooks.OpenText FileName:= _
"P:\BIW_Qual\fits\BIW_FITS\HB_ESG1.TXT", Origin:=xlWindows, _
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False,
Comma:=True, _
Space:=False, Other:=False
Range("a1:cw20").Select
Selection.Copy
Windows("HB_ESG1.xls").Activate
ActiveWindow.ScrollWorkbookTabs Sheets:=1
Sheets("Data ESG_HB").Select
Range("B3").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("COMMANDS").Select
Windows("HB_ESG1.TXT").Activate
ActiveWindow.Close
End Sub