Selenium.WebDriver ile seçim yapabilme

Haluk

Özel Üye
Katılım
7 Temmuz 2004
Mesajlar
7,203
Beğeniler
571
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,044
Beğeniler
68
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.
 

Haluk

Özel Üye
Katılım
7 Temmuz 2004
Mesajlar
7,203
Beğeniler
571
Excel Vers. ve Dili
32 Bit 2010 - İngilizce
#4
Anlıyorum .... Selenium konusunda sanırım @veyselemre arkadaşımızın çalışmaları var. Size yardımcı olabilir....

.
 
Katılım
31 Aralık 2005
Mesajlar
3,738
Beğeniler
126
Excel Vers. ve Dili
Office 2019 (64 bit) - Türkçe
#5
Selenium konusu benim de hoşuma gitmişti ama çalışmadı. Her sistem için stabil bir uygulama değil galiba.🤔
 

Erdem_34

Destek Ekibi
Destek Ekibi
Katılım
4 Mayıs 2007
Mesajlar
3,044
Beğeniler
68
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,555
Beğeniler
130
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:

Erdem_34

Destek Ekibi
Destek Ekibi
Katılım
4 Mayıs 2007
Mesajlar
3,044
Beğeniler
68
Excel Vers. ve Dili
OFİS 2013 TÜRKÇE-İNG. 64 BİT
#8
Veysel bey elinize sağlık.
 
Üst