顯示InternetExplorer保存提示時出現錯誤91

我的目標是打開一個站點，輸入表單，通過按鈕保存報告，然后回圈并繼續下一個條目。我正在使用 Microsoft WinHTTP、HTML 物件庫和 Internet 控制元件。

只要我在 Internet Explorer 中沒有“打開/另存為”提示，這就會起作用。它成功地遍歷結果并單擊報告按鈕，然后重新啟動。但是，一旦出現提示，就會導致“ svalue1.Value = ws.Cells(Lastrow, 1).Value ”行中斷，報告錯誤 91，找不到物件，我一生都無法理解。為什么保存提示會破壞 VBA 腳本？

注釋掉的是我嘗試過的一些修復程式，但似乎沒有任何解決方案可以解決此問題。我錯過了一些明顯的東西嗎？

感謝您花時間幫助新手解決這個問題！:)

Enum READYSTATE
    READYSTATE_UNINITIALIZED = 0
    READYSTATE_LOADING = 1
    READYSTATE_LOADED = 2
    READYSTATE_INTERACTIVE = 3
    READYSTATE_COMPLETE = 4
End Enum
Sub Test()
Dim ws As Worksheet: Set ws = Sheets("Sheet1") 'set the Sheet you are using here
Dim ie As New InternetExplorerMedium
'Set ie = New InternetExplorerMedium
Dim HTML As HTMLDocument
Dim i As Long
Lastrow = ws.Range("A1").End(xlDown).Row
'get the last row with a value in column A
strURL = "www.coollinkExample.com" 'set your initial URL here
ie.Visible = True
ie.navigate strURL
Do While (ie.Busy Or ie.READYSTATE <> READYSTATE.READYSTATE_COMPLETE)
  DoEvents
Loop
Set HTML = ie.document
'-----------------INIT-----------------
'For i = 1 To Lastrow Step 1 'loop from row 1 to Last
Do While i < Lastrow 'loop from row 1 to Last
    'Do While (ie.Busy Or ie.READYSTATE <> READYSTATE.READYSTATE_COMPLETE)
    'DoEvents
    'Loop BUGS WHEN SAVE PROMPT IS UP?
'-----------------BODY-----------------
            'Do your data scraping here, then below go back to your initial URL to repeat the process
            delay 5
            Set svalue1 = HTML.getElementById("userNameText")
            ie.document.getElementById("userNameText").Focus
            svalue1.Value = ws.Cells(Lastrow, 1).Value 'enter the value from current cell
            delay 2
            ie.document.getElementById("btnSearchUser").Focus
            HTML.getElementsByName("btnSearchUser").Item.Click
            delay 3
            ie.document.getElementById("rptUsers_ctl00_ddlUserOptions").Focus
            HTML.getElementsByName("rptUsers_ctl00_ddlUserOptions").Item.Click
            delay 3
            ie.document.getElementById("rptUsers_ctl00_ddlUserOptions_lnkTranscript").Focus
            HTML.getElementsByName("rptUsers_ctl00_ddlUserOptions_lnkTranscript").Item.Click
            delay 3
            ie.document.getElementById("__ta").Focus
            HTML.getElementsByName("__ta").Item.Click
            delay 2
            ie.document.getElementById("__tj").Focus
            HTML.getElementsByName("__tj").Item.Click
            delay 4
            With ie.document.getElementById("ctl00_ContentPlaceHolder1_btnExport")
            .Focus
            .Click
            End With
            delay 5
              Application.SendKeys "%{S}"
              delay 3
'-----------------END-----------------
ie.navigate strURL
delay 5
'Exit For
'Next i
i = i   1
Loop
End Sub

'// This function below works fine.

   Private Sub delay(seconds As Long)
    Dim endTime As Date
    endTime = DateAdd("s", seconds, Now())
    Do While Now() < endTime
        DoEvents
    Loop
End Sub

uj5u.com熱心網友回復：

您ie.navigate strURL在回圈結束時，但沒有等待頁面完全加載。

Option Explicit

Sub Test()

    Dim ws As Worksheet
    Dim ie As InternetExplorerMedium
    Dim doc As HTMLDocument, strURL As String
    Dim i As Long, lastrow As Long
    
    strURL = "www.coollinkExample.com" 'set your initial URL here

    Set ie = New InternetExplorerMedium
    ie.Visible = True
    
    Set ws = Sheets("Sheet1")
    With ws
        lastrow = .Cells(.Rows.Count, "A").End(xlUp).Row
        For i = 1 To lastrow
            
            ' navigate to site
            ie.navigate strURL
            Do While ie.Busy Or ie.READYSTATE <> 4 'READYSTATE.READYSTATE_COMPLETE)
                DoEvents
            Loop
            Set doc = ie.document
            delay 5
            doc.getElementById("userNameText").innerText = Trim(.Cells(i, "A"))
            delay 3
            doc.getElementById("btnSearchUser").Click
            delay 3
            doc.getElementById("rptUsers_ctl00_ddlUserOptions").Click
            delay 3
            doc.getElementById("rptUsers_ctl00_ddlUserOptions_lnkTranscript").Click
            delay 3
            doc.getElementById("__ta").Click
            delay 3
            doc.getElementById("__tj").Click
            delay 3
            doc.getElementById("ctl00_ContentPlaceHolder1_btnExport").Click
            delay 5
            Application.SendKeys "%(S)"
            delay 3
    
        Next i
    End With
    ie.Quit
    MsgBox "Done", vbInformation
    
End Sub

標籤：擅长 vba 循环

上一篇：如果變數型別錯誤，則VBA跳過

下一篇：使用word中的VBA宏洗掉后面沒有表的字串