dim (10,5)  
for i=0 to 10  
	for j = 0 to 5 
	(i,j)=i*j  
	next  
next  

set excel = CreateObject("Excel.Application")  
excel.Visible = true   
set oWB = excel.Workbooks.Add  
set oSheet = oWB.ActiveSheet  
set xlsheet = oWB.Worksheets(1)  
for i=oWB.Worksheets.count to 2 step -1  
	oWB.Worksheets(i).Delete()  
next  
oSheet.Range("a1").resize(10,5)=arr  
set excel=nothing