vba Fehlermeldung 13 IE.document

Question

Ich sehe, dass jemand anderes die gleiche Frage gestellt hat, aber die Antwort hat nicht geholfen, also muss ich es noch einmal erhöhen, Ich verwende Windows 10 Internet Explorer 11, 64 Bit ich bekomme Fehler Fehlanpassungsfehler 13 bei letzter Zeile

I Dim IE A New Internetexplorer und Dim IE A New InternetExplorerMedium versucht habe, aber immer noch denselben Fehler ..

eine Ahnung, wer kann ich bitte die Fehler loszuwerden? Dank

Sub test() 

Dim IE As Object ' InternetExplorer 
Set IE = CreateObject("internetexplorer.application") 

Dim html As HTMLDocument 
Set IE = New InternetExplorer 

IE.Visible = True 

IE.navigate "http://stackoverflow.com/" 

'wait while web page load 

Set html = IE.document 

end sub 

Answer 1

Versuchen Sie die späte Bindung statt für die Htmldocument verwenden. In der Regel müssen Sie das Dokument keinem Objekt zuweisen, Sie können nur mit ihm interagieren, ohne etwas anderem zuzuordnen.

Sub test() 
    Dim IE As New InternetExplorer ' Make sure you have Microsoft Internet Controls Reference added 
    Dim html As Object ' Or you can use HtmlDocument as the type if Microsoft HTML Object Reference is added 

    With IE 
     .Visible = True 
     .navigate "http://stackoverflow.com/" 
     While .busy Or .readystate <> 4 
      Application.Wait (Now() + TimeValue("00:00:01")) 
      DoEvents 
     Wend 
     Set html = .document 
    End With 
End Sub