0

UFT 将使用存储在共享网络上的 VBScript 文件（安装在 CITRIX 上）

在下面的屏幕截图中，可以访问同一网络位置的 Excel 文件，但我无法打开 VBScript 文件。[第 1 至 12 行]

该文件是下面代码中第 6 行所示的“Test1.vbs”

下面代码中的第 14、15、16 行显示了尝试调用它的通用方法。但没有用

        Set appExcel = CreateObject("Excel.Application")'excel application
        
        appExcel.Application.Visible = True
        
        '**********************
        strArea = "\\Files\rpl_pt_at\test1.vbs"
        strChain = "PT_Smoke"
        '**********************
        
        Set objWorkbook = appExcel.workbooks.open("\\Files\rpl_pt_at\"+ strChain + ".xlsx")

        appExcel.Worksheets("Sheet1").Activate 'Activating the sheet"Scripts"
        
        executefile strArea
        invokeApplication "\\Files\rpl_pt_at\test1.vbs"
        SystemUtil.Run "\\Files\rpl_pt_at\test1.vbs", " "

注意：VBS 和 Excel 文件在网络上的同一位置

注意：：UFT 安装在 Citrix 上，而不是文件所在的网络上。

4

1 回答 1

0

我建议您将网络映射到驱动器号，例如。Z:\

这样您就可以通过将您的 vbs 文件夹位置声明为：

vbsfolder = "Z:\Files\rpl_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
于 2020-12-14T13:19:37.227 回答