VBA中如何使用Edge内核Browser？

最新推荐文章于 2024-10-16 10:52:38 发布

金木AI

最新推荐文章于 2024-10-16 10:52:38 发布

阅读量1.5k

点赞数 2

分类专栏： VBA 文章标签： VBA

本文链接：https://blog.csdn.net/weixin_43160662/article/details/140536000

版权

问题：

在微软宣布停止对IE的支持后，许多使用VBA中Web Browser的用户遇到了困境，因为Web Browser使用的IE内核。然而微软并没有给出支持Edge的新版Web Browser，网上许多第三方的库也不够完善。

解决方案：

经过调研，libEdge可以较好的和VBA集成，实现在Excel中打开Browser，甚至能够通过执行js代码，获取web页面的信息。
https://github.com/bubdm/libEdge/tree/main/VBA_libEdge

注意：
项目需要WebView2Loader.dll和LibEdge.dll两个库，区分x86和x64版本。

示例代码：

Public Function GetEncodedCookieFromWebBrowser(serverIP As String) As String
    Dim url As String
    Dim encodedCookie As String
    Dim isValidIPFormat As Boolean
    Dim jsResult As String
    Dim path As String

    encodedCookie = ""
    url = "https://" + serverIP + "/proj/demo/" + Guid()
    isValidIPFormat = IsValidIP(serverIP)
    path = Application.ActiveWorkbook.path & "\