Question

我尝试执行点击事件，但它不起作用。有人可以帮忙吗？

这是我的代码：

Sub resetValue()

Set Browser = CreateObject("InternetExplorer.Application")

'Navigate to website address

If Browser.Visible = True Then 
    Browser.Visible = False
    Browser.navigate "http://stockprice.vn/a/statistics.html"

'Loop until browser in already state

While Browser.readyState <> READYSTATE_COMPLETE
    DoEvents
Wend

'Reset the calculation info of page * 1000 by click Setting

Browser.document.getElementById("button-1024-btnInnerEl").Click

...

谢谢。

Answer 1

您的代码看起来不太好。 browser未被宣布; if没有end if，READYSTATE_COMPLETE未知，sub没有end sub。

我假设您从VBA环境中收到错误。

作为第一种方法，试试这个：

Sub resetValue()

    Dim browser

    Set browser = CreateObject("InternetExplorer.Application")

    'Navigate to website address

    If browser.Visible = True Then
        browser.Visible = False
    End If


    browser.navigate "http://stockprice.vn/a/statistics.html"

    'Loop until browser in ready state

    While browser.readyState <> 4
        DoEvents
    Wend

    'Reset the calculation info of page * 1000 by click Setting

    browser.document.getElementById("button-1024-btnInnerEl").Click


End Sub

无法点击ajax链接VBA

1 个答案: