[实例]【EXCEL VBA】如何在excel里嵌入网页，动态显示网页 未完成 |
您所在的位置：网站首页 › 表格中显示页面怎么取消 › [实例]【EXCEL VBA】如何在excel里嵌入网页，动态显示网页 未完成 |
[实例]【EXCEL VBA】如何在excel里嵌入网页，动态显示网页 未完成
|
参考：http://tieba.baidu.com/p/433671354?red_tag=y2393996544 ---------------------------------------------------------- 于是就找到了： 上图的最后一个 = = ---------------------------------------------------------- ---------------------------------------------------------------- ==================================为什么不能插入呢？===================== 参考：https://www.baidu.com/s?wd=excel+%E4%B8%8D%E8%83%BD%E6%8F%92%E5%85%A5%E6%8E%A7%E4%BB%B6+microsoft+webbrowser&ie=utf-8&tn=02049043_27_pg ----------------------------------------------------------- 官网参考：https://support.office.com/zh-cn/article/%E5%90%91%E7%AA%97%E4%BD%93%E6%B7%BB%E5%8A%A0-Web-%E6%B5%8F%E8%A7%88-b9547ba6-5192-4bcf-be4f-8b80be484c27 ---------------------------------------------------------- 另外一种方法：只是获取网站的数据： -------------------------------------- 参考：http://club.excelhome.net/thread-596886-1-1.html https://support.microsoft.com/en-us/help/3025036/cannot-insert-object-error-in-an-activex-custom-office-solution-after https://answers.microsoft.com/zh-hant/office/forum/office_2010-excel/win7%E6%9B%B4%E6%96%B0%E5%BE%8Cvba%E4%B8%8D/b3f7d2cf-bd1f-4117-aae5-58d226a6e6b2?auth=1 ---------------------------- 后来发现并不是activeX不能用，而是浏览器的问题 = = 要解决浏览器的问题，这个问题应该就能够解决的七七八八了吧 --------------------------- 参考：官方的文段：https://msdn.microsoft.com/zh-cn/library/microsoft.office.tools.excel.controls.webbrowser_methods.aspx?f=255&MSPPError=-2147217396 ------------------------------------------ 找到了一个针对性比较强的文段：http://www.xitongcheng.com/jiaocheng/win10_article_26456.html ----------------------------------------- 解决方法：参考：https://blog.csdn.net/qq_19741181/article/details/79831661 ------------------------------------------------------------------------------------------ 参考：https://blog.csdn.net/wenzhou1219/article/details/78308811 参考：https://www.cnblogs.com/tyn-munan/archive/2011/12/03/2274970.html ------------------------------------------------------------------------------------- 实例：http://club.excelhome.net/thread-1140969-1-1.html 入门：https://jingyan.baidu.com/article/f79b7cb30f4e169144023ef7.html 代码： Private Sub WebBrowser1_StatusTextChange(ByVal Text As String) myWebBrowser.Object.Navigate "http://www.baidu.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" 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 |
【本文地址】
今日新闻 |
推荐新闻 |