Selenium.WebDriver ile seçim yapabilme

Katılım
7 Temmuz 2004
Mesajlar
7,092
Beğeniler
494
Excel Vers. ve Dili
32 Bit 2010 - İngilizce
#2
Selenium kullanmak şart değilse, XMLHTTP ile E-Devlet sitesinden verileri almak üzere hazırlanmış bir dosyam var ...

.
 

Erdem_34

Destek Ekibi
Destek Ekibi
Katılım
4 Mayıs 2007
Mesajlar
3,042
Beğeniler
65
Excel Vers. ve Dili
OFİS 2013 TÜRKÇE-İNG. 64 BİT
#3
Haluk bey teşekkür ederim.Ögrenme amaçlı sordum,sizin çalışmanız bende mevcut.

Selenium ile kodlamak çok rahat ama burda tıkandım maalesef.
 

Erdem_34

Destek Ekibi
Destek Ekibi
Katılım
4 Mayıs 2007
Mesajlar
3,042
Beğeniler
65
Excel Vers. ve Dili
OFİS 2013 TÜRKÇE-İNG. 64 BİT
#6
Zeki bey merhaba,

Standartta olmaması ve kurulum gerektiriyor olması dezavantaj.
Kodlanmasının basitliği ve öğrenimin kolaylığı avantajı.
 
Katılım
9 Mart 2005
Mesajlar
2,524
Beğeniler
114
Excel Vers. ve Dili
Excel 2003-tr
#7
Bende hakim değilim ama acemice makro kaydet gibi adım adım ikinci kodumu yazmış oldum. Çok kolay yöntemi vardır, ama pek kaynak yok, ayrıca her sitenin bin bir türlü huyu var, deneme yanılma yaparak yazdım. Belki bir sene sonra bu koda çok güleriz.
Kod:
Dim driver As ChromeDriver
Dim keys As Selenium.keys
Sub test2()
    If driver Is Nothing Then
        Set driver = New ChromeDriver
        Set keys = New Selenium.keys
        driver.Get "https://www.istanbuleczaciodasi.org.tr/nobetci-eczane"
        driver.Wait 1000
    End If
    Call ilceTikla("Ataşehir")
End Sub
Sub ilceTikla(ilce)
    Set ara = driver.FindElementByXPath("//*[@id=""filter_form""]/span/input")
    driver.Window.Maximize
    driver.Mouse.MoveTo ara
    driver.Mouse.Click
    driver.SendKeys keys.Delete
    driver.Wait 1000
    For i = 1 To Len(ilce) - 1
        driver.SendKeys Mid(ilce, i, 1)
    Next i
    driver.SendKeys keys.ArrowDown
    driver.SendKeys keys.Enter
    driver.Wait 1000
    driver.TakeScreenshot.Copy
    [a1].Select
    ActiveSheet.Paste
End Sub
 
Son düzenleme:
Üst