gistfile1.bas

stDate = now()

numcols = 100
numrows = 10000

Dim arr1
ReDim arr1(numrows - 1, numcols - 1)
For i = 0 To numrows - 1
    For j = 0 To numcols - 1
        arr1(i, j) = i * j
    Next
Next

Set excelObj = CreateObject("Excel.Application")
Set workbooksObj = excelObj.Workbooks
Set workbookObj = workbooksObj.Add(1)
Set sheetObj = workbookObj.Sheets(1)

sheetObj.Range(sheetObj.Cells(1, 1), sheetObj.Cells(numrows, numcols)).Value = arr1

workbookObj.SaveAs "filename.xls"
workbookObj.Close()

excelObj.Quit()

msgbox stDate & "/" & now()