Question

我真的需要你帮助解决一个问题，因为我被困3个小时...... 我有一个打开IE并导航到URL的VBA代码。当我在Microsoft Visual Basic中测试代码时，代码似乎有效：

Sub test()
    On Error Resume Next
        Set app = CreateObject("InternetExplorer.Application")
        MsgBox "OpenWindow 1 : " & Err.Number
        app.Visible = True
        app.Navigate ("salut.com")
        result = Err.Number
        MsgBox "OpenWindow 2 : " & Err.Number
    On Error GoTo 0
    If result <> 0 Then
        Call test
    End If
End Sub

此代码在Excel宏中正常工作，但每当我在UFT（Unified Functionnal Testing）中执行完全相同的代码时，它都会抛出错误：

在createObject（？）
错误238（我认为这是非常正常的） createObject失败）

代码完全相同，我只是通过URL导航到函数：

Function openWindow(url)
    On error resume next
        Set app = CreateObject("InternetExplorer.Application")
        app.Visible = true
        app.Navigate(url)
        result =  Err.number
    On error goto 0
    If result <> 0 Then
        openWindow (url)
    End If
End Function

我真的不知道问题是什么......

Answer 1

我找到了解决方法：

Function openWindow(urlToNavigate)
    SystemUtil.Run "iexplore.exe",urlToNavigate
End Function

VBA代码无法在UFT中运行

1 个答案: