Dim fName as Variant
ChDir "C:\Documents and Settings\RRadmacher\My Documents\Productivity"
fname = Application.GetOpenFileName(FileFilter:= "Text Files (*.txt),*.txt")
if fName < False then
Workbooks.OpenText Filename:=fName, _
Origin:=xlWindows, _
StartRow:=1, _
DataType:=xlFixedWidth, _
FieldInfo:=Array( _
Array(0, 1), Array(15,1), _
Array(47, 1), Array(93, 1), _
Array(125, 1), Array(134, 1), _
Array(150, 1), Array(172, 1)), _
TrailingMinusNumbers:=True
End if

--
Regards,
Tom Ogilvy


"melric" wrote in message
...
I have a macro that opens a text file and starts manipulating the data in
it.
I recorded the macro by opening a specific file and setting each column.
I want the macro to ask me (via a dialog box) which text file I want to
open, once I choose the file, I want the macro to apply the correct array
and
formatting.

The current language I'm using is:

ChDir "C:\Documents and Settings\RRadmacher\My Documents\Productivity"
Workbooks.OpenText Filename:= _
"C:\Documents and Settings\RRadmacher\My
Documents\Productivity\picks.txt", Origin:=xlWindows, StartRow _
:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1),
Array(15,
1), Array _
(47, 1), Array(93, 1), Array(125, 1), Array(134, 1), Array(150,
1),
Array(172, 1)), _
TrailingMinusNumbers:=True

After this language, the macro begins manipulating the data on that file.

I want to tell the program which directory and file to grab (it will be a
different text file each day, instead of having one file defined in the
macro?
Thanks