Excel VBA用户窗体用按钮打开超链接答案

【问题标题】：Excel VBA userform open hyperlink with a buttonExcel VBA用户窗体用按钮打开超链接
【发布时间】：2019-01-11 18:31:20
【问题描述】：

我有一个输入信息的用户表单，其中一个输入称为网页，当我单击命令按钮时，我想为我输入到用户表单的每个项目打开网页。

Sheets("Data").Range("DataStart").Offset(TargetRow, 10).Value = Webpage

MyForm.Webpage = Sheets("Data").Range("DataStart").Offset(TargetRow, 10).Value

我正在尝试使用 follow.hyperlink

Private Sub Webpage_Click()

Dim webpage As String
Set webpage = MyForm.Webpage = Sheets("Data").Range("DataStart").Offset(TargetRow, 10).Value

ActiveWorkbook.FollowHyperlink Address:="webpage"

End Sub

这不起作用。

【问题讨论】：

标签： excel vba hyperlink userform

【解决方案1】：

 ActiveWorkbook.FollowHyperlink Address:=webpage

没有引号

【讨论】：

【解决方案2】：

如果需要，您还可以使用 Shell 打开特定浏览器：

Sub Open_HyperLinks()
Dim browserPath As String
Dim linkURL As String

browserPath = Environ("PROGRAMFILES(X86)") & "\Mozilla Firefox\firefox.exe"
linkURL = Cells(1, 1).Value

Shell browserPath & " -url " & linkURL
End Sub

【讨论】：