Karamanli.70
Altın Üye
- Katılım
- 26 Mart 2019
- Mesajlar
- 48
- Excel Vers. ve Dili
- Microsoft Office Professional Plus 2016
- Altın Üyelik Bitiş Tarihi
- 19-12-2024
Üstatlar merhabalar. https://dys.saglik.gov.tr adresindeki açılır pop-up menüyü selenium basic ile kapatamadım. Yardımcı olabilirmisiniz?
Şimdiden teşekkür ederim.
Sub ozluk_aktarma()
Dim a, i, s2, sonsatir As Integer
Dim EBYS As New Selenium.WebDriver
Dim liste As WebElements
Application.ScreenUpdating = False
DoEvents
Set s2 = ThisWorkbook.Sheets("ÖZLÜK")
s2.Range("A5:G250008").ClearContents
EBYS.SetProfile Environ("LOCALAPPDATA") & "\Google\Chrome\User Data\System Profile\"
EBYS.Start "Chrome"
EBYS.Window.Maximize
EBYS.Get "https://dys.saglik.gov.tr"
EBYS.FindElementByXPath("//*[@id='eImza']/div/div/div[1]/button/span").Click
EBYS.Wait 300
Şimdiden teşekkür ederim.
Sub ozluk_aktarma()
Dim a, i, s2, sonsatir As Integer
Dim EBYS As New Selenium.WebDriver
Dim liste As WebElements
Application.ScreenUpdating = False
DoEvents
Set s2 = ThisWorkbook.Sheets("ÖZLÜK")
s2.Range("A5:G250008").ClearContents
EBYS.SetProfile Environ("LOCALAPPDATA") & "\Google\Chrome\User Data\System Profile\"
EBYS.Start "Chrome"
EBYS.Window.Maximize
EBYS.Get "https://dys.saglik.gov.tr"
EBYS.FindElementByXPath("//*[@id='eImza']/div/div/div[1]/button/span").Click
EBYS.Wait 300
