abrir con macro ficheros CSV

y si pruebas algo mo esto:

Workbooks.OpenText Filename:= _
"C:\ATRASPAS.CSV", Origin:“2, StartRow _
:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=False,
Comma:=True, _
Space:=True, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2,
1), Array(3 _
, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8,
1)), _
TrailingMinusNumbers:=True

' aqui los separadores son coma y espacio pero tu puedes dar false al que no
sea


fredy
"Jalisco" escribió:

Hola,

intento abrir a traves de una macro un fichero CSV, pero me lo abre sin
respectar los campos:
Set pp = Workbooks.Open("C:\ATRASPAS.CSV")

Si lo abro haciendo doble click en el fichero me realiza la misma operacion,
pero si lo abro por fichero Abrir lo habre perfectamente.

Alguna idea??

he probado con el parametro Format ";" pero nada de nada.

Gracias!!