Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

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

2,629 views
Skip to first unread message

frank69

unread,
Apr 1, 2012, 6:24:41 PM4/1/12
to
¡ 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.

Pedro F. Pardo

unread,
Apr 2, 2012, 7:12:23 AM4/2/12
to
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

unread,
Apr 2, 2012, 7:19:32 AM4/2/12
to
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

Pedro F. Pardo

unread,
Apr 2, 2012, 7:54:16 AM4/2/12
to
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 ;-)

Emilio

unread,
Apr 2, 2012, 12:55:49 PM4/2/12
to
--------------------------------------------------------------------------
¡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" <nospam...@orange.es.invalid> escribió en el mensaje de
noticias news:Y_6dnc_4jfE...@giganews.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
>
>
>


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

The message was checked by ESET Smart Security.

http://www.eset.com



frank69

unread,
Apr 3, 2012, 7:31:01 AM4/3/12
to
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.

frank69

unread,
Apr 3, 2012, 7:52:36 AM4/3/12
to
Emilio escribió el 02/04/2012 18:55 :
> ¡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
>
Gracias por responder, y me ha sido útil ya que he mirado otras
posibilidades para hacerlo y me ha salido.

Saludos

Josevillaviencio

unread,
Aug 6, 2021, 1:39:19 AM8/6/21
to
Bro, esto es lo mejor que he leído hace mucho tiempo. excelente aporte, me sirvió muchísimo
0 new messages