|
QTP使用环境变量的方法有两种,一种是自己设置环境变量,这种方法有很多朋友介绍过,不过我在使用的时候,更喜欢把它写在脚本中,这样不管脚本是移植到哪台机器上,环境变量都不用重新设置了,是不是方便很多,例如某个项目的主控脚本具体代码如下:
Dim Excel,Workbook,WorkSheet,run_value,script_name
Dim filepath,bnpFileName
Environment.Value("file_pash") = "C:\Documents and Settings\robel.yi\Desktop\BNP_SCRIPTS"
filepath=environment("file_pash")
bnpFileName=filepath & "\Data_file\Main_DATA.xlsx"
Set Excel= CreateObject("Excel.Application")
Set Workbook= Excel.Workbooks.Open(bnpFileName)
Set WorkSheet= workbook.Worksheets("Sheet1")
For i = 2 To 6
run_value=CStr(WorkSheet.Cells(i, 3))
If run_value = "Y" Then
RunAction CStr(WorkSheet.Cells(i, 2))
End If
Next
Excel.Quit
Set Workbook = nothing
Set WorkSheet = nothing
这样,每次如果你把脚本移植到了另外一个地方,把新的路径赋值给环境变量file_pash就行了,其实也可以把它写在主控脚本的EXCEL驱动表里面,每次有变量在EXCEL里面修改就行了,对于把脚本给其他黑盒工程师来执行的时候,更加容易使用,其实有时候我们在写脚本的时候,一些小小的改动就能使自动化变得更智能方便,大家还有什么关于环境变量的使用的好的心得也不妨一起分享分享。
[ 本帖最后由 Robel.Yi 于 2008-10-30 10:40 编辑 ] |
|