Description

Demonstrationscriptthatdisplaysthevariouscolors--andtheirrelatedcolorindex--availablewhenprogrammaticallycontrollingMicrosoftExcel.

ScriptCode

复制代码 代码如下:

setobjExcel=CreateObject("Excel.Application")

objExcel.Visible=True

objExcel.Workbooks.Add

Fori=1to56

objExcel.Cells(i,1).Value=i

objExcel.Cells(i,1).Interior.ColorIndex=i

Next