QTP使用环境变量

QTP使用环境变量的方法有两种，一种是自己设置环境变量，这种方法有很多朋友介绍过，不过我在使用的时候，更喜欢把它写在脚本中，这样不管脚本是移植到哪台机器上，环境变量都不用重新设置了，是不是方便很多，例如某个项目的主控脚本具体代码如下：51Testing软件测试网7N;E d8LTI

}eq0x%d,A0Dim Excel,Workbook,WorkSheet,run_value,scrīpt_name
nzN7j
R,v[0Dim filepath,bnpFileName51Testing软件测试网*o@`sah1^biz

:`5O4u"Hce,` _*}0Environment.Value("file_pash") = "C:\Documents and Settings\robel.yi\Desktop\BNP_scrīptS"51Testing软件测试网;YY4I+kHkV

!Su R"`{
i0filepath=environment("file_pash")51Testing软件测试网o3A5K8@8]H
bnpFileName=filepath & "\Data_file\Main_DATA.xlsx"51Testing软件测试网m6r{-]_t"a
51Testing软件测试网Gp)Z [.T1W
Set Excel= CreateObject("Excel.Application")
1I C]_$pN7Q IW!u0Set Workbook= Excel.Workbooks.Open(bnpFileName)51Testing软件测试网
? t?,l*i q!l1|j8L
Set WorkSheet= workbook.Worksheets("Sheet1")
B+a(}5|N0v^j051Testing软件测试网7t4O d6yvQ
For i = 2 To 6
"A'BtYyK%P0        run_value=CStr(WorkSheet.Cells(i, 3))
&oP/Jxz ^&E Y1B {"h0        If run_value = "Y" Then51Testing软件测试网]OhcB(Z2x5P$c-a
                RunAction CStr(WorkSheet.Cells(i, 2))
uW|0@+W0co0        End If
m0Mu}1J#anW0Next

r,Hs(S8[F4\q0
q1n5q"}zD#]C0Excel.Quit51Testing软件测试网N [)E6~*P_1]8O
Set Workbook = nothing51Testing软件测试网%U$J#UwO+g&T bn}
Set WorkSheet = nothing
AVy%NZ%N051Testing软件测试网!I!SR+i/N/?
    这样，每次如果你把脚本移植到了另外一个地方，把新的路径赋值给环境变量file_pash就行了，其实也可以把它写在主控脚本的EXCEL驱动表里面，每次有变量在EXCEL里面修改就行了，对于把脚本给其他黑盒工程师来执行的时候，更加容易使用，其实有时候我们在写脚本的时候，一些小小的改动就能使自动化变得更智能方便，大家还有什么关于环境变量的使用的好的心得也不妨一起分享分享。