如何將網站資料提取到 Excel 中？

Question

例如，

如果我想在 Excel 電子表格的 A2 儲存格中顯示該商品的最便宜價格，是否可以編寫任何程式碼來實現此目的？這不是連續抓取資料。也許每天/每週找一次價格。

http://steamcommunity.com/market/listings/440/Strange%20Hillbilly%20Speed-Bump

Answer 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 將是包含您網站的變數。我用谷歌當例子。