Abrir archivos txt

hola, 'anonimo/a' !

Quiero cargar un archivo txt en la columna A, desde una direccion especifica de mi equipo
x.ej. c:\espacio, al dar clic en un boton...

op1: prueba haciendo consultas a bases de datos externas de archivos de texto
y te evitas el uso de macros y botones adicionales (solo sigue los pasos del asistente)

op2: podrias usar macros y ADO para rescatar datos desde archivos de texto
hay algunas consultas anteriores al respecto, o podrias ampliar los detalles pendientes

saludos,
hector.

Gracias Hector Miguel.
Pero busco la solucion a mi opción.
Quiero cargar un archivo txt en la columna, este archivo esta en mi maquina
en el c:\espacio.txt


"Héctor Miguel" wrote:

hola, 'anonimo/a' !

> Quiero cargar un archivo txt en la columna A, desde una direccion especifica de mi equipo
> x.ej. c:\espacio, al dar clic en un boton...

op1: prueba haciendo consultas a bases de datos externas de archivos de texto
y te evitas el uso de macros y botones adicionales (solo sigue los pasos del asistente)

op2: podrias usar macros y ADO para rescatar datos desde archivos de texto
hay algunas consultas anteriores al respecto, o podrias ampliar los detalles pendientes

saludos,
hector.

hola, (...) ???

Pero busco la solucion a mi opcion.
Quiero cargar un archivo txt en la columna
este archivo esta en mi maquina en el c:\espacio.txt

en tanto te decides por hacer el intento con otras alternativas...
copia/pega lo siguiente en un modulo de codigo estandar y de regreso en la hoja ejecutas la macro:
OJO: requiere de excel 2000 o superior (en caso contrario, comenta datos adicionales)

Sub Copiar_txt()
Dim Ruta As String, Archivo As String, Consulta As String, _
Conexion As Object, Registros As Object
Ruta = "c:\"
Archivo = "espacio.txt"
Consulta = "select * from " & Archivo
Set Conexion = CreateObject("ADODB.Connection")
Conexion.Open "Driver={Microsoft Text Driver (*.txt; *.csv)};DBQ=" & _
Ruta & ";Extensions=asc,csv,tab,txt;"
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

lo "correcto" es establecer referencias a ADO en el proyecto de macros (pero hay detalles que no has comentado)

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

__ OP __

Quiero cargar un archivo txt en la columna A, desde una direccion especifica de mi equipo
x.ej. c:\espacio, al dar clic en un boton...

op1: prueba haciendo consultas a bases de datos externas de archivos de texto
y te evitas el uso de macros y botones adicionales (solo sigue los pasos del asistente)

op2: podrias usar macros y ADO para rescatar datos desde archivos de texto
hay algunas consultas anteriores al respecto, o podrias ampliar los detalles pendientes

Muchas gracias el soporte Héctor Miguel.. gusto lo que necesitaba.
PD: La primera línea del archivo txt no me recupera, pero bueno no es muy
importante.

Saludos
Angel-Ecuador


"Héctor Miguel" wrote:

hola, (...) ???

> Pero busco la solucion a mi opcion.
> Quiero cargar un archivo txt en la columna
> este archivo esta en mi maquina en el c:\espacio.txt

en tanto te decides por hacer el intento con otras alternativas...
copia/pega lo siguiente en un modulo de codigo estandar y de regreso en la hoja ejecutas la macro:
OJO: requiere de excel 2000 o superior (en caso contrario, comenta datos adicionales)

Sub Copiar_txt()
Dim Ruta As String, Archivo As String, Consulta As String, _
Conexion As Object, Registros As Object
Ruta = "c:\"
Archivo = "espacio.txt"
Consulta = "select * from " & Archivo
Set Conexion = CreateObject("ADODB.Connection")
Conexion.Open "Driver={Microsoft Text Driver (*.txt; *.csv)};DBQ=" & _
Ruta & ";Extensions=asc,csv,tab,txt;"
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

lo "correcto" es establecer referencias a ADO en el proyecto de macros (pero hay detalles que no has comentado)

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

__ OP __
>>> Quiero cargar un archivo txt en la columna A, desde una direccion especifica de mi equipo
>>> x.ej. c:\espacio, al dar clic en un boton...
>>
>> op1: prueba haciendo consultas a bases de datos externas de archivos de texto
>> y te evitas el uso de macros y botones adicionales (solo sigue los pasos del asistente)
>>
>> op2: podrias usar macros y ADO para rescatar datos desde archivos de texto
>> hay algunas consultas anteriores al respecto, o podrias ampliar los detalles pendientes

hola, Angel !

PD: La primera linea del archivo txt no me recupera, pero bueno no es muy importante.

el que no te muestre la primera linea del archivo se debe a que las maquinarias de consulta a bases de datos
asumen (por omision) que el primer registro son los titulos y para poder administrar este parametro
necesitas cambiar de "proveedor" modificando la linea que establece la conexion +/- a lo siguiente:

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

o (si lo prefieres) puedes consultar temas relacionados con el uso da ADO y la obtencion de datos externos (p.e.) desde:

Como abrir archivos de texto delimitado que utilizan el texto IIsam del proveedor Jet
http://support.microsoft.com/kb/q262537/
-> Microsoft Active Data Objects y Microsoft ADO Ext.2.x for DDL and Security

otras fuentes de informacion:
-> http://tinyurl.com/2ejcmp http://preview.tinyurl.com/2ejcmp

-> Carl Prothman
ODBC Driver for TextFiles
http://www.carlprothman.net/Default.aspx?tabid#ODBCDriverForText
OLEDB Provider for Microsofr Jet TextFiles
http://www.carlprothman.net/Default.aspx?tabid‡#OLEDBProviderForMicrosoftJetText

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