Tag: 浏览

Excel VBA创build一个embedded的WebBrowser并使用它

嗨我试图dynamic创build一个电子表格内的Web浏览器，然后使用它，但WebBrowserfunction似乎不工作 这是我如何创buildWebBrowser 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 […]