Selenium döngü

[airborne]

s.a.

Aşağıdaki kodlar ile web sayfasındaki xpath lerde bulunan textleri alıp, F2 hücresine tek tek yazdırabiliyorum.

For i = 1 To 100
Dim a as Selenium.Webelements
Set a = X.FindElementsByXPath("/html/body/div[1]/div/div/div[2]/main/div/div/div/div[1]/div/div[5]/div/section/div/div/div[*]/div/div/div/article/div/div/div/div[2]/div[2]/div[1]/div/div/div[1]/div/div/div[1]/div/a/div/div[1]/span/span")
Range("F2") = a(1).Text
twit.Wait 3000
Next

Problemim ise Range("F2") = a(1).Text satırında , her döngüde bir sonraki xpath a geçiş yapmam gerekiyor ama sadece her döngüde 1. xpath teki isim F2 hücresine geliyor. a değişkenini yalnız kullanırsam hata veriyor.

a(1) i her döngüde nasıl +1 (yani sonraki xpath a) yönlendirebilirim.

Selametle...............................................

 

[ismailem]

Dim a as Selenium.Webelements
Set a = X.FindElementsByXPath("/html/body/div[1]/div/div/div[2]/main/div/div/div/div[1]/div/div[5]/div/section/div/div/div[*]/div/div/div/article/div/div/div/div[2]/div[2]/div[1]/div/div/div[1]/div/div/div[1]/div/a/div/div[1]/span/span")
dim say as integer
say=a.count
For i = 1 To say
Range("F2") = a(i).Text
twit.Wait 3000
Next

' Bu şekilde deneyiniz