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

如果需要，您还可以使用 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

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

Excel VBA userform open hyperlink with a button

excel

vba

hyperlink

userform