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