从Chrome切换到Microsoft Edge浏览器

Question

因为下面给出的脚本是在chrome中打开的，所以我需要在Microsoft Edge中打开它，通过谷歌来试试我的运气，但没有得到任何成功

Sub CoverPageDatabase()

  Dim chromePath As String

  chromePath = """C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"""

  Shell (chromePath & " -url http://www.stackoverflow.com/")

End Sub

请帮我找出解决方案

Answer 1

这就是你正在尝试的吗？

Option Explicit

Sub CoverPageDatabase()
    Dim EdgePath As String
    Dim sUrl As String
    
    EdgePath = "C:\Windows\explorer.exe ""microsoft-edge:"""
    sUrl = "http://www.stackoverflow.com"
    
    Shell (EdgePath & sUrl)
End Sub