中国DOS联盟

Set objexcel = CreateObject("Excel.Application")



objexcel.Visible = True

objexcel.Workbooks.Add



Set objRange = objexcel.Range("A1","bz30")

objRange.Font.Size = 12

objrange.columns = " "    '范围内字符全为空

objrange.columnwidth = 1  '设置单元格横向长度

objrange.rowheight = 13   '设置行高度



objRange.Interior.ColorIndex = 1  '范围内的背景颜色



set xls=objexcel

dim str(1)

str(0)="33,3 33,4 33,5 33,6 33,7 33,8 33,9 33,10 33,11 33,12 33,13 " &_

  "33,14 33,15 33,16 33,17 33,18 32,17 31,16 28,6 29,6 30,6 31,6 " &_

  "32,7 32,8 31,9 30,10 29,11 28,12 26,13 24,14 " &_

  "32,6 37,5 36,6 35,7 34,7 35,7 35,8 36,9 37,10 38,11 39,12 40,13 " &_

  "41,14 43,15" 



str(1)="37,17 37,18 37,19 37,20 37,21 37,22 37,23 37,24 37,25 " &_

   "36,26 35,27 38,17 39,17 40,17 41,17 42,17 " &_

   "42,18 42,19 42,20 42,21 42,22 42,23 42,24 42,25 42,26 42,27 41,27 " &_

   "38,20 39,20 40,20 41,20 "&_

   "38,23 39,23 40,23 41,23"



color=41

for each strnow in str 

 strx=split(strnow," ")

 for each xy in strx

   tempxy=split(xy,",")

   x=int(tempxy(0))

   y=int(tempxy(1))

   xls.Cells(y,x).Interior.ColorIndex = color

   wscript.sleep 100

 next

color=37

wscript.sleep 1000

next

wscript.quit