Windows版 Excel VBA でHTMLの変化に対応

Question

前提・実現したいこと

クローリング後、HTMLが数秒後に変化するので、
Loop、Ifなどで、ページをリロード後、
変化後のHTMLをsubmitでクローリングしたい！

該当のソースコード

<tr align="center">
<td bgcolor="#FFFFFF"><font size="-1">通常購入</font></td>
<td bgcolor="#FFFFFF"><font size="-1">28048131</font></td>
<td bgcolor="#FFFFFF"><font size="-1">2019-09-16 20:20:48</font></td>
<td bgcolor="#FFFFFF"><font size="-1">全て</font></td>
<td bgcolor="#FFFFFF"><font size="-1">B2csv</font></td>
<td bgcolor="#FFFFFF" align="right"><font size="-1">-</font></td>
<td bgcolor="#FFFFFF"><font size="-1">

2019/09/16&#65374;2019/09/16

</font></td>

<td bgcolor="#FFFFFF"><font size="-1">処理中</font></td><!-- ←ここが↓数秒後 -->

</tr>

<tr align="center">
<td bgcolor="#FFFFFF"><font size="-1">通常購入</font></td>
<td bgcolor="#FFFFFF"><font size="-1">28047783</font></td>
<td bgcolor="#FFFFFF"><font size="-1">2019-09-16 18:47:09</font></td>
<td bgcolor="#FFFFFF"><font size="-1">発送待ち</font></td>
<td bgcolor="#FFFFFF"><font size="-1">発送完了報告用</font></td>
<td bgcolor="#FFFFFF" align="right"><font size="-1">34件</font></td>
<td bgcolor="#FFFFFF"><font size="-1">

2019/09/10&#65374;2019/09/16

</font></td>

<!--------------------------　この用に変化する為！！　--------------------------->
<form id="command" action="/×××/mall/csvdl/CD03_02_001" method="post">
<td bgcolor="#FFFFFF">
<input type="submit" value="ダウンロード">　
<input type="hidden" name="_csrf" value="c4125cb21c34e1af5b20c67b2e240b69">
<input type="hidden" name="logId" value="28047783">
</td>
</form>

<!-------------------------△　この用に変化する為！！　△--------------------------->

</tr>

<form id="command" action="/×××/mall/csvdl/CD03_02_001" method="post">
<td bgcolor="#FFFFFF">
<input type="submit" value="ダウンロード">　
<input type="hidden" name="_csrf" value="c4125cb21c34e1af5b20c67b2e240b69">
<input type="hidden" name="logId" value="28047783">
</td>
</form>



</tr>

<tr align="center">
<td bgcolor="#FFFFFF"><font size="-1">通常購入</font></td>
<td bgcolor="#FFFFFF"><font size="-1">28047783</font></td>
<td bgcolor="#FFFFFF"><font size="-1">2019-09-16 18:47:09</font></td>
<td bgcolor="#FFFFFF"><font size="-1">発送待ち</font></td>
<td bgcolor="#FFFFFF"><font size="-1">発送完了報告用</font></td>
<td bgcolor="#FFFFFF" align="right"><font size="-1">34件</font></td>
<td bgcolor="#FFFFFF"><font size="-1">

2019/09/10&#65374;2019/09/16

</font></td>

    Dim cboObj3 As HTMLSelectElement
    Set cboObj3 = ie.document.getElementsByName("templateId")(0)
    'セレクトボックスを発送報告完了用に変更します
    cboObj3.Value = "-2"
    
    For Each objTag In ie.document.getElementsByTagName("input")
        If InStr(objTag.outerHTML, "  データを作成する  ") > 0 Then

      '発送報告完了用buttonボタンクリック
      objTag.Click
            Exit For
        End If
    Next
    Sleep 10000　'10秒間とめる処理
    
    Dim objLink As Object

    'アンカータグの表示内容が「ダウンロード利用履歴へ」
    For Each objLink In ie.document.getElementsByTagName("a")
        If objLink.innerText = "ダウンロード利用履歴へ" Then
        objLink.Click
            Exit For
        End If
    Next
------------------------------------------------------------------------------

　ここに新しいコードを追加したいが、HTMLタグtd"処理中"の取得がよく分からない為、
　現在は↑でSleep 10000　'10秒間とめる処理をしていますが、
　HTMLが変化するスピードは、データ量とサーバー状態によって変わる

