Thank you Stefan your macro works perfectly...
It's the first time I use "news group" I'm sorry if I haven't
familiarity with it. Sorry for my english too.
Mario


"Stefan Hägglund [MSFT]" wrote in message ...
Hi Mario,

Try this code:

Sub OpenTextFile()
Dim MyFile As Variant
' Ask the user for the file name to open.
MyFile = Application.GetOpenFilename
' Check for the Cancel button.
If MyFile = False Then Exit Sub
' Open the Text file with the OpenText method.
Workbooks.OpenText Filename:=MyFile, Origin:=xlWindows, _
StartRow:=1, DataType:=:=xlFixedWidth, FieldInfo:= _
Array(Array(0, 1), Array(31, 1), Array(39, 9), Array(46, 4), Array(54, 1),
Array(72, 1), _
Array(73, 4), Array(82, 1), Array(114, 1))
End Sub

Best regards

Stefan Hägglund
Microsoft





"Mario" wrote in message
. ..
Hi everybody

I created a macro who open a textfile and divides it in columns

The macro doesn't give the possibility of choosing the file to open. (it
always opens the file I choose when I registerd it)

I would like it gives the possibility to choose the file and then it
started again... how can I do?

Thi is the macro:
Workbooks.OpenText Filename:= _
"C:\Documents and
Settings\b0\Documenti\Attivita\PmiSolution\clienti \GM\2004\NSCADFAG.scadfor"
_
, Origin:=xlWindows, StartRow:=1, DataType:=xlFixedWidth,
FieldInfo:= _
Array(Array(0, 1), Array(31, 1), Array(39, 9), Array(46, 4),
Array(54, 1), Array(72, 1), _
Array(73, 4), Array(82, 1), Array(114, 1))
End Sub

Thanks
Mario