Abrir archivos txt

hola (de nuevo), Angel ! (fe de erratas)

-> de:
Conexion.Open "Driver={Microsoft Text Driver (*.txt; *.csv)};DBQ=" & _
Ruta & ";Extensions=asc,csv,tab,txt;"

-> a:
Conexion.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
Ruta & "\;Extended Properties=""text;HDR=No;FMT=Delimited"""

OJO: que se me quedo una barra invertida en la segunda linea de la (nueva) propuesta...

de: -> Ruta & "\;Extended Properties=""text;HDR=No;FMT=Delimited"""
a: -> Ruta & ";Extended Properties=""text;HDR=No;FMT=Delimited"""

saludos,
hector.

Hola

tengo un problema parecido a que se mencionaba en este foro, toda esta info
me sirvio, pero el txt que estoy utilizando son datos numericos, ellos vienen
separados por espacios, como hago para que la macro me ubique cada dato en
una selda, ya que como actualmente coloco la macro con la programacion que
uds dieron me colocado todos los datos en la columna A.
Les agradezco si me pueden ayudar

hola, 'anonimo/a' !

pues... seria bueno conocer como estan los datos (numeros y espacios) en el archivo txt
y (de pasadita) si expones cual es el codigo que estas aplicando (para conocer mas datos) ;)

saludos,
hector.

__ OP __

tengo un problema parecido a que se mencionaba en este foro, toda esta info me sirvio
pero el txt que estoy utilizando son datos numericos, ellos vienen separados por espacios
como hago para que la macro me ubique cada dato en una selda
ya que como actualmente coloco la macro con la programacion que uds dieron
me colocado todos los datos en la columna A.
Les agradezco si me pueden ayudar

Gracias hector

este es el codigo:

Sub Copiar_txt()
Dim Ruta As String, Archivo As String, Consulta As String, _
Conexion As Object, Registros As Object
Ruta = "C:\Documents and Settings\Ing. Diego Herrera\Escritorio\PRUEBA"
Archivo = "EXAMEN.txt"
Consulta = "select * from " & Archivo
Set Conexion = CreateObject("ADODB.Connection")
Conexion.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
Ruta & "\;Extended Properties=""text;HDR=No;FMT=Delimited"""
Set Registros = CreateObject("ADODB.Recordset")
On Error Resume Next ' esta linea es por si las dudas ??? '
Registros.Open Consulta, Conexion
Range("a1").CopyFromRecordset Registros
If Registros.State = adStateOpen Then Registros.Close
Set Registros = Nothing
Conexion.Close
Set Conexion = Nothing
End Sub

y esta es una parte de como vienen los datos en el archvo txt

151.95 206.29 141.10 195.97 111.40 133.26 178.65 125.01 152.24 320.57 283.85
592.87 262.40 219.49 200.92 157.19 195.15 251.67 182.36 200.51 187.72 197.62
170.39 174.93 179.47 -145.64 70.96 138.21 191.02 151.00 199.69 102.32 186.07
112.22 200.10 152.65 158.43 153.89 122.95 259.92 176.58 204.64 285.50 184.83
208.76 220.73 224.44 -76.74 193.50 179.06 215.36 219.49 172.46 140.69 174.9

Te agradezco tu colaboracion estoy muy enredado con esto

Hector :

Me surge una inquietud, es posible que tan pronto abra el archivo de excel
se ejecute esta macro automaticamente, trayendome los datos que se encuentren
en ese momento en el archivo txt, claro teniendo en cuenta que estos solo van
a cambiar numericamnete hablando, mas no la caantidad de estos.

Gracias