无法让VBA点击IE上的链接

Question

我已经尝试过我在这里和其他网站上找到的数百个选项，而且我是不成功的。希望你们能帮助我。

我试图通过VBA点击IE中的链接，但由于某种原因它无法正常工作。我的完整代码在这里

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

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

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

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

经过测试和工作。