VBAで価格変動できるツールを作る

手順

以下は、VBAを使用してAmazonの商品価格を自動的に取得し、エクセルに保存する例です

Sub GetAmazonPrice()
    Dim IE As Object
    Dim Price As String
    Dim ASIN As String
    Dim URL As String
    
    Set IE = CreateObject("InternetExplorer.Application")
    IE.Visible = True
    
    ' ASINを入力
    ASIN = InputBox("Enter the ASIN")
    
    ' URLを生成
    URL = "https://www.amazon.co.jp/dp/" & ASIN
    
    ' Webページを開く
    IE.Navigate URL
    
    ' ページが読み込まれるまで待機
    Do While IE.ReadyState <> 4
        DoEvents
    Loop
    
    ' 価格を取得
    Price = IE.Document.getElementById("priceblock_ourprice").innerText
    
    ' エクセルに価格を保存
    Sheets("Sheet1").Range("A1").Value = ASIN
    Sheets("Sheet1").Range("B1").Value = Price
    
    IE.Quit
End Sub

このVBAコードでは、ASINを入力すると、その商品のAmazonページを開き、価格を取得してエクセルに保存します。このコードをさらに改良して、商品登録や価格改定、発送料などを行うことができます。具体的には、商品データをエクセルに登録し、定期的に価格を取得して更新するVBAコードを作成することができます。また、送料を考慮して最適な価格を自動的に計算するVBAコードも作成できます。

手順

Comments