Abrir *.txt y convertir

Hola,

Ayer conteste una pregunta identica. Tan identica que parece que "chy" y
"carloshernandezy" y ademas coinciden las iniciales :)

Si eres Carlos, mi pregunta es: ?no te ha valido mi respuesta?
Y si eres otra persona, abajo te reproduzco la respuesta.

Saludos,
KL

"KL" wrote in message news:...

Hola Carlos,

Revisa el metodo OpenText.

expression.OpenText(Filename, Origin, StartRow, DataType, TextQualifier,
ConsecutiveDelimiter, Tab, Semicolon, Comma, Space, Other, OtherChar,
FieldInfo, DecimalSeparator, ThousandsSeparator)

P.ej.:

Sub test()
Workbooks.OpenText _
Filename:="P:\GQC\QUIMICA\EMPOWER\Prueba.TXT", _
DataType:=xlDelimited, _
Comma:=True
End Sub

Saludos,
KL

Hola chy,

Ya veo que eres el carlos al que estaba contestando ayer y a quien en este
momento le estan contestando varias personas mas, entre ellas Bob Phillips y
Tom Ogilvy. Solamente decirte que "cross-posting" hace que los que contestan
en un foro pierdan su tiempo mientras que la respuesta puede haber sido
posteada en otro foro :-((.

Por cierto, si miras una de mis respuestas de ayer quizas encuentres la
respuesta de por que tu codigo da el error 13.

KL


"chy" wrote in message
news:
Hola a todos,

estoy intentando hacer una macro que facilite la apertura de *.txt y su
conversión a excel

El directorio de origen es varible, y luego el *.txt hay que
convertirlo delimitado por comas.

C:\\Año\SemanaXX

Año- es el valor de una celda
SemanaXX- es el valor de una celda

Muchas gracias por vuestra atención