alessandro marcelo

criei um código para extrair informações de um site, acessa, faz login e senha e chega na página correta, ao extrair os dados percorre por todas as páginas mas não extrai os dados da última, total 5 páginas extrai dados as 4 primeiras corretamente. se alguém puder me ajudar, agradeço segue código: Sub ImportarDadosParaPlanilha() Dim urlLogin As String urlLogin = "https://yyyy.com.br/auth/login" Dim usuario As String Dim senha As String usuario = "XXXX" senha = "XXXX2023" Dim urlDados As String urlDados = "https://yyyy.com.br/pedidos-vendas" Dim IE As Object Set IE = CreateObject("InternetExplorer.Application") IE.Visible = True IE.navigate urlLogin Do While IE.Busy Or IE.readyState <> 4 Application.Wait Now + TimeValue("0:00:01") Loop IE.document.getElementById("loginform-username").Value = usuario IE.document.getElementById("loginform-password").Value = senha IE.document.forms(0).submit Do While IE.Busy Or IE.readyState <> 4 Application.Wait Now + TimeValue("0:00:01") Loop Dim botao As Object Set botao = IE.document.getElementsByClassName("icon-call-end")(0) If Not botao Is Nothing Then botao.Click Else MsgBox "Botão não encontrado!" IE.Quit Exit Sub End If Do While IE.Busy Or IE.readyState <> 4 Application.Wait Now + TimeValue("0:00:01") Loop Dim numeroDePaginas As Integer numeroDePaginas = 5 For pagina = 1 To numeroDePaginas For Each coluna In Array(1, 3, 4, 5, 😎 Dim seletor As String seletor = "td.w1[data-col-seq='" & coluna & "']" Dim elementos As Object Set elementos = IE.document.querySelectorAll(seletor) If elementos.Length > 0 Then For i = 0 To elementos.Length - 1 Sheets("Import").Cells((pagina - 1) * elementos.Length + i + 1, coluna).Value = elementos.Item(i).innerText Next i End If Next coluna Dim urlProximaPagina As String urlProximaPagina = "https://yyyy.com.br/pedidos-vendas/index?page=" & pagina + 1 IE.navigate urlProximaPagina Do While IE.Busy Or IE.readyState <> 4 Application.Wait Now + TimeValue("0:00:01") Loop Next pagina IE.Quit End Sub