------------------------------------------------------------------------------

    
    'IEのページ読み込みが完了することを待つ処理
    Do While ie.Busy = True Or ie.readyState < READYSTATE_COMPLETE
        DoEvents
    Loop
  '------------------------------------------------------------------------------
    ie.document.forms(2).submit

補足情報（Excel VBA ieでのクローリング）

上記のコードで、HTML上ではプログラムで

<td bgcolor="#FFFFFF"><font size="-1">処理中</font></td>が <input type="submit" value="ダウンロード"> の様に数秒後変化いたします。 （データ量とサーバーの状態により時間は変化します。）

現在VBAでは、Sleepで10秒待つようにしていますが、

'アンカータグの表示内容が「ダウンロード利用履歴へ」後、
（objLink.Click後が、HTMLコードのページになります。）

ページ上の「処理中」であれば、2秒待って、
Refreshでページの更新を行い、
<input type="submit" value="ダウンロード">に変更になるまで
Loopを回して、変更後、一番最後の

ie.document.forms(2).submit　へ

進みたいと考えております。

ifとLoopを使えば問題ないと認識しておりますが、
tdタグから処理中を指定する方法などが、
よく分かりません。

VBA初心者なもので、出来るだけ分かり易いコードを
ご教授いただければ幸いです。

よろしくお願いいたします。m(_ _)m

Comments

[meg_]

ソースコードは「コードの挿入」で記入してください。

[masakado]

すみません！記載方法をよく理解しておりません。

[hatena19]

コード部分を選択してから、入力エリア上部のツールバーの <code> ボタンをクリックしてください。

Answer 1

下記コードを挿入することで解決いたしました。m(_ _)m

    Do Until ie.document.getElementsByTagName("font")(36).innerHTML = "通常購入"
        If (ie.document.getElementsByTagName("font")(36).innerHTML = "処理中") Then
            ie.Refresh
            Sleep 1000
        End If
    Loop

Answer 2

数秒待つと、下記のフォームが出現するということでしょうか。

<form id="command" action="/×××/mall/csvdl/CD03_02_001" method="post">
<td bgcolor="#FFFFFF">
<input type="submit" value="ダウンロード">　
<input type="hidden" name="_csrf" value="c4125cb21c34e1af5b20c67b2e240b69">
<input type="hidden" name="logId" value="28047783">
</td>
</form>

だとしたら、id="command" の要素の取得を試みて、エラーなく取得できるまで繰り返し処理をすればどうでしょうか。

    Dim formCommand As HTMLSelectElement
    Dim GetElement As Boolean
    Dim i As Long
    On Error Resume Next
    For i = 1 To 50    '50回トライ(10秒間)
        DoEvents: Sleep 200
        Set formCommand = ie.document.getElementById("command")
        If Err = 0 Then
            GetElement = True
            Exit For
        End If
        Err.Clear
        DoEvents
    Next
    On Error GoTo 0
    If Not GetElement Then
        Msgbox "フォームの取得に失敗しました。"
        Exit Sub
    End If

Do...Loopで出現するまで繰り返すと、もし出現しない場合は無限ループになるので、
Forでトライ回数を設定してます。トライ回数は状況に応じて適宜変更してください。

Comments

[masakado]

ご回答ありがとうございます。m(_ _)m

しかしながら、移動したページには、すでに複数のid="command"を持つHTMLが存在しており、
変化する前のHTMLでは、
<td bgcolor="#FFFFFF"><font size="-1">処理中</font></td>
この値を取得してリロードする必要がございます。
変化後は、
ie.document.forms(2).submitで指定しております。

ご教授いただければ幸いです。

また、ソースコードも分かりやすいよう追記してございます。m(_ _)m

[hatena19]

質問からは、変化する前と変化した後の違いが読みづらかったので、適当に推測して回答しましたが、
考え方は、変化後に出現する要素、あるいは変化するものを調べて、判断するということです。
「処理中」というテキストが変化するなら、それをループで取得して変化していたら、次の処理に進むというように書き換えてください。

[masakado]

ありがとうございます。
変化前の「処理中」の要素を取得したいのですが、その方法が色々調べてみましたが分かりません。
ご教授いただければ幸いです。m(_ _)m

[hatena19]

テーブルのセルの値の取得は、下記が参考になると思います。
エクセルVBAでtable要素のセルを取得する | IE操作の自動化
https://www.vba-ie.net/element/rowscells.php

[masakado]

ありがとうございます。試してみます。