Creating a .xls file from an array

[Guest_imported]

First of all hello and thanks for replying.
So, once the array of data i register is OK, how can I copy them directly in a excel file format. Are there some spécial control that should be used or so?

 

[ide]

Sub main()
Dim VarI() As Double
ReDim VarI(1000)
For i = 0 To 1000
VarI(i) = Rnd * 888888
Next i
Call CrtExcelBook(VarI(), 1000)
End Sub

Sub CrtExcelBook(MyArr, MACount)
Dim lk As Long, i As Integer
Dim xlApp, xlBook, xlExcel As Object

Set xlApp = CreateObject("Excel.Application&quot
Set xlBook = xlApp.Workbooks.Add
Set xlExcel = xlBook.Worksheets(1)
xlExcel.Range("A1&quot.Select

For i = 0 To MACount - 1
xlApp.ActiveCell.Offset(i, 0) = MyArr(i)
Next i

xlApp.Application.Visible = True
End Sub