Как выбрать файл и вставить путь к файлу в встроенном текстовом поле?

Question

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

Sub Select_File()

    Dim FilePath As FileDialog
    Set FilePath = Application.FileDialog(msoFileDialogFilePicker)

    FilePath.AllowMultiSelect = False

    With FilePath
       If .Show = -1 Then
        SMPS_Path.Text = .SelectedItems.Item(1)
       Else
         MsgBox "You have cancelled the action"
        [SMPS_Path] = ""
        End If
       End With
End Sub

Созданное мной встроенное текстовое поле называется SMPS_Path, и я пытаюсь получить путь к файлу для вставки сюда, но я продолжаю выдавать ошибку в SMPS_Path.Text = .SelectedItems.Item(1)

Что я могу сделатьчтобы путь к файлу, выбранный в диалоге File, был помещен в текстовое поле?

В конце концов, я воспользуюсь кнопкой «Импорт», чтобы открыть этот файл и импортировать нужные данные в эту электронную таблицу.

Answer 1

Должно быть

ThisWorkbook.Worksheets("Sheet1").TextBox1 = .SelectedItems(1)

a если ваше текстовое поле находится на листе 1