Copiar texto en excel

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.

:-)

Hola Fernando: He hecho lo que me dijiste pero no se

soluciona el problema.

Si puedo separar los dígitos en columnas, pero no se

pueden pasar a filas. A

lo mejor se necesita en vez de fórmula, indicarlo con

una función.

La verdad es que no se si se puede hacer lo que necesito.
Muchas gracias por tu atención.
Saludos

**************
"fernando" escribió en el mensaje
news:e$

Hash: SHA1

Lo que tienes que hacer es importar los datos, y en el

asistente para

importar los datos, marcas la opción 'de ancho fijo' y

despues el

ancho del campo lo estableces a 1.



"JC" escribió en el mensaje
news:
> Efectivamente, solo son ceros y unos.
> > ¿Tiene marcas de fin de registro?
> > ¿Tienes la descripción del registro?
>
> No tiene marcas de fin de registro y lo referente a

la descripción

> del registro no se a que te refieres. Si te refieres

al nombre del

> fichero, sí que lo conozco.
>
> > ¿Has probado a importar los datos con la opcion

del menu

> "Datos-Obtener datos externos-Importar datos"?
>
> Sí ya he probado obtener datos externos tal como

indicas y el

> problema radica ahí. Al importar los datos solo

puedo conseguir que

> se me ponga todo seguido en la misma celda y una

sola columna.

> Lo que necesito es que se me pongan los dígitos por

separado en

> excel en una solo columna pero tantas filas como

dígitos existan.

> Ejemplo: 10010
> que lo ponga así,
> 1
> 0
> 0
> 1
> 0
> Saludos
>
> ****************
> "fernando" escribió en el

mensaje

> news:eh43d$
> >
> > Hash: SHA1
> >
> > Entonces el texto sólo son ceros y unos.
> > ¿Tiene marcas de fin de registro?
> > ¿Tienes la descripción del registro?
> > ¿Has probado a importar los datos con la opcion

del menu

> > Datos-Obtener datos externos-Importar datos?
> >
> >
> > "JC" escribió en el mensaje
> > news:
> > > Hola Fernando:
> > > Los archivos los tengo editado con el en bloc

de notas y

> > > efectivamente los puedo leer.
> > > El ficheros en si no decodifican nada por estar

en modo binario, si

> > > no que es una forma de decir SI o NO
> > > Uno de los ficheros es de este modo:
> > >

111111000111010010101100111010101110100111111001000110001

> > > Saludos
> > > *************************
> > >
> > > "fernando" escribió en el

mensaje

> > > news:
> > > >
> > > > Hash: SHA1
> > > >
> > > > El archivo que dices si lo editas con notepad,

¿lo puedes leer?

> > > > ¿Qué datos tiene el fichero? Pega aqui unas

líneas del fichero.

> > > >
> > > >
> > > >
> > > > "JC" escribió en el

mensaje

> > > > news:%
> > > > > 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

> > > > >
> > > >
> > > >
> > >
> >
> >
>

.

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:

Open "C:\Ruta\Fichero.txt" For Input Access Read As intFich 'Poner el

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:

Hola Fernando: He hecho lo que me dijiste pero no se soluciona el

problema.

Si puedo separar los dígitos en columnas, pero no se pueden pasar a filas.

A

lo mejor se necesita en vez de fórmula, indicarlo con una función.
La verdad es que no se si se puede hacer lo que necesito.
Muchas gracias por tu atención.
Saludos

**************
"fernando" escribió en el mensaje
news:e$
>
> Hash: SHA1
>
> Lo que tienes que hacer es importar los datos, y en el asistente para
> importar los datos, marcas la opción 'de ancho fijo' y despues el
> ancho del campo lo estableces a 1.
>
>
>

"JC" escribió en el mensaje news:

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:

>Open "C:\Ruta\Fichero.txt" For Input Access Read As intFich 'Poner el
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 :-)))))

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

Fernando gracias por todo.
Saludos :-)))

***************
"Fernando Arroyo" escribió en el mensaje
news:
"JC" escribió en el mensaje
news:

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:

>Open "C:\Ruta\Fichero.txt" For Input Access Read As intFich 'Poner el
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 :-)))))

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