Macro selenium basic duvida de como obter o ultimo dado(dado mais recente) de uma tabela da web
Enviado: 09 Mai 2022 às 12:24
Boa tarde!
Preciso de ajuda estou desenvolvmento um script VBA que o inyuiyo é colher informações de um determinado site da web, porém me deparei com um problema eu preciso pegar o ultimo dado de uma tabela que contém informações importantes porém não estou conseguindo, alguém pode me ajudar?
I minha duvida está na linha:
Preciso de ajuda estou desenvolvmento um script VBA que o inyuiyo é colher informações de um determinado site da web, porém me deparei com um problema eu preciso pegar o ultimo dado de uma tabela que contém informações importantes porém não estou conseguindo, alguém pode me ajudar?
Código: Selecionar todos
ul = Range("A1000000").End(xlUp).Row
For inicio = 2 To ul
Navegador.FindElementById("ordemServico").SendKeys Range("A" & inicio).Value
Application.Wait (Now + TimeValue("00:00:01"))
Navegador.FindElementByXPath("/html/body/div/div[3]/div/form/table/tbody/tr[2]/td/input").Click
Application.Wait (Now + TimeValue("00:00:01"))
Range("B" & inicio).Value = Navegador.FindElementByXPath("/html/body/div/div[3]/div/form/table[2]/tbody/tr[2]/td[5]").Attribute("innerText")
Application.Wait (Now + TimeValue("00:00:03"))
Navegador.FindElementByCss(".branco > td:nth-child(6) > a:nth-child(1)").Click
Navegador.FindElementByCss("#formConsultarOrdemServico > div:nth-child(5) > table:nth-child(1) > tbody:nth-child(2) > tr:nth-child(1) > td:nth-child(2) > a:nth-child(2)").Click
'Range("C" & inicio).Value = Navegador.FindElementByClass("dados esquerda").FindElementByClass("Data e Hora")(-1).Attribute("innerText")
'Set tb = Navegador.FindElementByXPath("/html/body/div/div[3]/div/form/div[4]/table/tbody/tr[13]/td[1]")
Navegador.FindElementByXPath("/html/body/div/div[3]/div/form/div[1]/table/tbody/tr/td[1]/a").Click
Navegador.FindElementById("ordemServico").Clear
Next inicio
MsgBox ("Verificação concluída!")
I minha duvida está na linha:
Código: Selecionar todos
Quero obter o ultimo dado das Colunas Data e Hora e Ocorrencia'Range("C" & inicio).Value = Navegador.FindElementByClass("dados esquerda").FindElementByClass("Data e Hora")(-1).Attribute("innerText")