• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Selenium basic

yardımcı olacak varsa çok yardımcı olur musunuz
 
Merhaba,

Tam profesyonelce olduğunu sanmıyorum ama aşağıdaki kodları dener misiniz?

Kod: 
Sub WebSorgula()

    'Referanslardan Selenium Type Library Yüklü Olmalı
    Dim driver As New WebDriver
  
    Set driver = New ChromeDriver
    Dim i As Long
    Dim adr As String
    
    With Application
        .ScreenUpdating = False
        .EnableEvents = False
    End With
    
    driver.AddArgument ("headless")
    driver.Start "chrome"
    
    Application.Wait Now + TimeValue("00:00:02")
    adr = " https://www.aydemperakende.com.tr/sozlesme-hesap-no-sorgula"
    driver.Get adr
    Application.Wait Now + TimeValue("00:00:02")

    For i = 2 To Cells(Rows.Count, "B").End(3).Row
    
        On Error Resume Next
    
        driver.FindElementByXPath("//*[@id='home']/form/div/input").Clear
        driver.FindElementByXPath("//*[@id='home']/form/div/input").SendKeys Cells(i, "B")

        driver.FindElementByXPath("//*[@id='button1']").Click
        Application.Wait Now + TimeValue("00:00:03")
        Cells(i, "C") = driver.FindElementByXPath("/html/body/main/div[2]/div/div[2]/b").Text
        
    Next i
        
    With Application
        .CutCopyMode = False
        .ScreenUpdating = True
        .EnableEvents = True
    End With

    driver.Close

End Sub
 

Ekli dosyalar

  • 1.xlsm
    1.xlsm
    20.6 KB · Görüntüleme: 9
Necdet' Alıntı:
Merhaba,

Tam profesyonelce olduğunu sanmıyorum ama aşağıdaki kodları dener misiniz?

Kod: 
Sub WebSorgula()

    'Referanslardan Selenium Type Library Yüklü Olmalı
    Dim driver As New WebDriver
 
    Set driver = New ChromeDriver
    Dim i As Long
    Dim adr As String
   
    With Application
        .ScreenUpdating = False
        .EnableEvents = False
    End With
   
    driver.AddArgument ("headless")
    driver.Start "chrome"
   
    Application.Wait Now + TimeValue("00:00:02")
    adr = " https://www.aydemperakende.com.tr/sozlesme-hesap-no-sorgula"
    driver.Get adr
    Application.Wait Now + TimeValue("00:00:02")

    For i = 2 To Cells(Rows.Count, "B").End(3).Row
   
        On Error Resume Next
   
        driver.FindElementByXPath("//*[@id='home']/form/div/input").Clear
        driver.FindElementByXPath("//*[@id='home']/form/div/input").SendKeys Cells(i, "B")

        driver.FindElementByXPath("//*[@id='button1']").Click
        Application.Wait Now + TimeValue("00:00:03")
        Cells(i, "C") = driver.FindElementByXPath("/html/body/main/div[2]/div/div[2]/b").Text
       
    Next i
       
    With Application
        .CutCopyMode = False
        .ScreenUpdating = True
        .EnableEvents = True
    End With

    driver.Close

End Sub
Genişletmek için tıkla ...

Ellerinize sağlık hocam sizinki çalışıyor ama hepsini sorgulayıp yazıyor o da bir sorun teşkil etmiyor gibi gözüküyor şu anlık
 
Merhaba,

Soruda belirtmediğiniz için mantığı hepsini sorgulayacak şekilde kurdum.
Eğer istediğiniz sorgulamayı yapmak isterseniz koddaki döngüyü seçili değerler üzerinden yapılabilinir.
Yapamazsanız kodlarda revize yapabilirim.
 
onder_09' Alıntı:
Merhaba program böyle bir hata veriyor "driver.FindElementByXPath("/html/body/main/div[2]/div/div[1]/div/form/div/button").Click" zamanında Haluk hocam ekteki gibi bir program yapmıştı bunu uyarlamamız mümkün mü acaba ?
Genişletmek için tıkla ...
driver.FindElementByXPath("/html/body/main/div[2]/div/div[1]/div/form/div/button").Click yerine sabit driver.FindElementById("button1").Click kodu da kullanılabilir. Butona tıklarken elinizi fareden klavyeden çekiniz. İşlemlerin tamamlamasını bekleyiniz. Eliniz fare ya da klavye üzerindeyken ekranda bir hareketlilik oynama meydana geldiğinde elementlerin konumları değişebiliyor. Elementler sağa sola aşağa yukarı kayıp kaybolabiliyor. Tıklanacak elementi bulamayınca hata veriyor.
 
ismailem' Alıntı:
...Butona tıklarken elinizi fareden klavyeden çekiniz. İşlemlerin tamamlamasını bekleyiniz. Eliniz fare ya da klavye üzerindeyken ekranda bir hareketlilik oynama meydana geldiğinde elementlerin konumları değişebiliyor. Elementler sağa sola aşağa yukarı kayıp kaybolabiliyor. Tıklanacak elementi bulamayınca hata veriyor.
Genişletmek için tıkla ...

Bu yöntemi benimsemeyenler için Visual Studio ortamında Firefox WebBrowser VBA Type Library yazmıştım. İlginizi çekerse imzamdaki blog sayfamda bulabilirsiniz.

.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst