文章/答案/技术大牛

发布

社区首页 >问答首页 >使用VBA-Macros抓取源代码

问使用VBA-Macros抓取源代码
EN

Stack Overflow用户

提问于 2018-02-15 14:02:15

回答 1查看 2.7K关注 0票数 2

我需要从价格比较网站(产品链接：https://www.toppreise.ch/prod_488002.html)抓取价格值。我不能刮。查看我想要捕获的图像中突出显示的价格：

请帮助我如何抓取这个页面。

PS:在许多国家/地区将无法访问toppreise.ch，因此请使用VPN

我使用了下面的代码：

Private Sub SiteInfo_Click()
Dim strhtml
On Error Resume Next
ThisWorkbook.Sheets("Data Mining").Activate
Sheets("Data Mining").Range("B1").Select
Set xmlHttp = Nothing
Set xmlHttp = CreateObject("MSXML2.ServerXMLHTTP.6.0")

    StrUrl = ""
    StrUrl = Sheets("Data Mining").Range("B1").Value
    xmlHttp.Open "GET", StrUrl, False
    xmlHttp.Send
    strhtml =xmlHttp.responseText
    END Sub

当我运行上面的代码时，我只能得到下面的响应文本。它不会给出整个页面。(您可以使用产品链接或查看此处https://www.dropbox.com/s/ah80jt7a25xcicp/source%20code.txt?dl=0查看源代码)

<html><head>
        <script type="text/javascript" src="//en.toppreise.ch/js/tpjs.js"></script>
        <script type="text/javascript" src="//en.toppreise.ch/js/afxp.js"></script>
        <script type="text/javascript" src="//en.toppreise.ch/js/jquery.min.js"></script>
        <script type="text/javascript" src="//en.toppreise.ch/js/jquery-ui-autocomplete.min.js"></script>
    </head><body>...

web-crawler

vba

excel

web-scraping

回答 1

Stack Overflow用户

发布于 2018-02-16 17:39:31

这段代码很好用，谢谢SIM

Sub Get_Price()
Dim HTTP As New XMLHTTP60, HTML As New HTMLDocument
Dim post As HTMLDivElement

With HTTP
.Open "GET", "https://www.toppreise.ch/index.php?a=488002", False
.send
HTML.body.innerHTML = .responseText
End With

For Each post In HTML.getElementsByClassName("altLinesOdd")
With post.getElementsByTagName("a")
     If .Length Then R = R + 1: Cells(R, 1) = .Item(0).innerText
End With
With post.getElementsByClassName("spaceVert nobreak")
     If .Length Then Cells(R, 2) = .Item(0).innerText
End With
Next post
End Sub

票数 0

页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持

原文链接：

https://stackoverflow.com/questions/48800813

复制

相似问题

问使用VBA-Macros抓取源代码
EN

回答 1

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问使用VBA-Macros抓取源代码EN

回答 1

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问使用VBA-Macros抓取源代码
EN