Создайте гиперссылку, используя текстовое поле в пользовательской форме и указан путь

Question

У меня есть таблица, в которую пользователи могут импортировать новую информацию / данные, используя пользовательскую форму.

Я бы хотел, чтобы пользователь набрал имя документа, поскольку файл помечен неправильно (чего я не делаюЯ очень хотел бы, чтобы текстовое поле было меткой для гиперссылки, а путь был выбран пользователем после того, как он переместил файл в соответствующую папку.

Private Sub cmd_ADD_Click()
    'Copy input values to table2.
Dim ws As Worksheet
Set ws = ActiveSheet
Dim tbl As ListObject
Set tbl = ws.ListObjects("Table2")
Dim newrow As ListRow
Set newrow = tbl.ListRows.Add
Dim Label17 As String
Dim txtDrawing As String

With newrow

эта строка работала изначально

    .Range(13) = txtDrawings.Value

, теперь мне нужно это значение, когда оно добавлено в качестве гиперссылки.Я пробовал это ...

    .Range(13).Hyperlinks.Add(Anchor:=.Range(13), _
      Address:=Label17, _
      ScreenTip:="DRAWING", _
      TextToDisplay:=txtDrawings.Value)

и это ...

    .Range(13) = .Hyperlinks.Add(Label17, Me.txtDrawings.Value)

End With

End Sub

Answer 1

Это сработало для меня

Dim ws As Worksheet
Set ws = ActiveSheet

Dim tbl As ListObject
Set tbl = ws.ListObjects("Table1")

Dim newrow As ListRow
Set newrow = tbl.ListRows.Add

With newrow
    .Range(13).Hyperlinks.Add Anchor:=.Range(13), _
                              Address:=Label17.Caption, _
                              ScreenTip:="DRAWING", _
                              TextToDisplay:=txtDrawings.Value
End With

1. Снимите скобки перед Anchor: в вашем коде.Также удалите все On Error Resume Next.Теперь попробуйте выше
2. Удалить строки Dim Label17 As String и Dim txtDrawing As String.Это элементы управления.