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)

　　推荐阅读

　　use jscript List Installed Software

Description Returns a list of software that was installed on a computer using Windows Installer. This information is then written to a text file. Script Code 复制代码 代码如下:var wbemFlagReturnImm>>>详细阅读

本文标题：Apply an AutoFormat to an Excel Spreadsheet

地址：http://www.17bianji.com/kaifa2/JS/30383.html

 1/2    1