使用VBA在默认浏览器中打开html页面？

如何使用 VBA 在默认浏览器中打开 HTML 页面？我知道它是这样的：

Shell "http://myHtmlPage.com"

但我想我必须引用将打开该页面的程序。

您可以使用Windows API函数ShellExecute这样做：

Option Explicit

Private Declare Function ShellExecute _
  Lib "shell32.dll" Alias "ShellExecuteA" ( _
  ByVal hWnd As Long, _
  ByVal Operation As String, _
  ByVal Filename As String, _
  Optional ByVal Parameters As String, _
  Optional ByVal Directory As String, _
  Optional ByVal WindowStyle As Long = vbMinimizedFocus _
  ) As Long

Public Sub OpenUrl()

    Dim lSuccess As Long
    lSuccess = ShellExecute(0, "Open", "www.google.com")

End Sub

正如评论中所给出的，使其在 64 位下运行，你需要添加PtrSafe在私有声明行中如下所示：

Private Declare PtrSafe Function ShellExecute _

关于安全性的简短说明：如果 URL 来自用户输入，请确保严格验证该输入ShellExecute会执行具有用户权限的任何命令，也是format c:如果用户是管理员，则会执行。