Excel VBA用户窗体通过按钮打开超链接

Question

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

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

这不起作用。

Answer 1

 ActiveWorkbook.FollowHyperlink Address:=webpage

没有引号

Answer 2

如果需要，还可以使用命令行管理程序打开特定的浏览器：

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