jscript之List Excel Color Values

Description

Demonstration script that displays the various colors -- and their related color index -- available when programmatically controlling Microsoft Excel. 
Script Code
复制代码 代码如下:
set objExcel = CreateObject("Excel.Application")

objExcel.Visible = True
objExcel.Workbooks.Add

For i = 1 to 56
    objExcel.Cells(i, 1).Value = i
    objExcel.Cells(i, 1).Interior.ColorIndex = i
Next