首页 / 脚本样式 / JavaScript / Apply an AutoFormat to an Excel Spreadsheet

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）