エクセルVBAでループ中のエラー処理に躓いています

Question

前提

エクセルVBA初心者です。
アリエクスプレスというサイトの在庫管理ツールを作成しています。
複数商品のURLがA列にズラッと並んでいて、
それを一つずつブラウザで開き在庫があるかを判別するイメージです。
在庫がある場合はB列に「在庫あり」、ない場合は「在庫なし」と入力されます。

在庫があるかどうかは、商品ページの「今すぐ購入」というボタンが存在するかどうかで判別するようにしています。
在庫がない場合はエラーが起こり、エラーが起こった時に例外処理で「在庫なし」と入力されるようにしたいです。

質問はループの中でのエラー処理で躓いています。
該当のソースコードを動かすと、「在庫なし」と判断されるべきページでも「在庫あり」と記入されてしまいます。
試した範囲では全てのページで在庫ありと判断されてしまいました。

ソースコードの中のエラー処理の「Resume Next」をなくした場合は正確に在庫の有無を判定してくれたのですが、
在庫がなかった商品でツールの駆動が完了してしまいます。

参考までにサンプルの商品ページのURLも載せておきます。

在庫がある場合
https://ja.aliexpress.com/item/1005003128872927.html?spm=a2g0s.8937460.0.0.39be2e0ecoqFRv&gatewayAdapt=glo2jpn

在庫切れの場合
https://ja.aliexpress.com/item/1005003748083331.html?spm=a2g0s.8937460.0.0.39be2e0ecoqFRv&gatewayAdapt=glo2jpn

https://ja.aliexpress.com/item/32855501809.html?spm=a2g0s.8937460.0.0.39be2e0ecoqFRv&gatewayAdapt=glo2jpn

実現したいこと

在庫の有無を正確に判別したいです。

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

エラーは特には出ていないです。

該当のソースコード

Sub test()

Dim driver As New Selenium.WebDriver
Dim i As Long

SafeOpen driver, Chrome

With ThisWorkbook.Worksheets("アリエク在庫管理")

For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row

    driver.Get .Range("A2").Offset(i - 1, 0)
    
    driver.FindElementByCss("#root > div > div.product-main > div > div.product-info > div.product-action > span.buy-now-wrap > button").Text
    
    On Error GoTo myError
    Worksheets("アリエク在庫管理").Cells(1 + i, 2) = "在庫あり"
    
Next

    Exit Sub
myError:
    Worksheets("アリエク在庫管理").Cells(1 + i, 2) = "在庫切れ"
Resume Next

End With
End Sub

試したこと

VBAでループ時のエラー処理について調べましたが、なかなか思ったような情報にたどり着けなかったので質問させて頂きました。

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

Windows10
chrome

Answer 1

On Error Resume Nextはエラーが発生した次の行に進みます。　だから毎回エラー処理は走っているけども直後に在庫有りで上書きされてしまっているようです。

対応策として、エラー処理後にループに復帰するラベルを追加してあげましょう。ただし、ラベルの乱立は可読性を著しく下げるため最小限、かつ用途が明確な名前にしましょう。

Sub test()

Dim driver As New Selenium.WebDriver
Dim i As Long

SafeOpen driver, Chrome

With ThisWorkbook.Worksheets("アリエク在庫管理")

For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row

    driver.Get .Range("A2").Offset(i - 1, 0)
    
    driver.FindElementByCss("#root > div > div.product-main > div > div.product-info > div.product-action > span.buy-now-wrap > button").Text
    
    On Error GoTo myError
    Worksheets("アリエク在庫管理").Cells(1 + i, 2) = "在庫あり"
Err_loop_Back:
Next

    Exit Sub
myError:
    Worksheets("アリエク在庫管理").Cells(1 + i, 2) = "在庫切れ"
Resume Err_Loop_Back

End With
End Sub

Comments

[ama178]

ありがとうございました。
まさに求めていた情報でした。

Answer 2

Office TANAKA - エラーに負けない
エラーへの対応と分岐ということで、こちらの中段あたりにある「エラーの意味を調べる」の項目がやりたいことに近いのではないでしょうか。

Comments

[ama178]

情報源を教えて頂きありがとうございます。

Answer 3

求められる方法とは違いますが「IsElementPresent」を使うと要素の有無を返してくれますのでこちらを使ってはどうでしょう。

Dim myBy As New By

if driver.IsElementPresent(myBy.Class("クラス")) then
    Worksheets("アリエク在庫管理").Cells(1 + i, 2) = "在庫あり"
else
    Worksheets("アリエク在庫管理").Cells(1 + i, 2) = "在庫切れ"
end if

Comments

[ama178]

こんなやり方もあるのですね。
勉強になりました。