フリル（fril）をVBAで自動操作して出品まで行ってみた

メルカリ（mercari）、ラクマ（rakuma）と続いて、今回はフリル（fril）の自動出品化についての方法です。

過去のVBA自動化記事についてはこちら↓

■自分用に作成したPC版メルカリの自動操作ツール（VBA）の解説

■VBAによるラクマの自動出品化に成功！その方法を公開

- 目次 -

1 商品名のフォームに値をセットする（省略）
2 商品カテゴリを設定する
3 実装してみた感想

商品名のフォームに値をセットする（省略）

さて、では早速作っていきましょう！

ところでIE（InternetExplorer）の準備はできましたか？

フリルは開けました？

出品画面への遷移は？

今回は途中の処理は大幅にカットしていきなりカテゴリの設定方法の説明からさせて頂きます。

なぜかというと商品名、商品説明、画像設定等々の処理は、メルカリ、ラクマの過去記事で紹介している内容“そのまま”でいけるからです！

あ、もちろん”そのまま”と言っても単純なソースコピーじゃだめですよ？

タグに付けられている『ID』や『クラス名』は、ちゃんとフリルのページソースを確認して変えて下さいね。

ということで、基本の作り方については冒頭のリンクから他の記事の内容参照して下さい。

商品カテゴリを設定する

まずはカテゴリ設定を行う箇所のソース部分を確認しましょう。

見た目となる部分は下図の箇所になります。

該当箇所のソースは以下の部分となります。

「カテゴリ」という文字も見えますし何となく分かりますね。

実際に操作する部分は右側の「指定なし」と表示されている部分ですが、ソース画像の下の部分にも見えています。

外見上はプルダウンの様にも見えますが、実はこの部分はボタンになっています。アンカータグですしクラス名にも「btn」という記述が見えるのが分かると思います。　

このアンカータグの内容をよく見ると分かりますが、このボタンをクリックする事でモーダルウィンドウが開く仕掛けになっています。

メルカリというよりはラクマに近い仕様の様ですね。（近いというかまぁ運営が楽天の子会社ですから仕様を同じにしたのかもしれませんね。子会社化する前はどうだったのかは知りません。）

早速クリックしてモーダルウィンドウを表示させましょう。

Dim objIE As InternetExplorer

Set objIE = '開いているフリマのサイトを取得するための関数など'

objIE.document.getElementById("category_name").Click

id値には「category_name」が設定されていますので、クリックする処理は「getElementById」を使ったこの1行のみでokです。

クリックが完了するとこの様なモーダルウィンドウが出現します。

ラクマ自動化についてのページをご覧頂けると分かりますが、このモーダルウィンドウももちろん操作可能です。HTMLソース上でもこのモーダル部分の記述は見れますので、確認してみて下さい。

では、今回はこの中から「レディース」を選択してみたいと思います。

該当箇所のソースは下図の通りです。

「レディース」という単語だけで見てみると中央の青枠の部分となりますが、この部分のタグを取得してもカテゴリは選択できませんので注意しましょう。

ソースの前後の部分を見てみると、この”レディース”という文字部分はアンカータグ（赤枠）の内側にあることが分かると思います。

つまりこちらのアンカータグの方をクリックすれば良いということです。

コードにするとこの様な形になります。

Dim sClassName As String
Dim objAnchor As Object

For Each objAnchor In objIE.document.getElementsByTagName("A")
    On Error Resume Next
    sClassName = objAnchor.className
    On Error GoTo 0
    
    '条件に一致するアンカータグが存在した場合はクリック'
    If sClassName = "list-group-item parent" And _
       Trim(objAnchor.innerText) = "レディース" Then
       objAnchor.Click
       Exit For
    End If
Next

上記コードでクリックできた場合、以下の様にレディースカテゴリに紐付く下位のカテゴリが表示されるはずです。