您的位置:首页 > 汽车 > 新车 > VBA中如何使用Edge内核Browser?

VBA中如何使用Edge内核Browser?

2024/9/8 10:43:11 来源:https://blog.csdn.net/weixin_43160662/article/details/140536000  浏览:    关键词:VBA中如何使用Edge内核Browser?

问题:

在微软宣布停止对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 StringDim url As StringDim encodedCookie As StringDim isValidIPFormat As BooleanDim jsResult As StringDim path As StringencodedCookie = ""url = "https://" + serverIP + "/proj/demo/" + Guid()isValidIPFormat = IsValidIP(serverIP)path = Application.ActiveWorkbook.path & "\"ChDir pathIf isValidIPFormat = False ThenIf VBA_StartEdge() <> 0 Then Exit FunctionVBA_Navigate url' Wait for the page to fully loadDo While Not PageLoadedSleep 500 ' Sleep for 500 milliseconds to allow user interactionDoEventsLoop' Wait until the cookie contains 'token%22'Do Until InStr(jsResult, "token%22") > 0If VBA_RunJavascript("document.cookie", jsResult) <> 0 ThenVBA_StopEdge TrueExit FunctionEnd IfSleep 500 ' Sleep for 500 milliseconds to allow user interactionDoEventsLoopencodedCookie = jsResultVBA_StopEdge TrueEnd IfGetEncodedCookieFromWebBrowser = encodedCookie
End Function

版权声明:

本网仅为发布的内容提供存储空间,不对发表、转载的内容提供任何形式的保证。凡本网注明“来源:XXX网络”的作品,均转载自其它媒体,著作权归作者所有,商业转载请联系作者获得授权,非商业转载请注明出处。

我们尊重并感谢每一位作者,均已注明文章来源和作者。如因作品内容、版权或其它问题,请及时与我们联系,联系邮箱:809451989@qq.com,投稿邮箱:809451989@qq.com