Buton İle Web Sayfası Açmak

[Hsn55]

Merhabalar;
Aşağıdaki makro ile butona bastığımda açacağım adresi "İnternet Explorer" ile açıyor. Bun adresi devamlı olarak Google Chromeile açabilir miyiz ?

Private Sub CommandButton12_Click()
ActiveWorkbook.FollowHyperlink _
Address:="https://ebys.ogm.gov.tr/edys-web/sistemeGiris.xhtml"

End Sub

 

[Seyit Tiken]

Bu şekilde deneyiniz.

Dim internet As Object
Dim adres As String
adres = "https://ebys.ogm.gov.tr/edys-web/sistemeGiris.xhtml"
Set internet = CreateObject("WScript.Shell")
internet.Run "chrome.exe " & adres

 

[ormann]

Seyit bey çok teşekkür ederim

 

[rabidhare]

Merhaba teşekkürler aşağıdaki kod ile siteye yönlendirebiliyorum ama site url sinin sonuna sutündaki veriyi yazmak istiyorum örneğin;

"https://ebys.ogm.gov.tr/edys-web/E1 sütünundaki veri" urlnin sonuna veriyi yazıp öyle yönlendirmek istiyorum.

Nasıl yapabilirim?

Dim internet As Object Dim adres As String adres = "https://ebys.ogm.gov.tr/edys-web/sistemeGiris.xhtml" Set internet = CreateObject("WScript.Shell") internet.Run "chrome.exe " & adre

 

[Seyit Tiken]

E1'de ne vardır bir deniyelim.