从 URL VBA 中提取数据使 IE 不支持

编程问答 2022-05-01

问题描述

我一直在使用以下 Excel VBA 宏从网站带回数据。直到几天前网站停止支持 IE 时，它才能正常工作。当然，宏现在只是失败了，因为网页上没有数据可以带回 Excel，有没有办法拥有“获取方法”（MSXML2.XMLHTTP）

这是我的代码

Â

我得到的回应是

错误 处理您的请求时出错。

参考 #97.ec8a2c31.1621136928.281f3ca8

请任何人都可以支持我如何在 IE 不支持时获取数据 我不是编码专家

解决方法

好的，尝试使用 vba 与 selenium 结合使用该站点的标题和投票。

Sub FetchInfo()
    Dim driver As Object,oTitle As Object
    Dim oVotes As Object
    
    Set driver = CreateObject("Selenium.ChromeDriver")
    
    driver.get "https://www.justdial.com/Agra/Yogi-General-Store-Opp-Eclave-Satiudum-Sadar-Bazaar/0562P5612-5612-120207212812-H5I2_BZDET"
    Set oTitle = driver.FindElementByCss("span.item > span",Raise:=False,timeout:=10000)
    Set oVotes = driver.FindElementByCss("span.rtngsval > span.votes",timeout:=10000)
    Debug.Print oTitle.Text,oVotes.Text
End Sub
,

当网页以后不再支持 IE 时，您可以在安装了新插件的情况下使用 Google Chrome 尝试网页 scrape，插件安装和如何编写请参见以下链接在 VBA 中。但是，在我看来，执行工作的最简单方法是使用 Uipath 免费社区版，它适用于所有类型的网络浏览器。

VBA 指南： https://www.wiseowl.co.uk/vba-macros/videos/vba-scrape-websites/web-scraping-selenium-chrome/

Selenium 的 VBA 库安装： https://code.google.com/archive/p/selenium-vba/downloads

,

您可能需要将 Feature Browser Emulation 设置为 零，如 Daniel 此处所述：

Everything You Never Wanted to Know About the Access WebBrowser Control

也就是说，即使在 Edge Chromium 中打开您的 URL 也会失败，因此该站点可能会出现一般故障。

excelexcelvbaweb-scrapingxmlhttprequestxmlhttprequest