De Excel a fichero de Texto

21/09/2007 - 11:26 por Ivan Gil | Informe spam
Buenos dias a todos:

Ante todo agradeceros de antemano vuestra colaboracion ya que soy novato
en esto del VBA y tengo que solucionar un problemilla, que aparentemente es
sencillo y ni siquiera se si lo podre solucionar con VBA, supongo que si ya
que es bastante potente.

La cuestion es la siguiente:

Tengo una hoja de excel de la siguiente manera, una columna A con sus datos,
columna B con sus datos, columna C con sus datos, una columna D que sus datos
la componen la concatenacion de los datos de A mas los datos de B,columna E
que sus datos los componen la concatenacion de los datos de la columna B mas
los datos de la columna C. Ej.

A B C D E
DIR /P /S DIR /P DIR /S
CHKDSK /F /V CHKDSK /F CHKDSK /V

Lo que tengo que conseguir es que por medio de VBA a traves de un boton o de
la forma que sea que los datos de las columnas D y E los meta en un fichero
de texto y este fichero de texto quede de la siguiente manera:

DIR /P
DIR /S

CHKDSK /F
CHKDSK /V

¿Esposible hacer esto con VBA? Si es asi os agradeceria que me encaminarais
un poco para conseguir hacerlo.

Muchas Gracias y un Saludo.
 

Leer las respuestas

#1 Juan M
21/09/2007 - 12:12 | Informe spam
"Ivan Gil" escribió
Buenos dias a todos:

Ante todo agradeceros de antemano vuestra colaboracion ya que soy
novato
en esto del VBA y tengo que solucionar un problemilla, que aparentemente
es
sencillo y ni siquiera se si lo podre solucionar con VBA, supongo que si
ya
que es bastante potente.

La cuestion es la siguiente:

Tengo una hoja de excel de la siguiente manera, una columna A con sus
datos,
columna B con sus datos, columna C con sus datos, una columna D que sus
datos
la componen la concatenacion de los datos de A mas los datos de B,columna
E
que sus datos los componen la concatenacion de los datos de la columna B
mas
los datos de la columna C. Ej.

A B C D E
DIR /P /S DIR /P DIR /S
CHKDSK /F /V CHKDSK /F CHKDSK /V

Lo que tengo que conseguir es que por medio de VBA a traves de un boton o
de
la forma que sea que los datos de las columnas D y E los meta en un
fichero
de texto y este fichero de texto quede de la siguiente manera:

DIR /P
DIR /S

CHKDSK /F
CHKDSK /V

¿Esposible hacer esto con VBA? Si es asi os agradeceria que me
encaminarais
un poco para conseguir hacerlo.

Muchas Gracias y un Saludo.




Hola Iván,

El siguiente proceso crea el archivo, lo borra si existe, un archivo en c:\
llamado prueba.txt y escribe el contenido de la celda D1 y E1 de la hoja
activa desde la fila 1 hasta el final mientras haya datos en la columna.

Un saludo,
Juan
Sub test()
Dim NumeroArchivo As Integer
Dim i As Long

NumeroArchivo = FreeFile ' Obtiene un número
' de archivo que no se ha utilizado.
Open "c:\PRUEBA.txt" For Output As #NumeroArchivo
' Crea el nombre de archivo.
i = 1
Do While Range("D" & i) <> ""
Print #NumeroArchivo, Range("D" & i) & vbCrLf & Range("E" & i) &
vbCrLf 'Inserta texto.
i = i + 1
Loop
Close #NumeroArchivo ' Cierra el archivo.
End Sub

Preguntas similares