VBAコードがUFTで動作しない

Question

3時間以上立ち往生している問題については、本当に助けが必要です。 IEを開いてURLに移動するVBAコードがあります。 コードIは、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の正確な同じコード（統一Functionnalテスト）を実行するたびに、それはエラーをスローします。

ナビゲート後のCreateObject（？）

エラー238の後

• エラー-2147467261

（ の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