Excel VBA – Amazon/PayPayモール/メルカリで同時検索
ひまだからせどりやってみようかなー、と思い立って勢いで作ってみました。
シートに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マクロを実行すると同時検索できますが、めんどくさくなったのでせどりはやめておきます。笑
今後の参考にさせていただきます。
ディスカッション
コメント一覧
まだ、コメントがありません