GRIP操作EXCEL源代码（VB 脚本法示例）

关于脚本法，也就是VBS脚本，这是一个很好用的工具，同批处理（dos）一样，可以极大地扩展GRIP的功能，尤其是操作系统方面，而且它还有一个优点，就是，没有批处理的黑框窗口。

下面是关于grip创建EXCEL的范例代码

---

被隐藏内容已经显示出来
STRING/VBS(132)

START:
IFTHEN/&ACTPRT == 1
MESSG/'No active part'
JUMP/end:
ELSE
MASK/ALL
ENDIF
vbs='C:\WINDOWS\excel.vbs'

L10:
fdel/vbs,iferr,L20:

L20:
fetch/TXT,1,vbs,IFERR,L30:
jump/L10:

L30:
CREATE/TXT,1,vbs,IFERR,L10:

$$-----------------------写vbs文件－－－－－－－－－－

WRITE/1,'On Error Resume Next '
WRITE/1,'Set objExcel = GetObject("Excel.Application") '
WRITE/1,'If Err.Number <> 0 Then'
WRITE/1,'Set objExcel =CreateObject("Excel.Application")'
WRITE/1,' End If'
WRITE/1,'Err.Clear '
WRITE/1,'Set objWorkbook = objExcel.Workbooks.Add'
WRITE/1,'objExcel.Visible = True'
WRITE/1,'Set objWorksheet = objWorkbook.Worksheets(1)'
WRITE/1,'objWorksheet.Activate'
WRITE/1,'objWorksheet.Name = "GRIP操作Excel示范"'
WRITE/1,'objExcel.ActiveSheet.Rows(3).RowHeight = 2/0.035'
WRITE/1,'objExcel.ActiveSheet.Rows(4).RowHeight = 2/0.035'
WRITE/1,'objExcel.ActiveSheet.Rows(5).RowHeight = 2/0.035'
WRITE/1,'objExcel.Cells(3, 3).value = "易呈科技" '
WRITE/1,'objExcel.Cells(4, 3).value = http://www.nx78.com%22'/
WRITE/1,'objExcel.Cells(5, 3).value = "GRIP培训与交流"'
WRITE/1,'objExcel.ActiveSheet.Range( "A3:E5" ).Borders(2).Weight = 3 '
WRITE/1,'Set objFSO=CreateObject("******ing.FileSystemObject")'
WRITE/1,'objFso.DeleteFile("d:\易呈科技.xls")'
WRITE/1,'objWorkbook.SaveAs "d:\易呈科技.xls" '
WRITE/1,'objFso.DeleteFile("C:\WINDOWS\excel.vbs")'
WRITE/1,'W******.Quit'

file/txt,1

L50:
xspawn/'w******.exe C:\WINDOWS\excel.vbs'
end:
halt