Вы имеете в виду что-то вроде:
.FindElementByCss("._32uRw span").Attribute("data-icon")
Я не знаю, сколько имен классов у вас есть до этого. Вышеприведенное совпадение будет соответствовать первому имени этого класса со следующим интервалом.
Вы можете сделать FindElementsByCSS
и индексировать в возвращенную коллекцию webElements
, например. .FindElementsByCss("._32uRw span")(1).Attribute("data-icon")
С учетом вышесказанного вам не нужно .Text
на конце. Это вернуло бы msg-dblcheck
.
Для последнего элемента с этим атрибутом:
Dim numElements As Long, lastElement As WebElement
numElements = bot.FindElementsByCss("[data-icon='msg-dblcheck']").Count
Set lastElement = bot.FindElementsByCss("[data-icon='msg-dblcheck']")(numElements-1)
Чтобы включить имя класса элемента перед изменением текста [data-icon='msg-dblcheck']
на ._32uRw [data-icon='msg-dblcheck']
.