Datos:Pasar datos de una fila de excel a un fichero .txt

07/06/2005 - 17:27 por dargento | Informe spam
Hola!
Buenas tardes.
Mi duda, es que yo tengo una serie de filas en una hoja de calculo, qu
son el resultado de una consulta, con lo que tengo en la primera fila
el nombre de los campos, y luego en las filas posteriores los valore
de la consulta.
Yo necesito, pasar cada registro a un fichero de texto, en el cual deb
aparecer, el nombre del campo, espacio y valor del campo, y uno debaj
de otro.Por ejemplo:


Nombre Pepito
Apelido Grillo
etc..

Si alguien me puede ayudar, el estaré muy agraadecido.
Muchas gracias.
Desiree.Argento@indexing.e

dargent
dargento's Profile: http://www.msusenet.com/member.php?userid4
View this thread: http://www.msusenet.com/t-187051769

Preguntas similare

Leer las respuestas

#1 César H.
08/06/2005 - 00:12 | Informe spam
Hola, Aunque hay varias maneras de hacerlo, te voy a dar un codigo muy simple,
solo faltaría la parte del archivo de texto que si no la conoces nos escribes:
Suerte!

Sub Proceso()
Dim CuentaRegistros As Integer
Dim TotalColumnas ' Si es una constante no necesitas crearla

CuentaRegistros = 2 ' Comienza a Partir de la Siguiente Fila
TotalColumnas = 6 'Supongamos que son seis columnas
While Not IsEmpty(Range("A" & CuentaRegistros)) ' Se cumple mientras A2
contenga datos
For i = 1 To TotalColumnas

Debug.Print (Cells(1, i).Value & " : " & Cells(CuentaRegistros,
i).Value)
Next i
CuentaRegistros = CuentaRegistros + 1
Wend
End Sub


"dargento" escribió:


Hola!
Buenas tardes.
Mi duda, es que yo tengo una serie de filas en una hoja de calculo, que
son el resultado de una consulta, con lo que tengo en la primera fila,
el nombre de los campos, y luego en las filas posteriores los valores
de la consulta.
Yo necesito, pasar cada registro a un fichero de texto, en el cual debe
aparecer, el nombre del campo, espacio y valor del campo, y uno debajo
de otro.Por ejemplo:


Nombre Pepito
Apelido Grillo
etc..

Si alguien me puede ayudar, el estaré muy agraadecido.
Muchas gracias.



dargento

dargento's Profile: http://www.msusenet.com/member.php?userid47
View this thread: http://www.msusenet.com/t-1870517691


Respuesta Responder a este mensaje
#2 dargento
09/06/2005 - 08:03 | Informe spam
Muchas gracias por tu tiempo y tu respuesta.Voy a probar co
ello.Gracias



César H. Wrote:
Hola, Aunque hay varias maneras de hacerlo, te voy a dar un codigo mu
simple,
solo faltarà*a la parte del archivo de texto que si no la conoces no
escribes:
Suerte!

Sub Proceso()
Dim CuentaRegistros As Integer
Dim TotalColumnas ' Si es una constante no necesitas crearla

CuentaRegistros = 2 ' Comienza a Partir de la Siguiente Fila
TotalColumnas = 6 'Supongamos que son seis columnas
While Not IsEmpty(Range("A" & CuentaRegistros)) ' Se cumple mientra
A2
contenga datos
For i = 1 To TotalColumnas

Debug.Print (Cells(1, i).Value & " : " & Cells(CuentaRegistros,
i).Value)
Next i
CuentaRegistros = CuentaRegistros + 1
Wend
End Sub


"dargento" escribió:

>
> Hola!
> Buenas tardes.
> Mi duda, es que yo tengo una serie de filas en una hoja de calculo
que
> son el resultado de una consulta, con lo que tengo en la primer
fila,
> el nombre de los campos, y luego en las filas posteriores lo
valores
> de la consulta.
> Yo necesito, pasar cada registro a un fichero de texto, en el cua
debe
> aparecer, el nombre del campo, espacio y valor del campo, y un
debajo
> de otro.Por ejemplo:
>
>
> Nombre Pepito
> Apelido Grillo
> etc..
>
> Si alguien me puede ayudar, el estaré muy agraadecido.
> Muchas gracias.
>
>
>
> dargento


> dargento's Profile: http://www.msusenet.com/member.php?userid47
> View this thread: http://www.msusenet.com/t-1870517691
>




dargent
dargento's Profile: http://www.msusenet.com/member.php?userid4
View this thread: http://www.msusenet.com/t-187051769
Respuesta Responder a este mensaje
#3 dargento
09/06/2005 - 08:03 | Informe spam
Muchas gracias por tu tiempo y tu respuesta.Voy a probar co
ello.Gracias



César H. Wrote:
Hola, Aunque hay varias maneras de hacerlo, te voy a dar un codigo mu
simple,
solo faltarà*a la parte del archivo de texto que si no la conoces no
escribes:
Suerte!

Sub Proceso()
Dim CuentaRegistros As Integer
Dim TotalColumnas ' Si es una constante no necesitas crearla

CuentaRegistros = 2 ' Comienza a Partir de la Siguiente Fila
TotalColumnas = 6 'Supongamos que son seis columnas
While Not IsEmpty(Range("A" & CuentaRegistros)) ' Se cumple mientra
A2
contenga datos
For i = 1 To TotalColumnas

Debug.Print (Cells(1, i).Value & " : " & Cells(CuentaRegistros,
i).Value)
Next i
CuentaRegistros = CuentaRegistros + 1
Wend
End Sub


"dargento" escribió:

>
> Hola!
> Buenas tardes.
> Mi duda, es que yo tengo una serie de filas en una hoja de calculo
que
> son el resultado de una consulta, con lo que tengo en la primer
fila,
> el nombre de los campos, y luego en las filas posteriores lo
valores
> de la consulta.
> Yo necesito, pasar cada registro a un fichero de texto, en el cua
debe
> aparecer, el nombre del campo, espacio y valor del campo, y un
debajo
> de otro.Por ejemplo:
>
>
> Nombre Pepito
> Apelido Grillo
> etc..
>
> Si alguien me puede ayudar, el estaré muy agraadecido.
> Muchas gracias.
>
>
>
> dargento


> dargento's Profile: http://www.msusenet.com/member.php?userid47
> View this thread: http://www.msusenet.com/t-1870517691
>




dargent
dargento's Profile: http://www.msusenet.com/member.php?userid4
View this thread: http://www.msusenet.com/t-187051769
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida