Exportar a excel desde vb6
Hola quiero exportar datos del los textbox a excel, tengo un código el cual lo hace, pero al apretar el command1 por segunda vez me sobre escribe los datos ya exportado, lo que quiero hacer es que cada vez que apretó el botón exportar (command1) se vayan gardando los datos del text1 en la columna A1, a2, a3, etc y lo mismo con el text2 en b1, b2, b3, etc, desde ya muchas gracias
Private Sub Command1_Click()
Dim ApExcel As Variant
Set ApExcel = CreateObject("Excel.application")
ApExcel.Workbooks.Open "C:\libro1.xls"
ApExcel.cells(1, 1).Formula = text1.text ' en la celda a1
ApExcel.cells(1, 2).Formula = text2.text ' en la celda b1
Set ApExcel = Nothing
End Sub
Private Sub Command1_Click()
Dim ApExcel As Variant
Set ApExcel = CreateObject("Excel.application")
ApExcel.Workbooks.Open "C:\libro1.xls"
ApExcel.cells(1, 1).Formula = text1.text ' en la celda a1
ApExcel.cells(1, 2).Formula = text2.text ' en la celda b1
Set ApExcel = Nothing
End Sub
1 respuesta
Respuesta de Eduardo Saligari
-1
Antes de asignar Text1.Text a Cells(1,1), puedes preguntar si tiene esa celda algo, si tiene algo te mueves a la 1,2 y si está vacía le insertas, si tiene algo te sigues moviendo a la 1,3 1,4 hasta que encuentres algo vacío.
¿Cómo hacerlo?
Pues fácil, haz un While con una variable que le sume 1 a cada pregunta, al poder guardar, le das la salida del While.
Puedes manejar dos variables, así manejas linea y columna al mismo tiempo digamos Cells(i, e), donde i es una variable tipo integer y e también. Si e vale más de 30 por ejemplo, le sumas a i uno más y pones a e en 1 para empezar de nuevo.
Si tienes dudas me lo haces saber.
¿Cómo hacerlo?
Pues fácil, haz un While con una variable que le sume 1 a cada pregunta, al poder guardar, le das la salida del While.
Puedes manejar dos variables, así manejas linea y columna al mismo tiempo digamos Cells(i, e), donde i es una variable tipo integer y e también. Si e vale más de 30 por ejemplo, le sumas a i uno más y pones a e en 1 para empezar de nuevo.
Si tienes dudas me lo haces saber.
¿Me podrías mostrar como?
Yo particularmente no muestro código, considero eso hacer el trabajo de los demás, si lo tomas a mal no puedo hacer nada contra eso, yo como Experto considero que mi ayuda es orientarte, decirte como hacerlo, pero no realizar el trabajo por tu persona.
Además está muy fácil con lo que te dije en letras traducelo a código y lo harás.
Creo que es fundamental desarrollar tu capacidad de programador. Otro punto es que yo hace más de 8 años no programo en VB6, que está caduco y viejo, entonces, te lo daría en .NET, pero no, la idea es que tu lo hagas.
Además está muy fácil con lo que te dije en letras traducelo a código y lo harás.
Creo que es fundamental desarrollar tu capacidad de programador. Otro punto es que yo hace más de 8 años no programo en VB6, que está caduco y viejo, entonces, te lo daría en .NET, pero no, la idea es que tu lo hagas.
Es que no se como hacer:
Cree dos variantes
dim N as integer
dim i as integer
i = 1 to 1
n = n + 1
Ese así
Cree dos variantes
dim N as integer
dim i as integer
i = 1 to 1
n = n + 1
Ese así
Que es i = 1 to 1, eso no aplica a nada. Primero si no sabes programar no empieces con VB6, estas empezando por 10 años atrasado, empieza en .NET, segundo, si aún así estás empecinado en VB6 (algo que sigo sin recomendarte) entonces te dejo un Tutorial.
Tutorial VB6:
http://www.elguille.info/vb/cursos_vb/BASICO/BASICO.HTM
Parte especialmente dedicada a los Bucles:
http://www.elguille.info/vb/cursos_vb/BASICO/BASICO06.HTM
Curso de VB.NET (aquí si empieza)
http://www.elguille.info/NET/cursoVB.NET/Default.aspx
Tutorial VB6:
http://www.elguille.info/vb/cursos_vb/BASICO/BASICO.HTM
Parte especialmente dedicada a los Bucles:
http://www.elguille.info/vb/cursos_vb/BASICO/BASICO06.HTM
Curso de VB.NET (aquí si empieza)
http://www.elguille.info/NET/cursoVB.NET/Default.aspx
