关于脚本法,也就是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.%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
|