Как заменить или обновить значение атрибута «Стиль» с помощью VBA

Question

Я размещаю данные на сайте, используя VBA Я хочу изменить / заменить или обновить значение атрибута «Стиль» на этом веб-сайте. HTML

<div class="timeline-row-item style="left: 556px;"></div>

Я хочу изменить значение с style = "left: 556px;" to style = "left: 300px;"

Sub test1()

Dim IE As New SHDocVw.InternetExplorer

IE.document.querySelectorAll("div[class*= timeline-row-iteml]").setAttribute ("style", left: 300px;")

Как мне это сделать в Excel VBA.

Спасибо

Answer 1

querySelectorAll возвращает коллекцию.Вы не можете использовать setAttribute на этом.Вам нужен отдельный узел

IE.document.querySelector("div[class*= timeline-row-iteml]").setAttribute("style", "left: 300px;")

Не уверен, нужны ли скобки.

Вы также можете использовать javascript

IE.document.parentWindow.execScript "document.querySelector('div[class*= timeline-row-iteml]').setAttribute('style', 'left: 300px;');"

Если вы хотите сделать все совпадения, тогда вынужно будет зациклить возвращенный nodeList

Dim elems As Object, i As Long
Set elems = IE.document.querySelectorAll("div[class*= timeline-row-iteml]")

For i = 0 To elems.Length -1
    elem.item(i).setAttribute('style', 'left: 300px;');"
Next