如何选择文件并将文件路径粘贴到嵌入的文本框中？

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对话框中选择的文件路径放入文本框中？

最后，我将使用Import按钮打开该文件，并将所需的数据导入到此电子表格中。

​

​

Answer 1

应该是

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

假设你的文本框在sheet1上