Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/excel/27.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Excel VBA用户窗体使用按钮打开超链接_Excel_Vba_Hyperlink_Userform - Fatal编程技术网

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

Excel VBA用户窗体使用按钮打开超链接,excel,vba,hyperlink,userform,Excel,Vba,Hyperlink,Userform,我有一个输入信息的用户表单,其中一个输入称为webpage,当我单击命令按钮时,我想打开输入到用户表单中的每个项目的网页 Sheets("Data").Range("DataStart").Offset(TargetRow, 10).Value = Webpage MyForm.Webpage = Sheets("Data").Range("DataStart").Offset(TargetRow, 10).Value 我正在尝试使用follow.hyperlink Private Sub

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

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
这不管用

 ActiveWorkbook.FollowHyperlink Address:=webpage

无引号

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