Workbooks.OpenText Filename:="c:\data\" & _
Range("A1").Value & _
".dat", Origin:=720, _
StartRow:=1, DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=True, Tab:=False, Semicolon:=False, _
Comma:=False, _
Space:=True, Other:=False, FieldInfo:= _
Array(Array(1, 1), Array(2, 1), Array _
(3, 1), Array(4, 1), Array(5, 1), Array(6, 1)), _
TrailingMinusNumbers:=True

--
Regards,
Tom Ogilvy

"fazl " wrote in message
...
I want to read different text files by running a macro. The code for a
"test" file is:

Workbooks.OpenText Filename:="c:\data\test.dat", Origin:=720, _
StartRow:=1, DataType:=xlDelimited,
TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=True, Tab:=False, Semicolon:=False,
Comma:=False _
, Space:=True, Other:=False, FieldInfo:=Array(Array(1, 1),
Array(2, 1), Array _
(3, 1), Array(4, 1), Array(5, 1), Array(6, 1)),
TrailingMinusNumbers:=True

Now, the path of this file is always "c:\data" , the file name will be
on the cell A1(test) and the file extention is always "dat".

what are the changes in the code?

Many thanks in advance

Fazl


---
Message posted from http://www.ExcelForum.com/