UFT(安装在CITRIX上(将使用存储在共享网络上的VBScript文件
在下面的屏幕截图中,可以访问同一网络位置的Excel文件,但我无法打开VBScript文件。[第1行至第12行]
该文件是";测试1.vbs";显示在下方代码的第6行
下面代码中的第14、15、16行显示了尝试和调用它的通用方法
Set appExcel = CreateObject("Excel.Application")'excel application
appExcel.Application.Visible = True
'**********************
strArea = "\Filesrpl_pt_attest1.vbs"
strChain = "PT_Smoke"
'**********************
Set objWorkbook = appExcel.workbooks.open("\Filesrpl_pt_at"+ strChain + ".xlsx")
appExcel.Worksheets("Sheet1").Activate 'Activating the sheet"Scripts"
executefile strArea
invokeApplication "\Filesrpl_pt_attest1.vbs"
SystemUtil.Run "\Filesrpl_pt_attest1.vbs", " "
注意:VBS和Excel文件在网络上的同一位置
注意:UFT安装在Citrix上,与文件不在同一网络上
我建议您将网络映射到驱动器号,例如Z:
这样,您就可以通过将您的vbs文件夹位置声明为:来引用带有vbs文件的文件夹
vbsfolder = "Z:Filesrpl_pt_at"
现在,您可以使用文件夹位置并将vbs文件名附加为:
vbsfilelocwithname = vbsfolder & "\" & "test1.vbs"
然后使用这里描述的如何运行vbs脚本:https://www.learnqtp.com/forums/Thread-How-to-execute-the-two-vb-scripts-Consecutively
Dim oShell
Set oShell = CreateObject("Wscript.Shell")
oShell.run vbsfilelocwithname, , True