您的位置:首页 > 移动开发

Apply an AutoFormat to an Excel Spreadsheet

2018-10-12 14:07 741 查看
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) 
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: