プロが教える店舗&オフィスのセキュリティ対策術

どなたかご教示ください。
Webサイトのセレクトボックスを操作するコードを記述しようとしています。
Elementを取得するためのコードを試しているのですが、
Webページの途中までのElementしか取得できません。
getElementsByTagName、~Name、all~など色々試してみましたが、
表の「決算期」以下の行のセレクトボックスを取得しません。
htmlソースを確認してもタグは全く同様に記述されています。
確認しているコードは以下の通りです。

大変恐縮ですが、なにとぞよろしくお願いいたします。

-----------------------------------------------------------------------------------------------
Sub sample()

Dim objIE As InternetExplorer
Dim htmlDoc As Object
Dim strUrl As String
Dim slt As Object '検索日付設定用

Set objIE = CreateObject("Internetexplorer.Application")

strUrl = "https://www2.tse.or.jp/tseHpFront/JJK010010Actio … 'ページのURL

objIE.navigate strUrl

Do While objIE.Busy = True Or objIE.readyState < READYSTATE_COMPLETE
DoEvents
Loop

Set htmlDoc = objIE.document

'決算期より下の行が取得できない・・・
For Each slt In htmlDoc.getElementsByTagName("select")
Debug.Print slt.outerHTML
Next

MsgBox "終わり"

End Sub
-------------------------------------------------------------------------------------
該当のWebサイトのページはこちらです。
https://www2.tse.or.jp/tseHpFront/JJK010010Actio …

「VBA/IE WebサイトのHTMLオブ」の質問画像

質問者からの補足コメント

  • うーん・・・

    Zincerさま、ご回答誠にありがとうございます。

    添付したキャプチャ画面は「詳細検索」ボタンをクリックした状態です。
    ※「詳細検索」ボタンが赤くなり選択状態です。
     ご指摘のリンク先、jsessionid以下がうまく取れなかったためです。
     リンクURLが上位の「簡易検索」を初期表示します。

    ご質問させていただいた状態は「詳細検索」画面を表示した状態で発生し、
    htmlソースも確認し、<select>や<option>タグが存在しているのに、
    拾ってこないものがあるという現象です。

    お手数をおかけいたしますが、よろしくお願いいたします。

    No.1の回答に寄せられた補足コメントです。 補足日時:2020/04/02 10:37

A 回答 (1件)

URLを確認してみてください。


質問中「ページはこちらです」のリンクでは
・・・/tseHpFront/JJK010010Action.do
となっていますが、ここは簡易検索用みたいで「決算期」までの入力しか有りません。
希望のページと思われる「詳細検索」の方は
・・・/tseHpFront/JJK010010Action.do;jsessionid=〇〇〇
とパラメータが必要なようです。
そのへん原因なのではないですか。
この回答への補足あり
    • good
    • 0

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!