Exportar datos de un listbox a txt

Que bien chilla la niña

Compañero aquí de nuevo, creo que lo mio dejo de ser duda por saber nada

Estoy usando un código para exportar los datos de mi listbox a un txt, estoy atorado en lo principal que es cargar la info

dim linea as string

dim arch as string

dim I as integer

arch="c:\consultas.txt"

open arch four ouput access write as #1

for I=0 to listbox1.listcount

linea=""

linea=listbox1.list(I,0).value

print#1

Clouse #1

1

1 Respuesta

806.575 pts. Excel avanzado y VBA

Aquí tienes la solución:

(En mi ejemplo lo he hecho poniendo un listbox en la hoja y no en un formulario, pero funcionaria igual)

La primera macro es para recordarte como llenamos un listbox de ejemplo de dos columnas la A y la B de la hoja activa.

La segunda macro te crea un txt con los datos de tu listbox, incluso se queda preparada para seguir acumulando datos en el txt sin borrar los anteriores.

Como siempre Arturo, solo queda finalizar y puntuar.

Un saludo,

Sub llenalistbox()

sheets(1).select

Range("a2").Select

Do While ActiveCell.Value <> ""

ActiveSheet.ListBox1.AddItem ActiveCell

i = ActiveSheet.ListBox1.ListCount - 1

ActiveSheet.ListBox1.List(i, 1) = ActiveCell.Offset(0, 1)

ActiveCell.Offset(1, 0).Select

Loop

End Sub

Sub creartxt()

For i = 0 To ActiveSheet.ListBox1.ListCount - 1

valor1 = ActiveSheet.ListBox1.List(i, 0)

valor2 = ActiveSheet.ListBox1.List(i, 1)

texto = valor1 & " " & valor2

Open "nombrearchivo.txt" For Append As #1

Print #1, texto

Close #1

Next

End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas