Excel VBA – Amazon/PayPayモール/メルカリで同時検索

2022年5月23日

ひまだからせどりやってみようかなー、と思い立って勢いで作ってみました。

シートにURLを入力しておく

シート上のセルA1にはキーワードを入力して、セルA2、A3、A4に数式でURLを入れておきます。

[セルA2]="https://www.amazon.co.jp/s?k=" & M1
[セルA3]="https://paypaymall.yahoo.co.jp/search?p=" & M1
[セルA4]="https://jp.mercari.com/search?keyword=" & M1

あえてオブジェクト指向で作ってみる

世界で一番シンプルかもしれない、「役に立つクラス」です。笑

Option Explicit

Private strUrl1 As String
Private strUrl2 As String
Private strUrl3 As String

Public Sub searchUrl()

    strUrl1 = Range("A2")
    strUrl2 = Range("A3")
    strUrl3 = Range("A4")
    
    CreateObject("WScript.Shell").Run ("chrome.exe -url " & strUrl1)
    CreateObject("WScript.Shell").Run ("chrome.exe -url " & strUrl2)
    CreateObject("WScript.Shell").Run ("chrome.exe -url " & strUrl3)

End Sub

これはクラスモジュールを作ってクラス名を「UrlSearch」として、その中に書きます。

Subプログラムからクラスを呼び出す

あとはクラスを呼び出すだけ、あんまりクラスを作る習慣がなかったのでついでに勉強してみた感じです。

Sub search()

    Dim su As UrlSearch

    Set su = New UrlSearch

    Call su.searchUrl

End Sub

このsearchマクロを実行すると同時検索できますが、めんどくさくなったのでせどりはやめておきます。笑

VBA

Posted by SNOW