質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

ただいまの
回答率

88.76%

【Excel VBA】指定した要素が存在するかチェックし、あればそのリンクをクリック、なければ別の指定した要素が存在しないかチェック...を複数パターン行いたいです。

解決済

回答 1

投稿

  • 評価
  • クリップ 0
  • VIEW 457
退会済みユーザー

退会済みユーザー

前提・実現したいこと

ebayの商品リサーチを行う前に、ExcelのVBAを使用して位置情報を事前に設定しようとしております。

(1)ebayの商品ページを開く
(2)「Shipping and payments」をクリックする
(3)「Change country: 」に「United States」を、「ZIP Code: 」に「90024」を入力する
(4)「Get Rates」をクリックする

という一連の動作を自動で行おうとしているのですが...

発生している問題・エラーメッセージ

商品ページの中には、稀に「This listing was ended by the seller because the item is no longer available.(商品がなくなったのでこの項目は取り下げられました)」というようなエラーメッセージが記載されているページがあり、この場合、(2)~(4)の動作を行うためには、一度「See original listing(元の項目を閲覧する)」をクリックし、元の商品ページに移動する必要があります。

(例)https://www.e■■■bay.com/itm/Good-Smile-Kantai-Collection-Kancolle-Ooi-Nendoroid-Figure-OnlineShop-Limited/122259763088?hash=item1c773fef90:g:HXYAAOSwnHZYSRkb

(例)https://www.e■■■bay.com/c/28030310275#oid273544047936

※上記のURLをコピペする際は、「■■■」の削除をお願いいたします。

また、このエラーメッセージとリンクのテキストには、以下のような組み合わせがあります。

<div id="msgPanel" ... >This listing was ended by the seller because the item is no longer available.<

   <div class="vi-inl-lnk vi-cvip-prel3" ... >See original listing<

   <div class="vi-inl-lnk vi-cvip-prel5" ... >See original listing<

id="msgPanel" ... >This listing was ended by the seller because there was an error in the listing.<

   <div class="vi-inl-lnk vi-cvip-prel3" ... >See original listing<

   <div class="vi-inl-lnk vi-cvip-prel5" ... >See original listing<

<div class="nodestar-item-card-details__header-text" ... >The listing you're looking for has ended.<

   <div class="nodestar-item-card-details__view" ... >View original item<

<div class="itemcard--content" ... >The listing you're looking for has ended.<

   <div class="fake-btn fake-btn--large fake-btn--fluid" ... >View original item<

試したこと

例えば、

'id="msgPanel"という要素のテキスト部分をA1セルに入力

Range("A1").Value = ie.document.getElementById("msgPanel").outerText

   'A1セルに「This listing was ended...」という文字列が含まれているかチェック

   If InStr(Range("A1").Value, "This listing was ended by the seller because the item is no longer available.") > 0 Then

      '含まれていれば、class="vi-inl-lnk vi-cvip-prel3"という要素の直下にあるaタグのテキスト部分をA1セルに入力

      Range("A1").Value = ie.document.getElementsByClassName("vi-inl-lnk vi-cvip-prel3")(0).all.tags("a")(0).outerText

      'A1セルに「See original listing」という文字列が含まれているかチェック

      If InStr(Range("A1").Value, "See original listing") > 0 Then

         '含まれていれば、そのリンクをクリック

         ie.document.getElementsByClassName("vi-inl-lnk vi-cvip-prel3")(0).all.tags("a")(0).Click

      Else

         '含まれていなければ、class="vi-inl-lnk vi-cvip-prel5"という要素の直下にあるaタグのテキスト部分をA1セルに入力

         Range("A1").Value = ie.document.getElementsByClassName("vi-inl-lnk vi-cvip-prel5")(0).all.tags("a")(0).outerText

         'A1セルに「See original listing」という文字列が含まれているかチェック

         If InStr(Range("A1").Value, "See original listing") > 0 Then

            '含まれていれば、そのリンクをクリック

            ie.document.getElementsByClassName("vi-inl-lnk vi-cvip-prel5")(0).all.tags("a")(0).Click

         End If

      End If

   End If

