VBS数组导出到Excel

来源:互联网 发布:深圳大学网络教育 编辑:程序博客网 时间:2024/04/28 03:30
<script language="vbscript">dim arr(9999,4)for i=0 to 9999for j = 0 to 4arr(i,j)=i*jnextnextset oXL = CreateObject("Excel.Application")oXL.Visible = trueoXL.ScreenUpdating=falseset oWB = oXL.Workbooks.Addset oSheet = oWB.ActiveSheetset xlsheet = oWB.Worksheets(1)for i=oWB.Worksheets.count to 2 step -1oWB.Worksheets(i).Delete()nextoSheet.Range("a1").resize(10000,5)=arroXL.ScreenUpdating=trueset oXL=nothing</script>

原创粉丝点击