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)