COMO PASO LOS DATOS A EXCEL

OTRA VEZ LOCO
02 de Marzo del 2004
TENGO LO SIGUIENTE EN UN COMMAND

Dim libro As Object
Set libro = GetObject("c:nuevo.xls") 'tienes que poner la ruta y el nombre del libro excel
'1
libro.Worksheets(1).Cells(3, 2).Value = Text20
libro.Worksheets(1).Cells(3, 3).Value = Text21
libro.Worksheets(1).Cells(3, 4).Value = Text22
libro.Worksheets(1).Cells(3, 5).Value = Text23

AHORA LO QUE QUIERO QUE AL TECLEAR OTRA VEZ ESTE BOTON LOS DATOS NO LOS PONGA DE LA MISMA POSICION SINO EN EL SIGUIENTE RENGLON POR EJEMPLO:
libro.Worksheets(1).Cells(4, 2).Value = Text20
libro.Worksheets(1).Cells(4, 3).Value = Text21
libro.Worksheets(1).Cells(4, 4).Value = Text22
libro.Worksheets(1).Cells(4, 5).Value = Text23
Y DESPUES A OTRO CLICK AL BOTON
libro.Worksheets(1).Cells(5, 2).Value = Text20
libro.Worksheets(1).Cells(5, 3).Value = Text21
libro.Worksheets(1).Cells(5, 4).Value = Text22
libro.Worksheets(1).Cells(5, 5).Value = Text23

SE LOS AGRADECERIA QUE ME AYUDARAN
GRACIAS A TODOS AQUELLOS QUE ME AYUDEN


Jose oscar
02 de Marzo del 2004
Aca esta correida, deberia funcionar eso creo sino comentanoslo.....

Un saludo
jose Oscar

Dim libro As new excel applicacion

libro.visible=true
libro.workbook.open("c:nuevo.xls") 'tienes que poner la ruta y el nombre del libro excel
'1
libro.Worksheets(1).Cells(3, 2).Value = Text20
libro.Worksheets(1).Cells(3, 3).Value = Text21
libro.Worksheets(1).Cells(3, 4).Value = Text22
libro.Worksheets(1).Cells(3, 5).Value = Text23

AHORA LO QUE QUIERO QUE AL TECLEAR OTRA VEZ ESTE BOTON LOS DATOS NO LOS PONGA DE LA MISMA POSICION SINO EN EL SIGUIENTE RENGLON POR EJEMPLO:
libro.Worksheets(1).Cells(4, 2).Value = Text20
libro.Worksheets(1).Cells(4, 3).Value = Text21
libro.Worksheets(1).Cells(4, 4).Value = Text22
libro.Worksheets(1).Cells(4, 5).Value = Text23
Y DESPUES A OTRO CLICK AL BOTON
libro.Worksheets(1).Cells(5, 2).Value = Text20
libro.Worksheets(1).Cells(5, 3).Value = Text21
libro.Worksheets(1).Cells(5, 4).Value = Text22
libro.Worksheets(1).Cells(5, 5).Value = Text23