无法在 IE 上 VBA 单击 link

Question

我已经尝试了在这里和其他网站上找到的数百种选择，但都没有成功。希望大家能帮帮我。

虽然 VBA，但我正在尝试在 IE 中点击 link，但由于某种原因它无法正常工作。我的完整代码在这里

Sub ExtrairPIB()

Dim IE As InternetExplorer
Dim html As HTMLDocument

Set IE = New InternetExplorer
IE.Visible = True
IE.navigate "http://www.cidades.ibge.gov.br/xtras/uf.php?lang=&coduf=12&search=acre"
Do While IE.ReadyState <> 4
DoEvents
Loop

Set html = IE.document

html.getElementById("m1200013").Click


End Sub

我没有这方面的经验，不知道这样说对不对。这是控制台上显示的内容

<div id="filtro_mun_letra" style="height: 23px; margin-top: -23px;">
<ul id="lista_municipios">
<li id="m1200013">
<a href="perfil.php?lang=&codmun=120001&search=acre|acrelandia">Acrelândia</a>
</li>

当代码通过点击运行命令行时，它什么也没有发生。

请大家帮帮我

提前致谢

Answer 1

您实际上并没有点击 link，只是点击了包含 link 的列表项。

将最后几行更改为以下内容：

Set m = html.getElementById("m1200013")
Set a = m.getElementsByTagName("a")(0)
a.Click

在我这边进行了测试和工作。

无法在 IE 上 VBA 单击 link

Can't make VBA click a link on IE

excel

vba