• DİKKAT

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

Selenium ile 2 farklı siteden aynı anda veri çekmek

  • Konbuyu başlatan Konbuyu başlatan wawa
  • Başlangıç tarihi Başlangıç tarihi
Katılım
6 Ekim 2020
Mesajlar
16
Excel Vers. ve Dili
Microsoft Office Professionel Plus 2013
Türkçe
Merhabalar, 2 farklı sitenin verilerini karşılaştırmak istiyorum.
Web'den veri al çalışmıyor çünkü IE tarayıcısı siteleri okumuyor, ben de Selenium ile 2 farklı siteden istediğim verileri çekiyorum her şey güzel ve stabil ama tek sıkıntı bu verilerin aynı anda değil de sırayla gelmesi,
bir siteden veriyi çekiyorum, mesela 0.5 olsun, selenium ile diğer pencereyi açıp bu siteden veriyi çekene kadar ilk sitedeki 0.5 çoktan değişmiş oluyor, burada takıldım aynı anda 2 farklı siteden verileri nasıl çekebilirim?
 
yok mu bir çözümü?
2 farklı excel dosyası oluşturup tek tek çekmeye çalıştım ama butona atadığım ilk sitenin makro kodları bitmeden diğer butona basılmıyor hatta excel'de hiç bir yere basılmıyor, aciliyeti var destek lazım.
 
Firefox Webbrowser deneyebilirsiniz. Dün eklemiştim.



.
 
Firefox Webbrowser deneyebilirsiniz. Dün eklemiştim.



.
destek için teşekkürler, konuyu inceleyeceğim yalnız pek kodlama bilgim yok o yüzden pek kullanamayacağım gibi ama aklıma şöyle bir fikir geldi, eğer iki tuşa basma kodunu kullanabilirsem bir pencere açıp CTRL+T ile yeni sekme açıp ctrl +1 ctrl+2 ile sürekli olarak aralarında geçiş yapabilirim, şuan bana lazım olan kod iki tuşa aynı anda basma kodu google chrome için.
 
Kod:
'Ensure latest applicable driver e.g. ChromeDriver.exe in Selenium folder
'VBE > Tools > References > Add reference to selenium type library
Public Sub DownloadFile()
    Dim d As WebDriver
    Set d = New ChromeDriver
    Const URL = "https://stackoverflow.com/"

    With d
        .Start "Chrome"
        .get URL
        .ExecuteScript "window.open('https://www.google.com/','_blank');"
        .SwitchToNextWindow
        'do something with new window
        Debug.Print .Window.Title
        .ExecuteScript "window.close();"
        .SwitchToPreviousWindow
        Debug.Print .Window.Title
        Stop
        .Quit
    End With
End Sub
 
Geri
Üst