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

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

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

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