Soru Explorer Microsoft Edge

[bulentkars]

Arkadaşlar Merhaba,

Aşağıdaki makro ile web adresini açıyorum, anacak ben Microsoft Edge tarayıcısında açmak istiyorum. yardımcı olabilirseniz sevinirim. Şİmdiden Teşekkürler


Sub WEB_Sayfasına_Git()

Dim internet As Object
Dim adres As String
adres = "https://www.excel.web.tr/"
Set internet = CreateObject("WScript.Shell")
internet.Run "IExplore.exe " & adres

End Sub

 

[Haluk]

IExplore.exe yerine msedge.exe kullanın...

.

 

[bulentkars]

Teşekkürler Haluk Bey.

 

[Musabilennn]

"Option Explicit

Public Sub TurkishSelenium()

RunEdgeBrowser "https://efinansportal.efinans.com.tr/yonetim/", _
Format(ActiveCell.Offset(0, -1).Value2, "dd/mm/yyyy"), _
Format(ActiveCell.Offset(0, -1).Value2, "dd/mm/yyyy"), _
ActiveCell.Offset(0, 12).Value2

End Sub
Public Sub RunEdgeBrowser(ByVal URL As String, _
ByVal tarih1 As Variant, _
ByVal tarih2 As Variant, _
ByVal faturano As Variant)
Dim i As Long
Dim objBrowser As clsEdge
Set objBrowser = New clsEdge"
böyle bir çalışmam var devamını yazmadım fazlalık olmasın diye, sorum şu kod çalışıyor başarılı olduktan sonra yeniden çalıştırılacağı zaman açık olan edge sayfalarını kapatıp yeniden açıyor bunun yerine açık olan edge sayfasından devam etmesi için ne yapabilirim ?