VBAのIE操作でEC-CUBEに自動商品登録新規ページ表示する方法

前回の「EC-CUBE管理画面の自動ログイン処理」でログイン処理を自動化することができました。
今回は商品関連の操作について、説明していきます。
商品関連の操作としてはどのようなものがあるでしょうか？
大きく分けると以下のようになるかと思います。

更に細かく分けるとカテゴリ追加、規格登録、商品並び替えなどありますが、通常業務としては以上の3つが主な操作になるかと思います。
そこで今回は新規商品登録画面を表示するまでの自動化に挑戦してみます。
処理の流れは以下になります。

尚、今後はサブルーチン化させた内容で解説していきます。

EC-CUBE管理画面商品登録新規ページ表示のサブルーチン

Sub ecCubeProductNew(objIE As InternetExplorer)

    'objIEチェック
    If objIE Is Nothing Then: Call btnLogin

    Call tagClick(objIE, "a", "商品登録")

End Sub

EC-CUBE管理画面商品登録新規ページ表示のマクロ

Sub btnProductNew()

    Call ecCubeProductNew(objIE)

End Sub

EC-CUBE管理画面に自動ログインのマクロ

Sub btnLogin()

　Call ecCubeLogin(objIE, Range("eccubeurl"), Range("eccubeid"), Range("eccubepass"))
　Call iePosition(objIE, Range("menuwidth"), Range("menulayout"))
End Sub

設定画面

実行結果

※Webブラウザ部分の結果

今回もEC-CUBE本家サイトのデモ管理画面を利用させてもらいます。
ログインに必要なIDとパスワードは以下となります。

「ecCubeProductNewサブルーチン」には引数は以下の1つが設定されています。

「objIE」は必須項目です。
「objIE」は複数ページを表示させる場合に「objIE」「objIE2」と複数オブジェクトを生成します。

それでは1つずつ見ていきましょう。

If objIE Is Nothing Then: Call btnLogin

こちらは、objIEが生成されているかのチェックです。
処理方法には「EC-CUBEログインボタン」を処理した後（IEが表示されている状態）に、「新規登録新規ボタン」をクリックした場合とIEが何も表示されていない状態で「新規登録新規ボタン」をクリックした場合の2種類のパターンが存在します。
前者の場合で、ログイン処理を実行するとWebブラウザがいくつも表示されて逆に管理しづらくなります。
こちらのチェックでは、そのようなことが起こらないようにチェックしています。
こちらは「IF～Thenステートメント」の省略形になります。
objIEが存在しない場合は、「btnLoginマクロ」を呼び出します。
「btnLoginマクロ」の中身を見ると「ecCubeLoginサブルーチン」を利用したEC-CUBE管理画面ログイン処理になりますので、objIEが存在しない場合のみログイン処理を行います。

前回もお話しましたが、 「eccubeURL」「eccubeId」「eccubePass」には名前定義を設定しています。
今回も以下のように名前定義を設定していますが、お好きな名前で設定してください。

Call tagClick(objIE, "a", "商品登録")

そして指定したタグをクリックする「tagClickサブルーチン」を利用して、aタグ内に「商品登録」の文字列があるaタグをクリックします。
こちらは、商品登録ページのリンクになります。これで商品登録ページの表示は完了です。非常に簡単ですね。
ボタン１つでこれまで以下の流れで処理していたのが簡素化されました。
常に管理している方にとっては非常に便利な機能です。
1つ1つの処理を少しずつ効率化していくだけで全体として大幅な効率化が見込めますので、是非挑戦してみてください。