商品ページからボタン一つで情報を取り込むVBAプログラムの作り方（Amazon編①）

Tweet

商品転売をされている方は、「商品名」や「商品価格」、「商品画像」といった商品データを普段どうやって取得していますか？

自ら手動で？

それともスタッフを雇って1件○円とかで集めてもらっていますか？

率直に言ってどちらの方法も時間とお金の無駄ですね！

とりあえず商品販売は数日お休みにして、このページを見つつプログラムを作り上げてみませんか？今まで数万円掛けて外注していた仕事が、自動化することで全て一人でできる様になるかもしれませんよ？

ということで、今回は商品ページ上から「商品情報を取得するためのプログラム」の作り方をご紹介したいと思います。
※完全な初心者向けでは無いので所々説明は省いている場面があります。予めご了承下さい。

とは言ってもどんなページにも万能に対応できるものなんて作れませんので、今回は「Amazon」の商品ページを対象としたものを作ってみたいと思います。

最初に準備するもの

まずは操作対象となる商品ページを開いておく必要があります。

とりあえずこの辺の適当な商品で構いませんので、InternetExplorer上で開いておいて下さい。

【Nintendo Switch対応】マイクロSDカード32GB for Nintendo Switch

次にVBAを利用するためのエクセルファイルを準備して下さい。

ファイルが用意できたら、早速エディタを起動して以下の様に処理を記述していきましょう。

'-----------------------------------------------------------------
'現在IEで開いているAmazonの商品ページの情報を、シート状に取得する
'-----------------------------------------------------------------
Sub main()
    Dim objIE As InternetExplorer       'Amazonの商品ページを格納
    Dim sProductName As String          '商品名
    Dim sProductPrice As String         '商品価格
    Dim sProductExplain As String       '商品説明
     
End Sub

※もちろん宣言はこれだけじゃ足りません。必要になった時点で随時追加していきます。

さて、環境設定が何も済んでいない状態ですと「Dim objIE As InternetExplorer」と記述しても恐らくエラーになると思います。

環境設定については以下の記事をご確認下さい。

VBAでブラウザを操作して作業を自動化してみよう -ウェブスクレイピングツール編①-

objIEに商品のページを格納する

準備ができたら、次はAmazonのページをプログラム上で操作できる様にしましょう。

具体的には、最初に宣言した「objIE」の変数にAmazonのページを格納する処理を追加します。

'-----------------------------------------------------------------
'現在IEで開いているAmazonの商品ページの情報を、シート状に取得する
'-----------------------------------------------------------------
Sub main()
    Dim objIE As InternetExplorer       'Amazonの商品ページを格納
    Dim sProductName As String          '商品名
    Dim sProductPrice As String         '商品価格
    Dim sProductExplain As String       '商品説明
    
    'IE取得関連
    Dim objShell As Object              'shellオブジェクト格納
    Dim objWindow As Object             'ウィンドウを格納
     
    '---------Amazonのページを取得する処理---------
    Set objShell = CreateObject("Shell.Application")

    For Each objWindow In objShell.Windows
        'IEウィンドウの判定
        If InStr(LCase(objWindow.FullName), "iexplore.exe") > 0 Then
            'タイトルにAmazon.co.jpが含まれていれば商品ページと判定
            If InStr(objWindow.document.title, "Amazon") > 0 Then
                Set objIE = objWindow
                Exit For
            End If
        End If
    Next
    
    'Amazonのページが見つからなかった場合の処理
    If objIE Is Nothing Then
        MsgBox "商品ページの取得ができませんでした。"
        End
    End If
    '----------------------------------------------
    MsgBox objIE.document.title
End Sub

新たに「objShell」と「objWindow」の宣言を追加しました。

まず「objShell」に「CreateObject(“Shell.Application”)」というものを格納しています。

「Shell.Application」というのは簡単に言うと、パソコン内部の事を全て知っているいわゆる”中の人”です。この人を呼び出して、一時的に「objShell」として呼ばせてもらいますよって感じです。
※シェルに関する詳しい解説はwiki等を参照して下さい。

この状態になった「objShell」は、現在そのパソコン上で起動している全てのアプリケーションの状況を掌握しています。

ただし、直接「InternetExplorerで開いているAmazonのページが欲しい」という命令は出せません。

ではどうれすば良いかというのが、その下に記述している「For Each」の部分になります。

For Each objWindow In objShell.Windows

と記述することで、現在開かれているウィンドウを一つずつobjWindowの中に格納しながらループを繰り返すことができます。

こうやって全てのウィンドウを一つずつチェックしていきながら、目的のAmazonのページかどうかの判定を行う訳ですね。

冒頭のAmazonのページを開いている状態で上記プログラムを実行させると、

「Amazon.co.jp： 【Nintendo Switch対応】マイクロSDカード32GB for Nintendo Switch: ゲーム」

というメッセージボックスが表示されるはずですので、試してみて下さい。

メッセージボックスは正しく表示されましたか？

これで自動操作処理の下準備は完了です。

次からはいよいよ商品データの取得処理を記述していきます。

【次の記事】

⇒商品ページからボタン一つで情報を取り込むVBAプログラムの作り方（Amazon編②）