Question

我似乎陷入了一个奇怪的问题。我有下面的Excel VBA代码访问网站并输入用户ID（来自表1中的userID列A）并检索用户的名称，该用户名在按下提交按钮后显示，然后继续使用其余的用户ID。 / p>

Public Sub TEST()
TestPage = "http://test.com/"

Dim IE As New InternetExplorer
Dim Doc As HTMLDocument
Dim GetElem As Object
Dim GetElem2 As Object

IE.Visible = True
IE.navigate TestPage
Do
    DoEvents
Loop Until IE.readyState = READYSTATE_COMPLETE
Application.Wait (Now + TimeValue("0:00:04"))

Set Doc = IE.document
CurRow = Sheet1.UsedRange.Rows.Count

Do While CurRow > 0
    Application.Wait (Now + TimeValue("0:00:4"))

    'Find/Get the userID textbox and enter the current userID
    For Each GetElem In Doc.getElementsByTagName("input")
        If GetElem.ID = "query" Then 'I could just do getElementByID later
            GetElem.Value = Sheet1.Range("A" & CurRow).Value
        End If
    Next

    'Find and click the submit button        
    For Each GetElem2 In Doc.getElementsByTagName("button")
        If GetElem2.Type = "submit" Then
            GetElem2.Click
            Application.Wait (Now + TimeValue("0:00:03"))
        End If
    Next
    CurRow = CurRow - 1
Loop
End Sub

问题是代码只能运行一次。它将第一个userID输入文本框并点击Submit。当它循环并尝试输入下一个userID时，代码会陷入循环。

如果我删除了整个第二个For-Next循环，它可以正常工作（虽然它没有提交，但它会在文本框中输入每个用户ID）。

最重要的是，如果我一步一步地使用F8调试代码，一切正常。只有在完全运行代码时才会遇到问题。:(

Answer 1

Public Sub TEST()
TestPage = "http://test.com/"

Dim IE As New InternetExplorer
Dim Doc As HTMLDocument
Dim GetElem As Object
Dim GetElem2 As Object

IE.Visible = True
IE.navigate TestPage
Do
    DoEvents
Loop Until IE.readyState = READYSTATE_COMPLETE
Application.Wait (Now + TimeValue("0:00:04"))

Set Doc = IE.document
CurRow = Sheet1.UsedRange.Rows.Count

    For Each GetElem In Doc.getElementsByTagName("input")
        If GetElem.ID = "query" Then 'I could just do getElementByID later
            GetElem.Value = Sheet1.Range("A" & CurRow).Value
            For Each GetElem2 In Doc.getElementsByTagName("button")
                If GetElem2.Type = "submit" Then
                    GetElem2.Click
                    Application.Wait (Now + TimeValue("0:00:03"))
                End If
            Next GetElem2
        End If
        CurRow = CurRow + 1
    Next GetElem

End Sub

Excel VBA多个For循环不起作用

1 个答案: