こんにちは私はスプレッドシート内にWebブラウザを動的に作成して使用しようとしていますが、WebBrowser関数が機能していないようです
これが私がWebBrowserを作成する方法です
Set myWebBrowser = Sheets("test").OLEObjects.Add(ClassType:="Shell.Explorer.2", Link:=False, DisplayAsIcon:=False, left:=147, top:=60.75, width:=141, height:=96)
これはうまくいくでしょう
myWebBrowser.top = 10
しかし、これは私にエラーを与えます
myWebBrowser.Navigate ("about:blank")
私が何をすべきかについてのアイデアはあなたに感謝します
更新:
これも機能せず、エラーが発生します。
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
更新2(ほぼあります):
Sheet2.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
myWebBrowser.Object.Navigate "http://www.google.com"
より完全な例:
Sub AddWebBroswerToWorksheet()
Dim myWebBrowser
Dim wb, doc, x As Long
Sheet2.Activate
Sheet1.OLEObjects(1).Delete
Set myWebBrowser = Sheet1.OLEObjects.Add(ClassType:="Shell.Explorer.2", _
Left:=147, Top:=60.75, Width:=400, Height:=400)
Set wb = myWebBrowser.Object
With wb
.Navigate "about:blank"
.Document.Open "text/html"
For x = 1 To 100
.Document.write "hello world<br>"
Next x
.Document.Close
.Document.body.Scroll = "no"
Debug.Print .Document.body.innerHTML
End With
Sheet1.Activate 'switching back to the sheet seems to
' ' trigger the display of the object
End Sub
これを機能させるには、WebBrowser.ReadyState <> READYSTATE_COMPLETE
ループ内にWindowsメッセージを送り込む必要があります。ループ内でDoEvents
/Sleep
を呼び出すとそれが行われますが、それ自体に影響があります。詳細とサンプルコードについては、次の回答を確認してください。