Fatal编程技术网
  • loops/
  • Loops 如何在循环中导航槽范围和填充范围？

Loops 如何在循环中导航槽范围和填充范围？

loops select

Loops 如何在循环中导航槽范围和填充范围？,loops,select,range,explorer,Loops,Select,Range,Explorer,我正试图从一页上刮下一些数据。我需要具体的信息，你可以在我的if中看到。现在，我需要宏不仅转到“A2”处的url，还打开循环中“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.re

我正试图从一页上刮下一些数据。我需要具体的信息，你可以在我的if中看到。现在，我需要宏不仅转到“A2”处的url，还打开循环中“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