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 respuesta
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
