Import and format multiple .txt files from one folder into excel

[littleknicky]

Hello Everyone!

first post here and really digging all of the information. I am very new to marcos and am excited to learn as much as I can looking through the forums. I have a question.

Is it possible to set up a marco so that it will open every .txt file in a folder, format it using fixed width and put it all in a workbook?

Any help would be greatly appreciated.

Thanks!

Nick

[littleknicky]

I've tried to use the macro recorder, but not sure how to loop for all files within a directory. Here's what the recorder says opening two of the files..

Sub Macro1()
'
' Macro1 Macro
'

'
Workbooks.OpenText Filename:= _
"C:\Users\nchristie\Documents\Data\New folder\Complete Transaction Journal (CU130) - 06_01_2013.txt" _
, Origin:=437, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array( _
Array(0, 1), Array(2, 1), Array(6, 1), Array(11, 1), Array(18, 1), Array(23, 1), Array(32, 1 _
), Array(44, 1), Array(92, 1), Array(104, 1), Array(127, 1), Array(129, 1)), _
TrailingMinusNumbers:=True
Workbooks.OpenText Filename:= _
"C:\Users\nchristie\Documents\Data\New folder\Complete Transaction Journal (CU130) - 06_03_2013.txt" _
, Origin:=437, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array( _
Array(0, 1), Array(3, 1), Array(6, 1), Array(18, 1), Array(23, 1), Array(33, 1), Array(44, 1 _
), Array(65, 1), Array(98, 1), Array(100, 1), Array(103, 1), Array(120, 1)), _
TrailingMinusNumbers:=True
End Sub