Popunjavanje tabele u Excelu

[ zormar @ 25.09.2008. 15:20 ] @

Bilo je puno price o Excelu ali ovo ne mogu da uradim, pa ako je neko voljan da pomogne bilo bi dobro.
Hteo bi da popunjavam polja u Sheetu tako da se sve vreme, dok Timer1 ne zaustavim, u novi red upisuje svaka nova kombinacija ovih brojeva i da ostanu upamcene prethodne.
Ovaj kod mi svaki put kad se upisuje nova kombinacija brojeva otvara novi Sheet,a trebalo bi da sve te kombinacije upise u jedan Sheet jednu ispod druge.

Code:
Private Sub Timer1_Timer()
Dim Broj(4) As Integer
Dim i As Integer

For i = 1 To 4
Broj(i) = Int(Rnd * 20) + 1
Next i

Set x = CreateObject("Excel.Sheet")
x.Application.Workbooks.Open "C:\Book1.xls"
x.Application.Visible = True
x.Application.Cells(1, 1).Value = Broj(1)
x.Application.Cells(1, 2).Value = Broj(2)
x.Application.Cells(1, 3).Value = Broj(3)
x.Application.Cells(1, 4).Value = Broj(4)
End Sub

[ stefanpn @ 25.09.2008. 17:29 ] @

Ovo?

Code:

Dim x As Object
Dim BrojReda As Integer

Private Sub Form_Load()

     Set x = CreateObject("Excel.Sheet")
     x.Application.Workbooks.Open "C:\Book1.xls"
     BrojReda = 1

     Randomize Timer ' - Ovo dodajes da ti se ne bi svaki put ponavljali isti "Random" brojevi.

End Sub

Private Sub Timer1_Timer()

     Dim Broj(4) As Integer
     Dim i As Integer

     For i = 1 To 4
     Broj(i) = Int(Rnd * 20) + 1
     Next i

     BrojReda = BrojReda + 1

     x.Application.Visible = True
     x.Application.Cells(BrojReda, 1).Value = Broj(1)
     x.Application.Cells(BrojReda, 2).Value = Broj(2)
     x.Application.Cells(BrojReda, 3).Value = Broj(3)
     x.Application.Cells(BrojReda, 4).Value = Broj(4)

End Sub

[ zormar @ 25.09.2008. 17:53 ] @

Da,to je to.
Hvala ti