Internet explorer yerine Chrome

[muratgunay48]

Arkadaşlar, sayın hocalarım, bu kodda explorer yerine chrome açmasını nasıl sağlarım.
Şimdiden teşekkür ederim.
Saygılarımla.

Private Sub CommandButton1_Click()

For i = 2 To 3

Dim ie As InternetExplorer
Set ie = New InternetExplorer

ActiveSheet.Shapes("interpress").Copy

ie.Navigate "http://web.whatsapp.com/send?phone=" & Cells(i, 1) & "&text=" & Cells(i, 2)
Aplication.Wait Now + TimeValue("00:00:05")

Call SendKeys("^v")
Aplication.Wait Now + TimeValue("00:00:05")

Call SendKeys("{ENTER}", True)

Next i


End Sub

 

[Mdemir63]

Selamlar

Eğer sadece Google Crome açmak istiyorsanız aşağıdaki gibi deneyin. Benim PC de Google Chrome nin yolu burada yazdığım gibi
siz o kısmı kendinize göre düzenlemeniz gerekir

Private Sub CommandButton1_Click()
    Shell ("C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"), vbMaximizedFocus
End Sub

 

[muratgunay48]

Selamlar

Eğer sadece Google Crome açmak istiyorsanız aşağıdaki gibi deneyin. Benim PC de Google Chrome nin yolu burada yazdığım gibi
siz o kısmı kendinize göre düzenlemeniz gerekir

Private Sub CommandButton1_Click()
    Shell ("C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"), vbMaximizedFocus
End Sub

Hocam benim o kodda açılması lazım. Yani direk Internet Explorer yerine yazmak için.

 

[muratgunay48]

Selamlar

Eğer sadece Google Crome açmak istiyorsanız aşağıdaki gibi deneyin. Benim PC de Google Chrome nin yolu burada yazdığım gibi
siz o kısmı kendinize göre düzenlemeniz gerekir

Private Sub CommandButton1_Click()
    Shell ("C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"), vbMaximizedFocus
End Sub

Hocam kodu revize ettim. Çalışıyor. Teşekkür ederim.
(işe geldim o yüzden geç yazdım özür dilerim) WhatsApp sayfasını açıyor, mesajı yapıştırıyor. Ama ENTER'a basmıyor. Sizce neden olabilir.

 

[bolatcanli]

Hocam kodu revize ettim. Çalışıyor. Teşekkür ederim.
(işe geldim o yüzden geç yazdım özür dilerim) WhatsApp sayfasını açıyor, mesajı yapıştırıyor. Ama ENTER'a basmıyor. Sizce neden olabilir.

Hocam bu kodu nasıl revize ettiğinizi anlatabilir misiniz

 

[muratgunay48]

Hocam bu kodu nasıl revize ettiğinizi anlatabilir misiniz

Private Sub CommandButton1_Click()
Shell ("C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"), vbMaximizedFocus
End Sub
C:\ den sonra kendi bilgisayarınızdaki yolu yazacaksınız.