CommandButton ile Chrome'da sayfa açmak.

[Platonica]

Arkadaşlar daha önce de konuyu açtım ancak sonuca ulaşamadım bir türlü. Sorum çok net. Aşağıdaki kod sorunsuz çalışıyor. Ben bu kodun explorer yerine Chrome ile sayfaları açacak şekilde çalışmasını istiyorum. Bu konuda yardımlarınızı bekliyorum. Durum biraz acil şimdiden teşekkürler.

Sorunsuz çalışan ve chrome ile açılacak şekilde düzeltmek istediğim kodu bu:

Private Sub CommandButton2_Click()
Dim URL As String
Dim HTML_Body As Object
Dim IE As Object
URL = "https://uyg.sgk.gov.tr/Sigortali_Tesvik_4447_15/login.jsp"
Set IE = CreateObject("InternetExplorer.Application")
With IE
.Navigate URL
.Visible = True
Do Until IE.readyState = 4: DoEvents: Loop
Do While IE.Busy: DoEvents: Loop
IE.document.all("j_username").Value = Cells(1, "a")
IE.document.all("isyeri_kod").Value = Cells(2, "a")
IE.document.all("j_password").Value = Cells(2, "b")
IE.document.all("isyeri_sifre").Value = Cells(2, "c")
IE.document.all("Submit").Click
End With
Set IE = Nothing
Set HTML_Body = Nothing
End Sub

 

[Zeki Gürsoy]

Chrome' un COM otomasyonu yoktur. Bu nedenle IE daki gibi kullanımı mümkün değildir.

Bununla ilgili şimdilik open-source form kontrolu yalnız Visual Studio için mevcut. Bir babayiğit çıkıp bu projeyi VBA için Wrapper yazarsa kullanmak mümkün olur.

Kolay gelsin.

.

 

[Platonica]

Hocam aşağıdaki gibi bir kod saçmaladım aslında ancak bu kod sadece sayfayı açıyor verileri otomatik olarak açılan sayfaya doldurmuyor. Bu kod üzerinden bir düzenleme mümkün mü?

Private Sub CommandButton9_Click()
Dim Yol As String
Yol = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"
Shell (Yol & " -url https://uyg.sgk.gov.tr/Sigortali_Tesvik_4447_15/login.jsp"), vbMaximizedFocus
HTMLDoc.all("j_username").Value = Cells(1, "a")
HTMLDoc.all("isyeri_kod").Value = Cells(2, "a")
HTMLDoc.all("j_password").Value = Cells(2, "b")
HTMLDoc.all("isyeri_sifre").Value = Cells(2, "c")
HTMLDoc.all("Submit").Click
End Sub

 

[Zeki Gürsoy]

Chrome' un COM otomasyonu yoktur. Bu nedenle IE daki gibi kullanımı mümkün değildir.
.
.
.

Yazdıklarımı ya okumadınız, ya da anlamamışsınız.

.