Excel y Visual Basic

[DeCodigos]

Buenas, queria saber como rellenar datos en una planilla de Excel, osea la idea seria que se valla rellenando mediante un append, pero no se como hacer para conectarme con la planilla excel.
lo unico que encontre es lo siguiente:

Código:

Private Sub Command1_Click()
Dim ApExcel As Variant
    Set ApExcel = CreateObject("Excel.application")
    ' Hace que Excel se vea
    ApExcel.Visible = True
    'Agrega un nuevo Libro
    ApExcel.Workbooks.Add
    'Poner Titulos
    ApExcel.cells(1, 1).Formula = "LISTADO DE ALUMNOS" 'escribes en la fila 1 columna
End Sub

Pero como veran solamente rellena en la celda 1, 1 y yo quiero ir rellenando en la ultima celda vacia, osea si esta completa la 1, 1 entonces saltar a la 1, 2
Espero que puedan ayudarme
Muchisimas Gracias!

[pkj]

Por lo poco que sé de excel, creo que una página puede tener de 1 a 65536 lineas y de 1 a 256 columnas, de modo que, como desconozco el uso avanzado del excel me limitaría a buscar la línea vacía con un bucle:

Código vb:

Dim F As Long
Dim F2 As Long
For F = 0 To 65535
  For F2 = 0 To 255
    If ApExcel.cells(F + 1, F2 + 1) <> "" Then Exit For
  Next F2
  If F2 = 256 Then Exit For
Next F
MsgBox "siguiente linea libre= " & F + 1
 

Si haces pública la variable ApExcel puedes meter esto fácilmente en una función.

Suerte