Apply an AutoFormat to an Excel Spreadsheet
更新时间:2007年06月12日 00:00:00 作者:
Script Code
Const xpRangeAutoFormatList2 = 11
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
Set objWorkbook = objExcel.Workbooks.Add()
Set objWorksheet = objWorkbook.Worksheets(1)
k = 1
For i = 1 to 10
For j = 1 to 10
objWorksheet.Cells(i,j) = k
k = k + 1
Next
Next
Set objRange = objWorksheet.UsedRange
objRange.AutoFormat(xpRangeAutoFormatList2)
复制代码 代码如下:
Const xpRangeAutoFormatList2 = 11
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
Set objWorkbook = objExcel.Workbooks.Add()
Set objWorksheet = objWorkbook.Worksheets(1)
k = 1
For i = 1 to 10
For j = 1 to 10
objWorksheet.Cells(i,j) = k
k = k + 1
Next
Next
Set objRange = objWorksheet.UsedRange
objRange.AutoFormat(xpRangeAutoFormatList2)
相关文章
JS & JQuery 动态添加 select option
这篇文章主要介绍了JS & JQuery 动态添加 select option 的相关资料,非常不错具有参考借鉴价值,感兴趣的朋友一起看下吧2016-06-06怎么限制input的text里输入的值只能是数字(正则、js)
这篇文章主要通过正则表达式和JS代码限制input的text里输入的值只能是数字的相关资料,需要的朋友可以参考下2016-05-05JavaScript弹簧振子超简洁版 完全符合能量守恒,胡克定理
完全符合能量守恒,胡克定理的JavaScript弹簧振子(超简洁版,超越第一版!)2009-10-10
最新评论