Excel VBA erstellt einen eingebetteten Webbrowser und verwendet ihn
Hallo, ich versuche, dynamisch einen Webbrowser in einer Tabelle zu erstellen und ihn dann zu verwenden, aber die WebBrowser-Funktionen scheinen nicht zu funktionieren
So erstelle ich den WebBrowser
Set myWebBrowser = Sheets("test").OLEObjects.Add(ClassType:="Shell.Explorer.2", Link:=False, DisplayAsIcon:=False, left:=147, top:=60.75, width:=141, height:=96)
Das wird funktionieren
myWebBrowser.top = 10
Aber das wird mir einen Fehler geben
myWebBrowser.Navigate ("about:blank")
Irgendwelche Ideen, was ich tun soll, danke
AKTUALISIEREN:
Dies wird auch nicht funktionieren und einen Fehler geben:
myWebBrowser.Object.Document.body.Scroll = "no"
myWebBrowser.Object.Silent = True
myWebBrowser.Object.Navigate ("about:blank")
While myWebBrowser.Object.ReadyState <> READYSTATE_COMPLETE
Application.Wait (Now + TimeValue("0:00:01"))
Wend
myWebBrowser.Object.Refresh
UPDATE 2 (fast da):
Jetzt brauche ich einen Weg, um das zu entfernenSheet2.Activate Sheet1.Activate
Sheet2.Activate
Sheet1.Activate
Set wb = myWebBrowser.Object
With wb
.Silent = True
.Navigate "about:blank"
Do While .ReadyState <> READYSTATE_COMPLETE
Application.Wait (Now + TimeValue("0:00:01"))
Loop
.Document.Open "text/html"
Do While .ReadyState <> READYSTATE_COMPLETE
Application.Wait (Now + TimeValue("0:00:01"))
Loop
.Document.write html
.Document.Close
.Document.body.Scroll = "no"
.Refresh
Debug.Print .Document.body.innerHTML
End With