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

[frank69]

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

Muchas gracias, por anticipado.

[Emilio]

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

¡ 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]

¡ 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

[Pedro F. Pardo]

Post by Pedro F. Pardo

¡ 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 ;-)

[Josevillaviencio]

Post by Pedro F. Pardo

Post by Pedro F. Pardo

¡ 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 ;-)

Bro, esto es lo mejor que he leído hace mucho tiempo. excelente aporte, me sirvió muchísimo

[Pedro F. Pardo]

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

[frank69]

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

Post by Pedro F. Pardo
OP
Antes le di a enviar antes de tiempo ¬_
Esta versión mejorada de la macro va pegando las lineas una en cad
celda
una debajo de otra..
Sub copia_y_pega(
Open "C:test.txt" For Input As #
contenido = Input(LOF(1), #1
linea = Split(contenido, Chr(13)
For i = 0 To UBound(linea
Range("D" & 5 + i).Value = linea(i
Next
Close #
End Su

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

Saludos.

[frank69]

Emilio escribió el 02/04/2012 18:55

Post by Emilio
¡Importante!: Colabora con el grupo.Contesta a este mensaje y dinos si t
sirvió o no la respuesta dada. Muchas gracia
Hola
¿Y para que quieres el bloc de notas?, office incorpora herramienta
par
leer archivos de texto sin necesidad de terceros
Consulta la ayuda de Open (office
Saludos a todos desde Huelv
Emilio [MS-MVP Access 2006/11
miliuco56 ALGARROBA hotmail PUNTO co
http://www.mvp-access.com/for
http://www.mvp-access.es/emili
"frank69" escribió e
el mensaje d
noticias news

Post by frank69
¡ Hola
Quisiera saber si desde excel, a través de una macro, se puede abrir u
fichero (y no sé el nombre y que cada vez será diferente) con e
bloc de notas, seleccionar todo lo que hay (Seleccionar todo), copiar
cerra
e
bloc de notas y pegar en excel, a partir de una celda concreta
Muchas gracias, por anticipado
__________ Information from ESET Smart Security, version of viru
signature database 7020 (20120402) _________
The message was checked by ESET Smart Security
http://www.eset.co

__________ Information from ESET Smart Security, version of virus signatur
database 7020 (20120402) _________
The message was checked by ESET Smart Security
http://www.eset.co

Gracias por responder, y me ha sido útil ya que he mirado otra
posibilidades para hacerlo y me ha salido

Saludos