VBAを使ってIEを開き情報を取得するプログラムを組んでいるのですが実行エラーコード70が出て困っております。

Question

前提・実現したいこと

Excel　VBA　初心者です。
IEで開いたサイトの情報を取得して、取得した情報をエクセルに書き移し、次のページに移り同じ事を繰り返すプログラムを作っております。
VBAで実行し2ページ目に移った時にに以下のエラーメッセージが発生しました。

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

実行エラーコード70　書き込みできません

###該当のソースコード
Sub MySub()

Dim keyword As String
keyword = InputBox("キーワードを入力してください")

Dim objIE As InternetExplorer
Set objIE = New InternetExplorer

objIE.Visible = True
objIE.navigate "https://auctions.yahoo.co.jp/search/advanced?auccat=0"
    

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

Dim htmlDoc As HTMLDocument
Set htmlDoc = objIE.document

With htmlDoc
    .getElementById("f0v0").Value = keyword
    .getElementById("f_0x4").Click
    .getElementById("other_cat6").Click
    .getElementById("abatch2").Click
    .getElementById("istatus1").Click
    .getElementById("btn").Click
 End With
 
Dim page As Long
For page = 1 To 2

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

Set htmlDoc = objIE.document

Dim div As HTMLDivElement
Dim div2 As HTMLDivElement
Dim div3 As HTMLDivElement
Dim div4 As HTMLDivElement
Dim i    As Long: i = 1

For Each div In htmlDoc.getElementsByClassName("Product1")

    
    Set div2 = div.getElementsByClassName("Product2")(0)
        Dim anchor As HTMLAnchorElement
        Set anchor = div2.getElementsByTagName("a")(0)
        Cells(5 + i, 3).Value = anchor.innerText
        Cells(5 + i, 4).Value = anchor.href
   
   Set div3 = div.getElementsByClassName("Product3")(0)
        Dim anchor2 As HTMLAnchorElement
        Set anchor2 = div3.getElementsByTagName("a")(0)
        Cells(5 + i, 5).Value = anchor2.innerText
        Cells(5 + i, 6).Value = anchor2.href
  
   Set div4 = div.getElementsByClassName("Product4")(0)
        Cells(5 + i, 7).Value = div4.innerText
        i = i + 1
    
Next div
    
    Dim A As HTMLAnchorElement
    For Each A In htmlDoc.getElementsByClassName("Page")
        A.Click
        
    Next A
Next page
    

End Sub

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

バージョンはWindows 10 、IE11となります。よろしくお願いします。

Comments

[otn]

どの行でエラーですか？

[taizuo]

回答ありがとうございます。

実行エラー70
書き込みできません

と表示されるだけでエラー箇所が表示されない状態です。申し訳ありません。

[taizuo]

参考になるかはわかりませんが、エラーコード70が出た際にヘルプというボタンを押すと

https://docs.microsoft.com/ja-jp/office/vba/language/reference/user-interface-help/permission-denied-error-70?redirectedfrom=MSDN

こちらに飛ばされます。

[otn]

> エラー箇所が表示されない
ステップ実行してみればどうでしょうか？

[taizuo]

ステップ実行してみたのですが、End Sub　の前の行まで実行するとエラーが出るようです。

Next pageまでは実行でき、次のページまでは行けるためそれ以降の処理でエラーが出ていると思われます。

素人意見で申し訳ありません。

[otn]

それ、VBAのエラーメッセージですか？

[taizuo]

VBAのエラーメッセージで間違いありません。

Answer 1

Dim page As Long
For page = 1 To 2

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

Set htmlDoc = objIE.document

ページが移り変わる際のスピードよりVBAの処理の方が早かったため、一番目のページを二度読み込んでいた事によるエラーでした。

Dim page As Long
For page = 1 To 2

Application.Wait Now() + TimeValue("00:00:03")を加えてページが表示されるのを待つことにより正常に動くようになりました。

この度はご迷惑をおかけしました。