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) 

相关文章

最新评论