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.

:-)

Mostrar la cita

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

soluciona el problema.
Mostrar la cita

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

pueden pasar a filas. A
Mostrar la cita

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

una función.
Mostrar la cita

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$
Mostrar la cita

Hash: SHA1

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

asistente para
Mostrar la cita

Mostrar la cita

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

despues el
Mostrar la cita

Mostrar la cita

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
Mostrar la cita

Mostrar la cita

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

al nombre del
Mostrar la cita

Mostrar la cita

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

del menu
Mostrar la cita

Mostrar la cita

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

indicas y el
Mostrar la cita

Mostrar la cita

> problema radica ahí. Al importar los datos solo

puedo conseguir que
Mostrar la cita

Mostrar la cita

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

sola columna.
Mostrar la cita

Mostrar la cita

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

separado en
Mostrar la cita

Mostrar la cita

> excel en una solo columna pero tantas filas como

dígitos existan.
Mostrar la cita

Mostrar la cita

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

mensaje
Mostrar la cita

Mostrar la cita

> 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
Mostrar la cita

Mostrar la cita

> > 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
Mostrar la cita

Mostrar la cita

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

en modo binario, si
Mostrar la cita

Mostrar la cita

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

111111000111010010101100111010101110100111111001000110001
Mostrar la cita

Mostrar la cita

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

mensaje
Mostrar la cita

Mostrar la cita

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

¿lo puedes leer?
Mostrar la cita

Mostrar la cita

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

líneas del fichero.
Mostrar la cita

Mostrar la cita

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

mensaje
Mostrar la cita

Mostrar la cita

> > > > news:%
> > > > > Hola:
> > > > > ¿Cómo puedo copiar el contenido de un

archivo de texto en una
Mostrar la cita

hoja
Mostrar la cita

> > > > > de excel? El problema está en que, dicho

archivo, aunque es de
Mostrar la cita

Mostrar la cita

> > > > > texto, está escrito como binario

(111000101011...) y me lo pega
Mostrar la cita

Mostrar la cita

> > > > > como un número exponencial. Lo que necesito

que pegue
Mostrar la cita

Mostrar la cita

> > > > > individualmente y de arriba a bajo cada

signo. Gracias y un
Mostrar la cita

saludo
Mostrar la cita

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

.

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

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:
Mostrar la cita

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

problema.
Mostrar la cita

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

A
Mostrar la cita

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:
Mostrar la cita

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:
Mostrar la cita

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
Mostrar la cita

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