Question

我正在写作，我可以通过宏在网站上执行表单。我能够打开Internet Explorer并正确传递所有变量，但是当提交时，我有点迷失。

Sub ESTRAI()
    Dim objIE As Object
    Dim objElement As Object

    ' Create InternetExplorer Object
    Set objIE = CreateObject("InternetExplorer.Application")

    ' Make sure the Internet Explorer window is visible
    objIE.Visible = True

    ' Navigate to your URL
    objIE.Navigate "https://www.trainline.eu/search/milano/roma/2017-02-16-06:00"

    ' Wait while IE loading...
    Do While objIE.Busy
        Application.Wait DateAdd("s", 3, Now)
    Loop

    ' Get the button
    Set objElement = objIE.Document.getElementsByClassName("search__button ember-view progress-button")
    ' Click the button
    objElement.Click        

End Sub

Answer 1

在对象元素的末尾指定“0”。

Sub ESTRAI()
Dim objIE As Object
Dim objElement As Object

' Create InternetExplorer Object
Set objIE = CreateObject("InternetExplorer.Application")

' Make sure the Internet Explorer window is visible
objIE.Visible = True

' Navigate to your URL
objIE.Navigate "https://www.trainline.eu/search/milano/roma/2017-02-16-06:00"

' Wait while IE loading...
Do While objIE.Busy
    Application.Wait DateAdd("s", 3, Now)
Loop

While objIE.Busy
    DoEvents
Wend
Do Until objIE.readyState = 4
    DoEvents
Loop
stop
'Get button and search
objIE.Document.getElementsByClassName("button progress-button--button")(0).Click

End Sub

单击网站按钮并刮取结果

1 个答案: