Copiar texto en excel

Gracias Fernando, voy a ponerlo en práctica y te comento.

*****************+
"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
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
Mostrar la cita

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

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

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

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

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

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

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

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

.

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.
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.
>
>
>

Fernando Arroyo muchas gracias por tu aportación. Voy a probarlo y te cuento
como queda el resultado.
Saludos :-)))

**************
"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.
>
>
>