用户窗体命令按钮，用于将超链接嵌入到电子表格数据库

Question

我有一个简单的电子表格数据库，其中每行的第二列都包含一个指向pdf的超链接。每个超链接对于每一行都是唯一的。

我想在用户表单中添加一个命令按钮，单击该按钮后，用户可以浏览到正确的pdf，并将其作为超链接嵌入到正确单元格中的电子表格数据库中。（在我的情况下，单元格2或每行）

我知道如何创建一个标签，一旦超链接在单元格中，它就会跟随超链接，但我完全被如何嵌入超链接所困扰！

希望有人能帮忙。

Answer 1

我想对Tim Williams发表评论，但格式太难了。

谢谢你建议录制一个宏，它给了我一些关于该怎么做的线索。我现在有了一个可行的解决方案，但它很难看。

Private Sub AddHyper_button_Click()
    Dim URL As String
    URL = Application.GetOpenFilename
    Hyperlink_textbox = URL
End Sub
Private Sub Hyperlink_Label_Click()
    Dim URL As String
    Dim cellvalue As Variant
    cellvalue = Hyperlink_textbox.Value
    URL = cellvalue
    On Error GoTo urlnotopen
    ActiveWorkbook.FollowHyperlink Address:=URL, NewWindow:=True
    Exit Sub
urlnotopen:
    MsgBox "Cannot open " & URL
End Sub

这会在单击按钮时找到文件地址，并将其发布到表单上的一个文本框中（该文本框是隐藏的），然后可以将其写入正确的单元格。表单上还有一个标签，它将跟随指向正确文件的超链接。

Answer 2

除非你真的想，否则你不需要把选择放在文本框中。

Private Sub CommandButton1_Click()
    Dim x As String
    x = Application.GetOpenFilename
    Label1 = x
End Sub
Private Sub Label1_Click()
    ActiveWorkbook.FollowHyperlink Address:=Me.Label1, NewWindow:=True
    Unload Me
End Sub
Private Sub UserForm_Initialize()
    With Label1
        .ForeColor = vbBlue
    End With
End Sub

这是一个短片。UserForm HyperLink