End If

'商品ページに直接行けたにしろ、エラーページを経由する必要があったにしろ、最終的に以下の作業を行いたいと思っております。

'ページ中部の「Shipping and payments」をクリックする
ie.document.getElementById("viTabs_1").Click
Application.Wait Now + TimeValue("00:00:05")

'「Change country: 」に「United States」、「ZIP Code: 」に「90024」を入力し、「Get Rates」をクリックする
ie.document.getElementById("shCountry").Value = "1"
ie.document.getElementById("shZipCode").Value = "89106"
ie.document.getElementById("shGetRates").Click
Application.Wait Now + TimeValue("00:00:05")


というようなとても回りくどいコードを試しており、一応は機能しているのですが、できればもう少し簡略化したいと思っております。ご助力のほど、何卒よろしくお願い申し上げます。

補足情報(FW/ツールのバージョンなど)

Excel2016、Windows10、IE11

  • 気になる質問をクリップする

    クリップした質問は、後からいつでもマイページで確認できます。

    またクリップした質問に回答があった際、通知やメールを受け取ることができます。

    クリップを取り消します

  • 良い質問の評価を上げる

    以下のような質問は評価を上げましょう

    • 質問内容が明確
    • 自分も答えを知りたい
    • 質問者以外のユーザにも役立つ

    評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

    質問の評価を上げたことを取り消します

  • 評価を下げられる数の上限に達しました

    評価を下げることができません

    • 1日5回まで評価を下げられます
    • 1日に1ユーザに対して2回まで評価を下げられます

    質問の評価を下げる

    teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。

    • プログラミングに関係のない質問
    • やってほしいことだけを記載した丸投げの質問
    • 問題・課題が含まれていない質問
    • 意図的に内容が抹消された質問
    • 過去に投稿した質問と同じ内容の質問
    • 広告と受け取られるような投稿

    評価が下がると、TOPページの「アクティブ」「注目」タブのフィードに表示されにくくなります。

    質問の評価を下げたことを取り消します

    この機能は開放されていません

    評価を下げる条件を満たしてません

    評価を下げる理由を選択してください

    詳細な説明はこちら

    上記に当てはまらず、質問内容が明確になっていない質問には「情報の追加・修正依頼」機能からコメントをしてください。

    質問の評価を下げる機能の利用条件

    この機能を利用するためには、以下の事項を行う必要があります。

回答 1

checkベストアンサー

0

ExcelのVBAを使用して位置情報を事前に設定しようとしております。

VBAで位置情報等取得できるんですか?という疑問がまず1点。

2点めとして質問内容を下記のような内容に推敲されたほうが良いかとおもいます。

GUIがあるのであれば、そのSSを貼り、ここをクリックしたら
稀にhogehogeとなり、メッセージはhogehogeから出力されています。

GUIで2~4を制御しているのはhogehoge であり
そのコードが以下のものです。

現状、こういう手順でhogehogeしたらxxxとなりますが
下記のようなhogehoge処理を行なっており、効率がよくありません
hogehogeは以下のコードです

このコードを簡略化する事は可能でしょうか?

のように、具体的に質問内容を変更したほうが
回答がくるかと思います。

現状の質問では何をどうしたらよいか第三者に伝わってないから
回答が来てないかとおもいます。

質問内容を変更したほうがよいかと思います。

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

15分調べてもわからないことは、teratailで質問しよう!

  • ただいまの回答率 88.76%
  • 質問をまとめることで、思考を整理して素早く解決
  • テンプレート機能で、簡単に質問をまとめられる

関連した質問

同じタグがついた質問を見る

  • トップ
  • HTMLに関する質問
  • 【Excel VBA】指定した要素が存在するかチェックし、あればそのリンクをクリック、なければ別の指定した要素が存在しないかチェック...を複数パターン行いたいです。