Copiar texto en excel

17/04/2004 - 12:07 por JC | Informe spam
Hola:
¿Cómo puedo copiar el contenido de un archivo de texto en una hoja de excel?
El problema está en que, dicho archivo, aunque es de texto, está escrito
como binario (111000101011...) y me lo pega como un número exponencial.
Lo que necesito que pegue individualmente y de arriba a bajo cada signo.
Gracias y un saludo

Preguntas similare

Leer las respuestas

#11 JC
19/04/2004 - 21:07 | Informe spam
Victor muchas gracia por tu ayuda, pero justamente lo que necesito es
separar los datos de una celda y ponerlos en filas individuales.
Saludos :-)

********************
"Víctor" escribió en el mensaje
news:0a0d01c42575$de4b3a90$
No sé si esto podrá ayudarte, pero con la función
=CONCATENAR puedes unir en una única celda los caracteres
que haya en varias. Si, por ejemplo, en A1
tienes '10101010' y en B1 '011011', con esta fórmula:

=CONCATENAR(A1;B1)

obtendrás '10101010011011'

Así que quizá te resuelva el problema, aunque necesitarás
importar el texto en varias columnas, y después aplicar
esta fórmula.

Espero haberte sido de ayuda.

:-)

Mostrar la cita
soluciona el problema.
Mostrar la cita
pueden pasar a filas. A
Mostrar la cita
una función.
Mostrar la cita
asistente para
Mostrar la cita
despues el
Mostrar la cita
la descripción
Mostrar la cita
al nombre del
Mostrar la cita
del menu
Mostrar la cita
indicas y el
Mostrar la cita
puedo conseguir que
Mostrar la cita
sola columna.
Mostrar la cita
separado en
Mostrar la cita
dígitos existan.
Mostrar la cita
mensaje
Mostrar la cita
del menu
Mostrar la cita
de notas y
Mostrar la cita
en modo binario, si
Mostrar la cita
111111000111010010101100111010101110100111111001000110001
Mostrar la cita
mensaje
Mostrar la cita
¿lo puedes leer?
Mostrar la cita
líneas del fichero.
Mostrar la cita
mensaje
Mostrar la cita
archivo de texto en una
Mostrar la cita
archivo, aunque es de
Mostrar la cita
(111000101011...) y me lo pega
Mostrar la cita
que pegue
Mostrar la cita
signo. Gracias y un
Mostrar la cita
#12 JC
19/04/2004 - 22:38 | Informe spam
Fernando, eres un Fenóóóóómeno. La macro que me has indicado va de cine.
Solo he tenido que depurar el acento de la palabra "Línea", pues no me lo
admitía. Por lo demás lo deja todo tal como necesito.
Permíteme una pregunta más:

Mostrar la cita
fichero que haya que procesar

¿Hay forma de poder hacer esto automáticamente con cada archivo que importe
sin tener que cambiar cada vez en la macro el nombre del archivo? pues son
un par de miles de archivos los que tengo que pasar.
Muchas gracias Fernando :-)))))

*****************
"Fernando Arroyo" escribió en el mensaje
news:%
Prueba con el siguiente código:

Sub LeerFichero()
Dim intFich As Integer
Dim strLínea As String
Dim n As Integer

intFich = FreeFile(0)
Open "C:\Ruta\Fichero.txt" For Input Access Read As intFich 'Poner el
fichero que haya que procesar
Line Input #intFich, strLínea

For n = 1 To Len(strLínea)
Worksheets("Hoja1").Range("A" & n) = Mid(strLínea, n, 1)
Next n

Close intFich
End Sub


Los datos del fichero de texto se volcarían en Hoja1, a partir de A1.
Un saludo.


Fernando Arroyo
MS MVP - Excel


"JC" escribió en el mensaje
news:
Mostrar la cita
problema.
Mostrar la cita
A
Mostrar la cita
#13 Fernando Arroyo
20/04/2004 - 08:57 | Informe spam
"JC" escribió en el mensaje news:
Mostrar la cita
De nada :-)

"C:\Ruta\Fichero.txt" puede ser sustituído por una variable --tipo string o variant-- que contenga un nombre de archivo válido, por ejemplo:

Dim strFichero as String
strFichero = "C:\Ruta\Fichero.txt"
Open strFichero For Input Access Read As intFich

El problema es que, tal como está escrito el código, si procesas varios ficheros simultáneamente irás "machacando" la información de los anteriores, dado que su contenido se volcará siempre en el mismo sitio: en Hoja1, a partir de A1...
Un saludo.


Fernando Arroyo
MS MVP - Excel
#14 JC
20/04/2004 - 13:25 | Informe spam
Fernando gracias por todo.
Saludos :-)))

***************
"Fernando Arroyo" escribió en el mensaje
news:
"JC" escribió en el mensaje
news:
Mostrar la cita
importe
Mostrar la cita
De nada :-)

"C:\Ruta\Fichero.txt" puede ser sustituído por una variable --tipo string o
variant-- que contenga un nombre de archivo válido, por ejemplo:

Dim strFichero as String
strFichero = "C:\Ruta\Fichero.txt"
Open strFichero For Input Access Read As intFich

El problema es que, tal como está escrito el código, si procesas varios
ficheros simultáneamente irás "machacando" la información de los anteriores,
dado que su contenido se volcará siempre en el mismo sitio: en Hoja1, a
partir de A1...
Un saludo.


Fernando Arroyo
MS MVP - Excel
Ads by Google
Search Busqueda sugerida