Raul__du_C

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 "