1
Abrir Excel.
2 Haga clic en " Herramientas" de Microsoft "Macro " y luego haga clic en " Visual Basic " . Esto abrirá el editor de VBA.
3
clic en "Insertar ", " formulario de usuario ." Ahora se encuentra en un módulo de código de programación.
4
Seleccione el control " ListBox " de la VBA herramientas, arrastre y sacar a su formulario de usuario .
5
Seleccione " control CommandButton "de la VBA herramientas, arrastre y sacar a su formulario de usuario .
6
Haga doble clic en el control CommandButton . Esta acción le llevará al procedimiento de evento Click del CommandButton . Escriba o copie y pegue el siguiente código entre las " Private Sub CommandButton1_Click ()" y los procedimientos de " End Sub "
El código debería ser similar al siguiente : .
Private Sub CommandButton1_Click ()
Dim I As Integer
ListBox1.AddItem "Esta es la prueba 1 "
ListBox1.AddItem " Esta es la prueba 2 "
ListBox1.AddItem "Este es prueba de 3 "
ListBox1.AddItem " Esta es la prueba 4 "
Abrir " C: \\ list.txt " Para Append Como # 1
For I = 0 To ListBox1.ListCount - 1
Print # 1 , ListBox1.List ( I)
Siguiente
Close # 1 End Sub
< p > el código agrega valor a un objeto ListBox que guardar los valores en un archivo en su computadora llamada : list.txt virtud de la unidad C: . unidad
7
Press "F5 " para ejecutar el programa. Un formulario debe popup haga clic en el " botón ". Ir a la unidad C: y busque list.txt , deberías ver los valores del ListBox en ese archivo de texto
.