Selenyum ile Chrome Açma Makro Hatası

[akmlyx]

Değerli Üstatlar Merhaba,

Selenyum ile chrome’u açma makrosu:

Sub deneme()

Dim x As New Selenium.WebDriver

x.Start "Chrome"

x.Get " https://mys.hmb.gov.tr/raporlar/odenek "

End Sub

Çok güzel çalışıyor ama açıldıktan birkaç saniye sonra kendiliğinden kapanıyor.

İnternette bu kodun alttan ikinci satırına Application.Wait (Now + TimeValue("07:00:00")) kodunun ilave edildiğini buldum, ben de aynen ilave ettim fakat bu sefer de Chrome açılınca birkaç saniyede kapanmıyor iyi güzel ama kendim chrome’u kapatınca bu sefer excel üzerinde maus sürekli dönüyor işlemini bitiremiyor. Çözümü var mıdır?

Sub deneme()

Dim x As New Selenium.WebDriver

x.Start "Chrome"

x.Get "https://mys.hmb.gov.tr/raporlar/odenek"

Application.Wait (Now + TimeValue("07:00:00"))

End Sub



İkinci husus ise Chrome’da açılmasını istediğim site T.C. Kimlik Numarası ve şifre ile giriş yapılması gereken bir site olduğu için excel’in B5 hücresindeki T.C. Kimlik Numarası ile C5 hücresindeki şifreyi mys sayfasındaki ilgili yerlerine otomatik yazdırması mümkün müdür? İlgilenen üstada çok teşekkür ederim.

 

[AtaAri]

Günaydın

Alttaki kod ile chrome dan istediğiniz siteyi açabilirsiniz.

Sub OpenChromeWithURL()
    Dim objShell As Object
    Dim strURL As String
    strURL = "https://www.excel.web.tr/threads/selenyum-ile-chrome-acma-makro-hatasi.206720/"
    Set objShell = CreateObject("Shell.Application")
    objShell.ShellExecute strURL, "", "", "open", 1
    Set objShell = Nothing
End Sub

Günaydın

 

[akmlyx]

AtaAri hocam ilginiz için teşekkür ederim fakat bu kod ile Chrome açılmıyor, internet eksplorer açılıyor. Bu da benim işime yaramadı.

 

[akmlyx]

Soruya bir ekleme yapmam gerekti. İnternet adresini Excel D5 hücresinden alması gerekiyor.

 

[muratboz06]

Aşağıdaki kodda TCNO ve ŞİFRE yazan yerlere tc numarınızı ve şifrenizi yazınız.

Dim x As New Selenium.WebDriver

Sub deneme()

x.Start "Chrome"

x.Get ActiveSheet.Range("D5")
x.Wait (2000)
Application.SendKeys ("TCNO")
 Application.SendKeys ("{TAB}")
Application.SendKeys ("ŞİFRE")
Application.SendKeys ("~")

End Sub

 

[akmlyx]

Muratboz06 hocam harikasınız. Elinize sağlık, çok Teşekkür Ederim. Gayet güzel çalışıyor fakat TC Kimlik Numarasını B5 hücresi ile Şifreyi C5 hücresinden alması mümkün değil midir.

 

[akmlyx]

TC'yi B5 ve Şifreyi C5 hücresinden alma olayını hallettim ancak bu makro klavyedeki "Num Lock" tuşunu otomatik olarak devre dışı bırakıyor(kapatıyor) bu sorunu nasıl çözebiliriz Muratboz06 hocam?

Makronun son hali:

Dim x As New Selenium.WebDriver

Sub DenemeAsıl1()

x.Start "Chrome"

x.Get ActiveSheet.Range("D5")
x.Wait (2000)
Application.SendKeys ActiveSheet.Range("B5")
Application.SendKeys ("{TAB}")
Application.SendKeys ActiveSheet.Range("C5")
Application.SendKeys ("~")

End Sub

 

[muratboz06]

Deneyiniz.

Dim x As New Selenium.WebDriver

Sub DenemeAsıl1()

x.Start "Chrome"

x.Get ActiveSheet.Range("D5")
x.Wait (2000)
Application.SendKeys ActiveSheet.Range("B5").Value
Application.SendKeys ("{TAB}")
Application.SendKeys ActiveSheet.Range("C5").Value
Application.SendKeys ("~")

End Sub

 

[akmlyx]

