Copiar texto en excel

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

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

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

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

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

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

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

.

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

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:

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