| Usuario |
Intoducir cada vez una fila nueva ... |
Desconocido
|
| Enviado - 14/6/2006 |
| |
Tengo que mandar una serie de textbox a una pagina de excel, esto ya lo he hecho con este boton:
Private Sub Command2_Click()
Set ApExcel = CreateObject("Excel.application")
ApExcel.Visible = True
ApExcel.Workbooks.Open FileName:="C:\Documents\Hoja1.xls"
ApExcel.Cells(4, 1).Formula = Text2.Text
ApExcel.Cells(4, 2).Formula = Text1.Text
end sub
pero ahora necesito que se rellene la pagina de excel con una nueva linea (fila) cada vez que pulso el boton.
Lo estoy intentando con esta funcion, pero no me funciona:
Public Function Projektzeile()
Dim j As Double
j = 10
While Application.WorksheetFunction.ApExcel(Cells(j, 2))
j = j + 1
Wend
Projektzeile = j
End Function
¿Sabria alguien decirme que puedo hacer?
Muchas gracias por su ayuda sois muy amables.
un saludo
jorge |
| |
|
oscar_tomy
1 Mensaje(s)
|
| Enviado - 15/6/2006 |
| |
Prueba con esto cada vez que pulses el boton:
-en la deficion de variables define j=4(le puse 4 para seguir tu ejemplo)
-al presionar el boton coloca este codigo:
ApExcel.Cells(j, 1).Formula = Text2.Text
ApExcel.Cells(j, 2).Formula = Text1.Text
j=j+1
-asi cada vez que presiones el boton j aumentara en 1, por lo tanto debiera cambiar el numero de la fila en donde estas colocando los datos.
Si te funciono avisame, si no, tambien por fa
oscar
[email protected] |
| |
|
Desconocido
|
| Enviado - 16/6/2006 |
| |
Hola oscar tomi!
Muchas gracias por contestar a mi pregunta, creia que se quedaria ya sin responder.
He provado lo me dijiste pero no funciona porque me sigue escribiendo la linea enciama de la anterior, o sea en la linea 4.
voy a segir intentandolo hasta que lo consiga, si me pudieras dar mas ideas seria genial.
gracias de nuevo
un saludo
jorge |
| |
|
|
|
