例如,
如果我想在 Excel 电子表格的 A2 单元格中显示此商品的最低价,我可以编写任何代码来实现吗?这不是连续抓取数据。也许每天/每周查找一次价格。
http://steamcommunity.com/market/listings/440/Strange%20Hillbilly%20Speed-Bump
答案1
以下是一个基本示例,可帮助您入门。它展示了如何将网站显示为 HTML 代码。从那里,您必须确定如何读取已转换为文本的页面上的内容,但至少这是一个开始:
Private Sub GetWebsiteHtml_Click()
Dim x As Long, y As Long
Dim htmlText As Object
Set htmlText = CreateObject("htmlFile")
With CreateObject("msxml2.xmlhttp")
.Open "GET", "http://google.com", False
.send
htmlText.body.innerHTML = .responsetext
End With
End Sub
htmlText 将是包含您的网站的变量。我使用 google 作为示例。