这个东西……  大部分人都跟我说很无聊，
其实就是无聊才写的，就是喜欢当成娱乐，让别人说去吧。
vbs控制excel ，用描点的方式写两个大字。

2. Set objexcel = CreateObject("Excel.Application")
3. objexcel.Visible = True
4. objexcel.Workbooks.Add
5. Set objRange = objexcel.Range("A1","bz30")
6. objRange.Font.Size = 12
7. objrange.columns = " "    '范围内字符全为空
8. objrange.columnwidth = 1  '设置单元格横向长度
9. objrange.rowheight = 13   '设置行高度
10. objRange.Interior.ColorIndex = 1  '范围内的背景颜色
11. set xls=objexcel
12. dim str(1)
13. str(0)="33,3 33,4 33,5 33,6 33,7 33,8 33,9 33,10 33,11 33,12 33,13 " &_
14.   "33,14 33,15 33,16 33,17 33,18 32,17 31,16 28,6 29,6 30,6 31,6 " &_
15.   "32,7 32,8 31,9 30,10 29,11 28,12 26,13 24,14 " &_
16.   "32,6 37,5 36,6 35,7 34,7 35,7 35,8 36,9 37,10 38,11 39,12 40,13 " &_
17.   "41,14 43,15"
18. str(1)="37,17 37,18 37,19 37,20 37,21 37,22 37,23 37,24 37,25 " &_
19.    "36,26 35,27 38,17 39,17 40,17 41,17 42,17 " &_
20.    "42,18 42,19 42,20 42,21 42,22 42,23 42,24 42,25 42,26 42,27 41,27 " &_
21.    "38,20 39,20 40,20 41,20 "&_
22.    "38,23 39,23 40,23 41,23"
23. color=41
24. for each strnow in str
25. strx=split(strnow," ")
26. for each xy in strx
27.    tempxy=split(xy,",")
28.    x=int(tempxy(0))
29.    y=int(tempxy(1))
30.    xls.Cells(y,x).Interior.ColorIndex = color
31.    wscript.sleep 100
32. next
33. color=37
34. wscript.sleep 1000
35. next
36. wscript.quit

复制代码