Sub Busca_PIB_PerCapita()
'Declaração das variáveis
Dim x As String
'Programa principal
Set ie = CreateObject("internetexplorer.application")
For i = 2 To 646
x = Replace(Cells(i, 2), " ", "-")
ie.navigate "https://cidades.ibge.gov.br/brasil/sp/" & x & "/panorama"
ie.Visible = False
Do While ie.busy
Application.Wait (DateAdd("s", 5, Now))
Loop
'PEGA A POPULAÇÃO ESTIMADA
ie.document.getElementByXpath("//*[@id=""dados""]/panorama-resumo/div/table/tr[1]/th[2]").Click
ie.document.getElementByXpath("//*[@id=""dados""]/panorama-resumo/div/table/tr[2]/td[3]/valor-indicador/div").Value = Cells(i, 3).Value
'PEGA O SALÁRIO MÉDIO MENSAL
ie.document.getElementByXpath("//*[@id=""dados""]/panorama-resumo/div/table/tr[8]/th[2]").Click
ie.document.getElementByXpath("//*[@id=""dados""]/panorama-resumo/div/table/tr[9]/td[3]/valor-indicador/div").Value = Cells(i, 4).Value
'PEGA OS DADOS DA EDUCAÇÃO ( Nº DE ESTABELECIMENTOS DE ENSINO FUNDAMENTAL E MÉDIO )
ie.document.getElementByXpath("//*[@id=""dados""]/panorama-resumo/div/table/tr[17]/th[2]").Click
ie.document.getElementByXpath("//*[@id=""dados""]/panorama-resumo/div/table/tr[32]/td[3]/valor-indicador/div").Value = Cells(i, 5).Value
ie.document.getElementByXpath("//*[@id=""dados""]/panorama-resumo/div/table/tr[34]/td[3]/valor-indicador/div").Value = Cells(i, 6).Value
'PEGA OS DADOS DA ECONOMIA ( PIB PER CAPITA E IDH )
ie.document.getElementByXpath("//*[@id=""dados""]/panorama-resumo/div/table/tr[36]/th[2]").Click
ie.document.getElementByXpath("//*[@id=""dados""]/panorama-resumo/div/table/tr[37]/td[3]/valor-indicador/div").Value = Cells(i, 7).Value
ie.document.getElementByXpath("//*[@id=""dados""]/panorama-resumo/div/table/tr[41]/td[3]/valor-indicador/div").Value = Cells(i, 8).Value
'PEGA O NÚMERO DE ESTABELECIMENTOS DE SAÚDE SUS
ie.document.getElementByXpath("//*[@id=""dados""]/panorama-resumo/div/table/tr[47]/th[2]").Click
ie.document.getElementByXpath("//*[@id=""dados""]/panorama-resumo/div/table/tr[52]/td[3]/valor-indicador/div").Value = Cells(i, 9).Value
ie.Quit
Cells(i, "3:9").WrapText = False
Next i
End Sub
Bom dia, como vão?
Não possuo nenhuma experiência em programação VBA, estou indo na raça para conseguir fazer um código que entre no site do IBGE , busque informações para mim e preencha a planilhaa excel automaticamente. Porém está apresentando o erro " o objeto não aceita esta propriedade ou método " . Alguém poderia me ajudar?
OBS: o erro ocorre na linha " ie.document.getElementByXpath("//*[@id=""dados""]/panorama-resumo/div/table/tr[1]/th[2]").Click "