Question

我想要一个vba代码转到此网址＆＃34; http://www.anbima.com.br/ima/ima.asp＆＃34;，然后点击＆＃34; IRF-M＆＃34;按钮，然后点击＆＃34; Consultar＆＃34;按钮。

我已经尝试了这一点，但悲惨地失败了：

'inserir website com os valores a serem buscados
sitedv01 = "http://www.anbima.com.br/ima/ima.asp"

'busca no site
Set IE = CreateObject("InternetExplorer.Application")

IE.Visible = True

IE.navigate sitedv01

'espera o carregamento
Do While IE.Busy
    Application.Wait DateAdd("s", 1, Now)
Loop

Set tags = IE.document.getElementsByValue("irf-m")
For Each tagx In tags
    If tagx.src = "http://www.bmf.com.br/bmfbovespa/images/comum/mais.gif" Then
        tagx.Click
    End If
Next

Answer 1

尝试以下方法。该脚本将首先点击IRF-M，然后点击Consultar。但是，当成功启动两次单击时，您将看到一个新窗口，其中包含您所需的数据。

Sub Get_Data()

    With CreateObject("InternetExplorer.Application")
        .Visible = True
        .navigate "http://www.anbima.com.br/ima/ima.asp"
        While .Busy = True Or .readyState < 4: DoEvents: Wend

        .document.querySelector("input[value='irf-m']").Click
        .document.querySelector("img[name='Consultar']").Click
    End With

End Sub

VBA单击HTML输入单选按钮

1 个答案: