IEオートメーション - Excel VBA ...ウェブサイトを読み込んだ後にエラーが発生する

Question

私はIEとやりとりするようにVBAをプログラミングしていますが、やり直しが始まりましたが、私はすべて解決できないような奇妙な現象私がやった研究

ウェブサイトをロードするとすぐに、私はInternetExplorer Applicationへの参照をすべて失い、オブジェクトを使用できなくなります。私は完全にロードされ、サイトをチェックすると

、私はRun-Time Error 424 Object Required、またはRun-time error '-2147023179 (...)': Automation Error The interface is Unknown

私は（サイトは完全に読み込ま見ながら）このラインを越えて移動し、Set doc ...ラインを実行してしまった場合、私はRun-Time Error 462: The remote server machine does not exist or is unavailableを取得します。

私はIE 11とExcel 2010を使用しています。Microsoft Internet ControlとMicrosoftHTML Object LibraryへのVBAProject参照がありますが、遅延バインディングでもエラーが発生します。

Sub LoginToFXAll() 

Dim ieApp As InternetExplorer 
Set ieApp = New InternetExplorer 

With ieApp 

    .Visible = True 

    .Navigate "https://www.google.com/" 

    Do 
     DoEvents 
    Loop Until .ReadyState = READYSTATE_COMPLETE ''<- Run-Time Error 424 occurs here 


    Dim doc As HTMLDocument 
    Set doc = .Document '<- Run-Time Error 462 occurs here 
    doc.all("q").Value = "Scott" 

End With 

End Sub 

Answer 1

IEが作成された後、おそらく、セキュリティネットワークが完了した後に幸運にもメモリ割り当てが行われる可能性があります。

Option Explicit 
#If VBA7 Then 
    Public Declare PtrSafe Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (ByRef destination As Any, ByRef source As Any, ByVal length As Long) 
#Else 
    Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (ByRef destination As Any, ByRef source As Any, ByVal length As Long) 
#End If 

#If VBA7 Then 
Function GetMemoryAddress(ByVal IEPointer As LongPtr) As Object 
#Else 
Function GetMemoryAddress(ByVal IEPointer As Long) As Object 
#End If 
     Dim objIE As Object 
     CopyMemory objIE, GetMemoryAddress, LenB(GetMemoryAddress) 
     Set GetMemoryAddress = objIE 
     Set objIE = Nothing 
End Function