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

Question

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

Shell "http://myHtmlPage.com"

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

Answer 1

您可以使用 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 Line 中，如下所示:

Private Declare PtrSafe Function ShellExecute _

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