Abrir un fichero de texto y copiar el contenido a través de una macro.

El domingo 1 de abril de 2012 23:24:41 UTC+1, frank69 escribió:

¡ Hola !
Quisiera saber si desde excel, a través de una macro, se puede abrir un
fichero (y no sé el nombre y que cada vez será diferente) con el
bloc de notas, seleccionar todo lo que hay (Seleccionar todo), copiar, cerrar
el
bloc de notas y pegar en excel, a partir de una celda concreta.

Muchas gracias, por anticipado.

La siguiente macro copia el contenido del fichero test.txt que está en C:\
y lo pega en la celda D5. Aunque lo copia TODO dentro de la misma celda, Si quieres que vaya pegando línea a línea puedes manipular la cadena de texto donde está almacenado el texto. O separar por columnas o lo que necesites, eso depende del contenido del fichero o el formato en el que esté.


Sub copia_y_pega()
Open "C:\test.txt" For Input As #1
contenido = Input(LOF(1), #1)
Range("D5").Value = contenido

End Sub

OPS

Antes le di a enviar antes de tiempo ¬_¬

Esta versión mejorada de la macro va pegando las lineas una en cada celda,
una debajo de otra...

Sub copia_y_pega()
Open "C:\test.txt" For Input As #1
contenido = Input(LOF(1), #1)
linea = Split(contenido, Chr(13))
For i = 0 To UBound(linea)
Range("D" & 5 + i).Value = linea(i)
Next i
Close #1
End Sub

El lunes 2 de abril de 2012 12:12:23 UTC+1, Pedro F. Pardo escribió:

El domingo 1 de abril de 2012 23:24:41 UTC+1, frank69 escribió:
> ¡ Hola !
> Quisiera saber si desde excel, a través de una macro, se puede abrir un
> fichero (y no sé el nombre y que cada vez será diferente) con el
> bloc de notas, seleccionar todo lo que hay (Seleccionar todo), copiar, cerrar
> el
> bloc de notas y pegar en excel, a partir de una celda concreta.
>
> Muchas gracias, por anticipado.

La siguiente macro copia el contenido del fichero test.txt que está en C:\
y lo pega en la celda D5. Aunque lo copia TODO dentro de la misma celda, Si quieres que vaya pegando línea a línea puedes manipular la cadena de texto donde está almacenado el texto. O separar por columnas o lo que necesites, eso depende del contenido del fichero o el formato en el que esté.


Sub copia_y_pega()
Open "C:\test.txt" For Input As #1
contenido = Input(LOF(1), #1)
Range("D5").Value = contenido

End Sub

Olvidé cerrar el fichero con "Close #1" al final, Es importante cerrarlo porque si te lo dejas abierto después te da error al intentar abrirlo desde otro sitio ;-)

¡Importante!: Colabora con el grupo.Contesta a este mensaje y dinos si te
sirvió o no la respuesta dada. Muchas gracias
Hola!
¿Y para que quieres el bloc de notas?, office incorpora herramientas para
leer archivos de texto sin necesidad de terceros.

Consulta la ayuda de Open (office)

Saludos a todos desde Huelva

Emilio [MS-MVP Access 2006/11]
miliuco56 ALGARROBA hotmail PUNTO com
http://www.mvp-access.com/foro
http://www.mvp-access.es/emilio
"frank69" escribió en el mensaje de
noticias news:

¡ Hola !
Quisiera saber si desde excel, a través de una macro, se puede abrir un
fichero (y no sé el nombre y que cada vez será diferente) con el
bloc de notas, seleccionar todo lo que hay (Seleccionar todo), copiar,
cerrar
el
bloc de notas y pegar en excel, a partir de una celda concreta.

Muchas gracias, por anticipado.

__________ Information from ESET Smart Security, version of virus
signature database 7020 (20120402) __________

The message was checked by ESET Smart Security.

http://www.eset.com

__________ Information from ESET Smart Security, version of virus signature database 7020 (20120402) __________

The message was checked by ESET Smart Security.

http://www.eset.com

Pedro F. Pardo escribió el 02/04/2012 13:19 :

OPS

Antes le di a enviar antes de tiempo ¬_¬

Esta versión mejorada de la macro va pegando las lineas una en cada
celda,
una debajo de otra...

Sub copia_y_pega()
Open "C:test.txt" For Input As #1
contenido = Input(LOF(1), #1)
linea = Split(contenido, Chr(13))
For i = 0 To UBound(linea)
Range("D" & 5 + i).Value = linea(i)
Next i
Close #1
End Sub

Muchas gracias por tu ayuda, me ha servido y he aprendido algo nuevo.

Saludos.