Как IE перемещаться через диапазон и заполнить диапазон в цикле? - PullRequest
Новая
       13

Как IE перемещаться через диапазон и заполнить диапазон в цикле?

1 голос
/ 01 октября 2019

Я пытаюсь очистить некоторые данные со страницы. Мне нужна конкретная информация, вы увидите это в моем, если. Теперь мне нужен макрос, чтобы перейти не только к URL-адресу в «A2», но и открыть все ссылки в столбце «A» в цикле и, если выполняются условия для заполнения соответствующего столбца «C».

Я пытался с настройкой i = 1 до 5 и перемещаться («A» и i), но я не работал.

Вот код: 

Sub Macro1()



Dim IE As New InternetExplorer
IE.navigate Range("A2").Value
IE.Visible = False
Do
DoEvents
Loop Until IE.readyState = READYSTATE_COMPLETE
Dim doc As Object
Set doc = IE.document
Dim kur As Variant
kur = doc.getElementsByClassName("properties")(0).firstElementChild.innerText

If InStr(kur, "GTIN") > 0 Or InStr(kur, "EAN") > 0 Or InStr(kur, "UPC") > 0 Or InStr(kur, "Gtin") > 0 Or InStr(kur, "Ean") > 0 Or InStr(kur, "Upc") > 0 Then

Range("C2").Select
ActiveCell.FormulaR1C1 = kur

Else

End If

IE.Quit
Set IE = Nothin

End Sub
...