ScriptCode
复制代码 代码如下:
ConstxpRangeAutoFormatList2=11
SetobjExcel=CreateObject("Excel.Application")
objExcel.Visible=True
SetobjWorkbook=objExcel.Workbooks.Add()
SetobjWorksheet=objWorkbook.Worksheets(1)
k=1
Fori=1to10
Forj=1to10
objWorksheet.Cells(i,j)=k
k=k+1
Next
Next
SetobjRange=objWorksheet.UsedRange
objRange.AutoFormat(xpRangeAutoFormatList2)
网站建设 IT知识 IT知识教程 Apply an AutoFormat to an Excel Spreadsheet 
最新文章
热门文章
猜你喜欢
