Posted in Javascript onJune 12, 2007
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)
Apply an AutoFormat to an Excel Spreadsheet
声明:登载此文出于传递更多信息之目的,并不意味着赞同其观点或证实其描述。
Reply on: @reply_date@
@reply_contents@