Muratboz06 hocam, elinize emeğinize sağlık çok güzel teşekkür ediyorum.
İki sorun var
1- Makro klavyedeki "Num Lock" tuşunu otomatik olarak devre dışı bırakıyor(kapatıyor) bu sorunu nasıl çözebiliriz?
2- Sayfayı küçük ekranda açıyor tam ekran açması mümkün müdür?
Teşekkür ederim.

 

[muratboz06]

Deneyiniz.

Dim x As New Selenium.WebDriver

Sub DenemeAsıl1()

x.Start "Chrome"
x.Window.Maximize
x.Get ActiveSheet.Range("D5")
x.Wait (2000)
Application.SendKeys ActiveSheet.Range("B5").Value
Application.SendKeys ("{TAB}")
Application.SendKeys ActiveSheet.Range("C5").Value
Application.SendKeys ("~")
Application.SendKeys ("{NUMLOCK}")


End Sub

 

[akmlyx]

Muratboz06 hocam, şuanda harika çalışıyor, bir sıkıntı yok. Çok çok TEŞEKKÜR EDİYORUM. Allah razı olsun.

 

[akmlyx]

Muratboz06 hocam, B2, C2, D2 hücreleri boş kaldığı zaman hata verdi. Ekrana B2, C2, D2 hücreleri boş olamaz diye uyarısı verebilir mi?

 

[muratboz06]

B2, C2,D2 mi yoksa B5,C5, D5 mi?

Dim x As New Selenium.WebDriver

Sub DenemeAsıl1()
If IsEmpty(ActiveSheet.Range("B5")) = True Or IsEmpty(ActiveSheet.Range("C5")) = True Or IsEmpty(ActiveSheet.Range("D5")) = True Then
MsgBox "B5, C5, D5 hücrelerinden biri boş olamaz."
Exit Sub
End If
x.Start "Chrome"
x.Window.Maximize
x.Get ActiveSheet.Range("D5")

x.Wait (2000)
Application.SendKeys ActiveSheet.Range("B5").Value
Application.SendKeys ("{TAB}")
Application.SendKeys ActiveSheet.Range("C5").Value
Application.SendKeys ("~")
Application.SendKeys ("{NUMLOCK}")


End Sub

 

[akmlyx]

Muratboz06 hocam, B2, C2, D2 hücreleri ihtiyaca göre değiştiriyorum onda sıkıntı yok. Yazdığınız makrodaki 5. satırı 2. satıra çevirerek denemeye çalıştım ancak, ben B2, C2, D2 hücrelerine formül ile veri aldığım için bu hücrelerde formül oluyor haliyle bundan dolayı uymadı ama sorun değil. Yukarıdaki makro işimi görüyor. Emeğiniz için tekrar TEŞEKKÜR EDERİM.

 

[diji67]

Değerli Üstatlar Merhaba,

Selenyum ile chrome’u açma makrosu:

Sub deneme()

Dim x As New Selenium.WebDriver

x.Start "Chrome"

x.Get " https://mys.hmb.gov.tr/raporlar/odenek "

End Sub

Çok güzel çalışıyor ama açıldıktan birkaç saniye sonra kendiliğinden kapanıyor.

İnternette bu kodun alttan ikinci satırına Application.Wait (Now + TimeValue("07:00:00")) kodunun ilave edildiğini buldum, ben de aynen ilave ettim fakat bu sefer de Chrome açılınca birkaç saniyede kapanmıyor iyi güzel ama kendim chrome’u kapatınca bu sefer excel üzerinde maus sürekli dönüyor işlemini bitiremiyor. Çözümü var mıdır?

Sub deneme()

Dim x As New Selenium.WebDriver

x.Start "Chrome"

x.Get "https://mys.hmb.gov.tr/raporlar/odenek"

Application.Wait (Now + TimeValue("07:00:00"))

End Sub



İkinci husus ise Chrome’da açılmasını istediğim site T.C. Kimlik Numarası ve şifre ile giriş yapılması gereken bir site olduğu için excel’in B5 hücresindeki T.C. Kimlik Numarası ile C5 hücresindeki şifreyi mys sayfasındaki ilgili yerlerine otomatik yazdırması mümkün müdür? İlgilenen üstada çok teşekkür ederim.

merhaba şu mys için yazdığınız kodlarda sadece hak sahibine ödenecek net tutar kısmanı nasıl doldurttunuz yardımcı olurmusunuz