Koda bağlı sayfanın chrome ile açılması

[Platonica]

Arkadaşlar merhaba, 10 gündür buradayım ve inanılmaz katkılarınız oldu. Şimdiden bunun için çok teşekkür ederim. Makroda çok yeniyim en fazla 10 gün oldu. Bu yüzden sorularım saçma veya basit gelebilir. Bunun için de affınıza sığınıyorum. Gelelim sorularıma;

1- Aşağıdaki kod benim command buttonlarımdan birisi. Ve ben bu butona bastığımda chrome ile açsın istiyorum. Sorum aşağıdaki butonun chromda açması için değişmiş hali nasıl olmalı?

Private Sub CommandButton1_Click()
Dim URL As String
Dim HTML_Body As Object
Dim IE As Object
URL = "https://ebildirge.sgk.gov.tr/WPEB/amp/loginldap"
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")
End With
Set IE = Nothing
Set HTML_Body = Nothing
End Sub

2- Yukarıdaki buton chrome ile ya da explorer ile (chrome tercihim) açtıktan sonra o sayfadaki doğrulama kodunu ben manuel girdikten sonra tekrar bir makro ile o sayfanın alt sayfalarından birinden veri çektirmek istiyorum. Bu mümkün mü?

Şimdiden teşekkür ederim.

 

[Sinan2618]

Merhaba,

Aşağıdaki konu işinize yarar gibi geldi.

http://www.excel.web.tr/f48/google-chrome-ile-internete-girme-t135102.html

 

[Sinan2618]

32 Bit için

Sub Google_Chrome()
    Dim Yol As String
    Yol = "C:\Program Files\Google\Chrome\Application\chrome.exe"
    Shell (Yol & " -url https://ebildirge.sgk.gov.tr/WPEB/amp/loginldap/"), vbMaximizedFocus
        Application.Wait Now + TimeValue("00:00:03")
        guvenlik$ = InputBox("Güvenlik kodunu giriniz")
        Application.WindowState = xlMinimized
        SendKeys güvenlik$
        SendKeys "{Tab}"
        SendKeys "Kullanıcı_Adı"
        SendKeys "{Tab}"
        SendKeys "Sifre"
        SendKeys "{Tab}"
        SendKeys "{ENTER}"
    Yol = vbNullString
End Sub

64 Bit için

Sub Google_Chrome()
    Dim Yol As String
    Yol = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"
    Shell (Yol & " -url https://ebildirge.sgk.gov.tr/WPEB/amp/loginldap/"), vbMaximizedFocus
        Application.Wait Now + TimeValue("00:00:03")
        guvenlik$ = InputBox("Güvenlik kodunu giriniz")
        Application.WindowState = xlMinimized
        SendKeys güvenlik$
        SendKeys "{Tab}"
        SendKeys "Kullanıcı_Adı"
        SendKeys "{Tab}"
        SendKeys "Sifre"
        SendKeys "{Tab}"
        SendKeys "{ENTER}"
    Yol = vbNullString
End Sub

 

[Platonica]

Sinan bey cevabınız için teşekkürler ancak SendKeys işimi çözmeyecek gibi. Zaten tab kısmına benim Explorer versiyonu kodlamamdaki gibi, örneğin A2 hücresindeki veriyi kullancı adına, B2 hücresindeki veriyi şifreye girdirme mantığını kuramadım. Ben bu işi profesyonel amaçla yapmadığımdan ihtiyacım olan tek şey ilk mesajımdaki kodumu chrome ile açılıp çalışacak şekilde revize etmek. Mevcut kod kusursuz şekilde çalışıyor Explorer'da ancak benim chrome ile girmem gerekiyor. Başkaca yardımcı olacak herkese de şimdiden çok teşekkür ederim.

 

[Platonica]

Yardımcı olabilecek kimse yok mudur acaba?