Desperately need to know how to repeat this code!

nathan663

Board Regular
Joined
Dec 3, 2008
Messages
153
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
 

Some videos you may like

Excel Facts

Convert text numbers to real numbers
Select a column containing text numbers. Press Alt+D E F to quickly convert text to numbers. Faster than "Convert to Number"

Watch MrExcel Video

Forum statistics

Threads
1,108,979
Messages
5,526,023
Members
409,675
Latest member
audeser

This Week's Hot Topics

Top