☰

ウェブサイトから Excel にデータを取得する方法

tag-icon • tag-icon microsoft-excel
ウェブサイトから Excel にデータを取得する方法

例えば、

この商品の最安値を Excel スプレッドシートのセル A2 に表示したい場合、それを実行するコードはありますか? これは継続的にデータを取得するものではありません。おそらく、1 日または 1 週間に 1 回価格を検索することになります。

http://steamcommunity.com/market/listings/440/Strange%20Hillbilly%20スピードバンプ

答え1

以下に、始めるための基本的な例を示します。これは、Web サイトを 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 は、Web サイトを含む変数になります。私の例では、google を使用しました。

関連情報