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!!

No me convence, ya que no me detecta el opentext. Entiendo que este comando
es el mismo que el otro, no?

Gracias de todas las formas.



"fredy" escribió:

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!!
>