通过UFT执行存储在网络驱动器上的VBS文件



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

相关内容

  • 没有找到相关文章

最新更新