Abrir archivos txt

hola, Diego !

ya me actualiza la macro al abrir excel
intente con la grabadora, pero prefiero el codigo que me diste
unicamente me falta lo de los decimales...

si ya comentaste que abriendolo del modo tradicional (menu: archivo / abrir / archivos de texto...)
no has tenido problemas con las decimales -???- (solo por hacer la prueba)...
intenta el msmo procedimiento "tradicional" pero usandolo desde una macro +/- como sigue:

-> OJO: segun el ejemplo que expusiste, el archivo *.TXT contiene 11 columnas con datos numericos
pon especial atencion al bucle donde se rellena una matriz (Columnas) para el argumento "FieldInfo:=..."
Y TAMBIEN a la linea donde se indica cual es "la hoja" donde se copian los datos (en el ThisWorkbook.)

Sub Copiar_txt()
Dim n As Byte, Columnas(0 To 10, 1 To 2), Rango As String
For n = 1 To 11: Columnas(n - 1, 1) = n: Columnas(n - 1, 2) = 1: Next
Application.ScreenUpdating = False
Workbooks.OpenText _
FileName:="c:\documents and settings\ing. diego herrera\escritorio\prueba\examen.txt", _
Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo:=Columnas
Rango = Range("a1").CurrentRegion.Address
ThisWorkbook.Worksheets("hoja1").Range(Rango).Value = Range(Rango).Value
ActiveWorkbook.Close False
End Sub

o... si lo anterior te sigue generando "problemas" con el separador de las decimales...
Y... tu excel es version 2000 o superior, puedes "cambiar" la apertura considerando diferentes separadores...
cambiando la ultima linea del metodo .OpenText +/- asi:
de:
Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo:=Columnas
a:
Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo:=Columnas, _
DecimalSeparator:=".", ThousandsSeparator:=",", TrailingMinusNumbers:=False

(solo asegurate de cual separador corresponde a decimales o miles) -?-

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

Hector buenas noches

Todo me sirvio me quedo perfecta la macro
Quedare eternamente agradecido. Dios te bendiga

Saludos desde colombia



DIEGO HERRERA

hola, Diego !

gracias a ti, por el "feed-back" ;)
y ya puedes usar -al menos- dos formas para alcanzar tu objetivo ;)

saludos (desde México)
hector.

hector buenas noches:

es lo siguiente

el txt esta dividido en dos partes. la primera me toma los decimales sin
problema pero la segunda ya no . Acontinuacion acexo como va el final de la
primera parte y el inicio de la segunda:

-24.86 -94.17 -111.22 39.83 36.07 -57.69 -125.14 -109.65 -145.90 -132.26
-58.02 -138.47 -134.43 -114.00 -124.20 -132.26 -133.83 -116.78 -139.69
-153.86 -153.91 -95.71 -94.47 486.05 -118.01 -139.05 258.05 -98.82 -132.59
-39.43 36.68 -130.72 58.38 -104.70 -125.77 -67.27 -101.90 108.79 368.16
482.28 -115.51 -80.83 195.79 164.49 82.78 72.52 -104.37 -36.30 -123.60
-145.87 -104.47 -132.56 -94.47 -111.82 -98.18 -144.97 -163.86 -147.42 -91.09
-64.74 -129.51 -137.54 -88.64 -43.65


Izquierdo

286.48 6.19 -4.39 136.15 134.24 73.31 -10.01 61.49 5.63 9.23 -6.02 4.95
-5.74 17.05 0.11 -0.56 0.00 -9.06 -3.83 -1.63 -0.56 -15.36 -2.87 537.79 -4.67
-16.20 59.52 0.45 -5.74 2.36 117.19 -0.56 0.17 -16.26 -3.71 8.50 -1.58 174.13
459.37 542.57 -24.42 -20.87 36.51 64.31 97.95 81.18 -2.87 3.88 -4.78 11.98
48.16 -8.05 7.03 -2.59 2.48 22.28 -10.41 -3.77 8.38 14.18 -31.39 -8.66 29.71
30.55

Vale la pena anotaar que faltan columas por incluir en total 64.

hola, Diego !

(como veras...) no se puede apreciar donde inicia "cada parte" del *.TXT (cuantas columnas son)
por que no "subes" un ejemplo del archivo de texto en algun servidor publico/gratuito/... -???-

saludos,
hector.

__ OP __

el txt esta dividido en dos partes. la primera me toma los decimales sin problema pero la segunda ya no .
Acontinuacion acexo como va el final de la primera parte y el inicio de la segunda:

-24.86 -94.17 -111.22 39.83 36.07 -57.69 -125.14 -109.65 -145.90 -132.26
-58.02 -138.47 -134.43 -114.00 -124.20 -132.26 -133.83 -116.78 -139.69
-153.86 -153.91 -95.71 -94.47 486.05 -118.01 -139.05 258.05 -98.82 -132.59
-39.43 36.68 -130.72 58.38 -104.70 -125.77 -67.27 -101.90 108.79 368.16
482.28 -115.51 -80.83 195.79 164.49 82.78 72.52 -104.37 -36.30 -123.60
-145.87 -104.47 -132.56 -94.47 -111.82 -98.18 -144.97 -163.86 -147.42 -91.09
-64.74 -129.51 -137.54 -88.64 -43.65


Izquierdo

286.48 6.19 -4.39 136.15 134.24 73.31 -10.01 61.49 5.63 9.23 -6.02 4.95
-5.74 17.05 0.11 -0.56 0.00 -9.06 -3.83 -1.63 -0.56 -15.36 -2.87 537.79 -4.67
-16.20 59.52 0.45 -5.74 2.36 117.19 -0.56 0.17 -16.26 -3.71 8.50 -1.58 174.13
459.37 542.57 -24.42 -20.87 36.51 64.31 97.95 81.18 -2.87 3.88 -4.78 11.98
48.16 -8.05 7.03 -2.59 2.48 22.28 -10.41 -3.77 8.38 14.18 -31.39 -8.66 29.71
30.55

Vale la pena anotaar que faltan columas por incluir en total 64.