html - VBA 自动化的 Internet Explorer 替代方案

问题描述

我有一个 VBA 代码来浏览网页、阅读内容、单击按钮、填写文本等...此代码使用 Internet Explorer。下面我没有复制代码，只是把我使用的主要对象给你一个想法：

Dim HTMLDoc As HTMLDocument
Dim oBrowser As InternetExplorer
Dim oHTML_Element As IHTMLElement


Set ie = CreateObject("InternetExplorer.Application")
ie.navigate Url
ie.Visible = True

...

Set oBrowser = ie
oBrowser.Visible = True

...    
Set HTMLDoc = oBrowser.document

Set nodeAllDiv = HTMLDoc.getElementsByTagName("p")

Txt = nodeAllDiv.Item(0).innerText

..

HTMLDoc.getElementsByTagName("p").Item(nodeAllDiv.Length - 1).Click

Set listButtons = HTMLDoc.getElementsByTagName("button")
listButtons.Item(0).Click


Set formDivs = HTMLDoc.getElementsByTagName("form")

问题是最近我正在浏览的网页不再受 Internet Explorer 支持，而是使用 Chrome 或 Edge，因此我无法按原样使用此 VBA 代码。

有没有办法可以重用我到目前为止写的东西（重用相同的对象等......）？如果可能，无需迁移到另一种框架/语言

谢谢

标签： htmlvbainternet-explorer

html - VBA 自动化的 Internet Explorer 替代方案

问题描述

解决方案

推荐阅读