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

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

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

hola Pedro, tengo el siguiente inconveniente, el archivo csv tiene como 20 columnas y hacia abajo muchas filas, y con el programa solo logro convertir una palabra de todo mi archivo, porque esta delimitado por ";" y tambien espacios, es decir "00778894 ;" y pasa al siguiente dato de la siguiente columna, como podria hacer? mil gracias por tu ayuda