VBS数组导入Excel

<script language="vbscript">
	dim arr(9999,4)
	for i=0 to 9999
		for j = 0 to 4
			arr(i,j)=i*j
		next
	next
	set oXL = CreateObject("Excel.Application")
	oXL.Visible = true
	oXL.ScreenUpdating=false
	set oWB = oXL.Workbooks.Add
	set oSheet = oWB.ActiveSheet
	set xlsheet = oWB.Worksheets(1)
	for i=oWB.Worksheets.count to 2
		oWB.Worksheets(i).Delete()
	next
	oSheet.Range("a1").resize(10000,5)=arr
	oXL.ScreenUpdating=true
	set oXL=nothing
</script>