从 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.whosebug.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.whosebug.com"
    
    Shell (EdgePath & sUrl)
End Sub

从 Chrome 切换到 Microsoft Edge 浏览器

Switching from Chrome to Microsoft Edge browser

powerpoint

vba