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