Este fórum está sendo desativado

[mmo515]

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?

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

'Range("C" & inicio).Value = Navegador.FindElementByClass("dados esquerda").FindElementByClass("Data e Hora")(-1).Attribute("innerText")

Quero obter o ultimo dado das Colunas Data e Hora e Ocorrencia

[mmo515]

Obg pela atenção descobri como fazer
Range("C" & inicio).Value = Navegador.FindElementByCss(".esquerda > tbody:nth-child(2) > tr:last-child > td:nth-child(1)").Attribute("innerText")

tr:last-child -> ESSA COISINHA AQUI É QUE MUDA TUDO