VBS数组导出到Excel

最新推荐文章于 2020-12-09 11:41:21 发布

最新推荐文章于 2020-12-09 11:41:21 发布 · 333 阅读

本文介绍了一段使用VBScript脚本生成并操作Excel数据的代码实例，包括数组创建、循环填充数据、打开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 step -1
		oWB.Worksheets(i).Delete()
	next
	oSheet.Range("a1").resize(10000,5)=arr
	oXL.ScreenUpdating=true
	set oXL=nothing
</script>