Question

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

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

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

希望有人可以提供帮助。

Answer 1

我想对蒂姆·威廉姆斯发表评论，但其格式太难了。

感谢你提出录制宏的建议，它给了我一些关于做什么的线索。我现在有一个有效的解决方案，但它非常难看。

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

用户表单命令用于将超链接嵌入电子表格数据库的按钮

2 个答案: