VBAによるスクレイピングでのオブジェクトエラー４２４について

Question

実現したいこと

　　配送会社（ヤマト運輸）のWEBサイト（荷物お問合せシステム）から、大量の商品の配送状況について、VBAでスクレイピングにより確認（追跡）したい

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

　’配達状況（日付）を取得、Excelに転記
Set data.Offset(0, 1) = objIE.document.getElementsByClassName("hiduke")(0).innerText
上記箇所で『オブジェクトエラー424　オブジェクトが必要です』とエラーになりますが、ステップインで実行したときにはそういったエラーは発生せず、IEではWEBサイトの配達状況が確認できたうえに、エクセルに転記も出来ています。

該当のソースコード

Sub ヤマト配達追跡()

    Dim objIE As InternetExplorer  
    Dim data
    Set data = ActiveSheet.Range("A1")
'チェック対象をA2セルから下降して入力
   
    Do Until data = ""　'チェック対象がなくなるまでループ
	'　IEオブジェクト作成、ヤマト荷物お問い合わせシステムに個別番号で直接アクセス
　　　　Set objIE = CreateObject("InternetExplorer.application")
　　　　objIE.Navigate "https://jizen.kuronekoyamato.co.jp/jizen/servlet/crjz.b.NQ0010?id=" & data.Offset(0, 0).Value
  	 ' ページ取得待ち
        	Do While objIE.Busy = True Or objIE.ReadyState <> 4
       	 DoEvents
       	 Loop
        	' 配達状況（日付）を取得、Excelに転記
        	Set data.Offset(0, 1) = objIE.document.getElementsByClassName("hiduke")(0).innerText
       	' 配達状況を取得、Excelに転記
	　　　　Set data.Offset(0, 2) = objIE.document.getElementsByClassName("ct")(2).innerText
	　　　' いったんIEを解除
       	 objIE.Quit
       	 Set objIE = Nothing
	　　　' 次のチェック対象へ
       	 Set data = data.Offset(1, 0)
     Loop
     MsgBox ("終了")
 
End Sub

試したこと

ステップインでは実行できても実行エラーが生じることや424エラーは『VBAではよくある』ことのようですが、自分なりに調べましたがお手上げです。

補足情報

WEBサイトを検索して、多くの方が配送追跡のコードを掲載されていましたので、参考にさせていただきました。

Answer 1

Set句はオブジェクトに対して使うものなのでエラーメッセージが出ています。
下記の場所

' 配達状況（日付）を取得、Excelに転記
data.Offset(0, 1) = objIE.document.getElementsByClassName("hiduke")(0).innerText
' 配達状況を取得、Excelに転記
data.Offset(0, 2) = objIE.document.getElementsByClassName("ct")(2).innerText

Comments

[tokkurikujira]

回答ありがとうございます。webサイトから取得したデータ obj IEオブジェクトに対しSet句を使用したのですが、使用方法が適切ではなかったのでしょうか？

[nonoshu]

`objIE`はObjectだと思いますが
エラーが出ている箇所の`data.Offset(0, 1)`はObjectではない、ということですね。
「下記の場所」と回答したところのSet句を外してもまだ同じエラーが発生してますでしょうか？