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>