ChDir "Q:\Workforce Planning and Allocation\HIP Files\May 2010"
Workbooks.OpenText Filename:= _
"Q:\Workforce Planning and Allocation\HIP Files\May 2010\18.05.10 14.55 no completed jobs in shifts.hip" _
, Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier _
:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:= _
False, Comma:=False, Space:=False, Other:=True, OtherChar:="|", _
FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array _
(6, 1), Array(7, 1))
I have the above code. I need to repeat this so it opens All files within the May Folder.... How can i do this? I guess i need to set it as an array?
Can some one please tell me how to do this
Thanks
Workbooks.OpenText Filename:= _
"Q:\Workforce Planning and Allocation\HIP Files\May 2010\18.05.10 14.55 no completed jobs in shifts.hip" _
, Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier _
:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:= _
False, Comma:=False, Space:=False, Other:=True, OtherChar:="|", _
FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array _
(6, 1), Array(7, 1))
I have the above code. I need to repeat this so it opens All files within the May Folder.... How can i do this? I guess i need to set it as an array?
Can some one please tell me how to do this
Thanks