VBA中如何使用Edge内核Browser？

金木讲编程2024-07-20 12:28

问题：

在微软宣布停止对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版本。

示例代码：

vba 复制代码

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 & "\"
    ChDir path

    If isValidIPFormat = False Then
        If VBA_StartEdge() <> 0 Then Exit Function

        VBA_Navigate url

        ' Wait for the page to fully load
        Do While Not PageLoaded
            Sleep 500 ' Sleep for 500 milliseconds to allow user interaction
            DoEvents
        Loop

        ' Wait until the cookie contains 'token%22'
        Do Until InStr(jsResult, "token%22") > 0
            If VBA_RunJavascript("document.cookie", jsResult) <> 0 Then
                VBA_StopEdge True
                Exit Function
            End If
            Sleep 500 ' Sleep for 500 milliseconds to allow user interaction
            DoEvents
        Loop
        encodedCookie = jsResult
        VBA_StopEdge True
    End If
    GetEncodedCookieFromWebBrowser = encodedCookie
End Function