Asignar valores a columnas distintas de excel VB6
Publicado por Ulises (6 intervenciones) el 17/12/2011 20:17:37
Hola a todos, mi problema es el siguiente: Quiero pasar datos a una hoja de excel con visual basic 6, por ejemplo varios valores a tres columnas, alto, largo y ancho. Tengo el siguiente código:
Private Sub CommandButton1_Click()
Sheets("hoja1").Select
Range("a1").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell = TextBox1
ActiveCell.Offset(0, 1).Select
ActiveCell = TextBox2
ActiveCell.Offset(0, 1).Select
ActiveCell = TextBox3
ActiveCell.Offset(0, 1).Select
End Sub
Funciona perfectamente, pero el problema es que este código lo uso en la pestaña programador del excel, y de este modo no puedo hacer un ejecutable; Es decir, lo que yo quiero es un código que me haga lo mismo que este, pero haciendolo directamente en el vb6, el problema es que no se como referenciar la hoja de excel que yo quiera.
Muchas gracias de antemano
Private Sub CommandButton1_Click()
Sheets("hoja1").Select
Range("a1").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell = TextBox1
ActiveCell.Offset(0, 1).Select
ActiveCell = TextBox2
ActiveCell.Offset(0, 1).Select
ActiveCell = TextBox3
ActiveCell.Offset(0, 1).Select
End Sub
Funciona perfectamente, pero el problema es que este código lo uso en la pestaña programador del excel, y de este modo no puedo hacer un ejecutable; Es decir, lo que yo quiero es un código que me haga lo mismo que este, pero haciendolo directamente en el vb6, el problema es que no se como referenciar la hoja de excel que yo quiera.
Muchas gracias de antemano
Valora esta pregunta
0