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

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 假设您的文本框位于sheet1上