Question

我需要帮助，我正在尝试使用 VBA 选择以下网站中的第二个复选框（单选按钮），但是我无法完成此操作。你能帮我吗？

1 - URL = https://ptax.bcb.gov.br/ptax_internet/consultaBoletim.do?method=gerarCSVTodasAsMoedas&id ||| 2 - 按钮是：所有货币在一天内的收盘价。 ||| 3 - 点击“搜索”按钮 ||| 4 - 下载 CSV（以下图像）以打开这些链接。 ||| 4.1 如果我们可以自动化此“单击”，则不需要查看日期，该网站已经执行此操作 ||| 5 - 也可以在 VBA 中创建循环来始终更改此 URL 的最后数字，我们还可以下载所需的工作簿吗？ ||| 6 - 需要将此文档保存到此路径：C:\Temp\BASES\TBEX-OB08\todasasmoedas.csv

LINKS WE CAN AUTOMATE THE LAS NUMBER: Because this link changes all day to a +1 number check below: 11/08/2021 https://ptax.bcb.gov.br/ptax_internet/consultaBoletim.do?method=gerarCSVTodasAsMoedas&id=61795 10/08/2021 https://ptax.bcb.gov.br/ptax_internet/consultaBoletim.do?method=gerarCSVTodasAsMoedas&id=61794

    Sub Web_Taxes()

Dim IE As Object
Dim URL As String

Set IE = CreateObject("InternetExplorer.Application")
URL = "https://www.bcb.gov.br/estabilidadefinanceira/historicocotacoes"

IE.Navigate URL

'Do While IE.busy Or IE.ReadyState <> 4
'Loop

'需要在网站中选择以下按钮，它是第二个“单选”按钮。
'<input name="RadOpcao" id="RadOpcao" onclick="Opcao2()" type="radio" value="2">

IE.document.All.Item("RadOpcao").Item(2).Checked = True

End Sub

这是我需要搜索的方式（已选择第二个按钮）

如果您知道其他通过此网站 web 爬取所有货币信息的方法，请告诉我。

谢谢""

VBA 网页单击

0 个答案: