Google Chrome ile nasıl açarım?

[mozdem]

Set uygulama = CreateObject("internetexplorer.application")
With uygulama
.Visible = True
.navigate "http://www.excel.web.tr/"
Do While .ReadyState <> 4: Loop
End With

Yukarıdaki kod ile yazılan bir vbs dosyası, internet sayfasını açarken Google Chrome kullansın istiyorum. Nsaıl Yaparım.
Teşeerkkürl

 

[mozdem]

konu güncel

 

[Korhan Ayhan]

Netten arama yaparak aşağıdaki koda ulaştım. Denermisiniz.

Sub Google_Chrome()
  Dim Yol As String
  Yol = """C:\Program Files\Google\Chrome\Application\chrome.exe"""
  Shell (Yol & " -url http:www.excel.web.tr")
End Sub

 

[gokhanbek]

Set ie = CreateObject("internetexplorer.application")
With ie
.Visible = False
.Navigate "http://192.168.8.2/sms.aspx"
Application.Wait (Now + TimeValue("0:00:02"))
Do While Not .ReadyState = 4: DoEvents: Loop
.Document.getElementsByName("textbox1")(0).Value = Sheets("Sayfa1").Range("B" & i)
.Document.getElementsByName("textbox2")(0).Value = Sheets("Sayfa3").Range("B1")
.Document.getElementsByName("Button1")(0).Click
.Document.All.Item(Button1).Click

End With
Set ie = Nothing

google chrome nasıl uygularız.
ie cok takılıyor. chrome daha hızlı ?