文件夹选择器Excel VBA&；粘贴到单元格的路径

我很难弄清楚如何将文件夹路径放在单元格C49中。我希望有一个路径，让用户了解他们在哪里搜索，如果他们必须改变说的路径

我从，

我试着重新安排

ThisWorkbook.Sheets("Home").Range("C49") = .SelectedItems.Item(1)

并试图改变

.SelectedItems.Item(1)

对,， [文件夹路径] 没有胜利

我错过了什么？ 我所需要的只是在txtbox上方显示的路径，如果需要更改，则用户使用按钮重定向搜索。（此按钮不会启动搜索宏）

---

@Marcucciboy2感谢您的回复，但我不确定从您评论的链接中应该使用什么。我想我必须把选定的文件夹变成一个字符串Dim'd对象，然后link.range（“C49”）=选定的文件夹是的，我的建议更多的是替换上面的代码，而不是修复[folderpath]@Marcucciboy2感谢您的响应，但我不确定我应该从您评论的链接中使用什么。我认为我必须将所选文件夹转换为字符串Dim'd对象，然后link.range（“C49”）=所选文件夹是的，我的建议更多的是替换上面的代码，而不是修复[folderpath]的示例

.SelectedItems.Item(1)

Private Sub cmd_button_BROWSEforFolder_Click()

    On Error GoTo err
    Dim fileExplorer As FileDialog
    Set fileExplorer = Application.FileDialog(msoFileDialogFolderPicker)
    Dim folderPath As String

    'To allow or disable to multi select
    fileExplorer.AllowMultiSelect = False

    With fileExplorer
        If .Show = -1 Then 'Any folder is selected
            folderPath = .SelectedItems.Item(1)

        Else ' else dialog is cancelled
            MsgBox "You have cancelled the dialogue"
            folderPath = "NONE" ' when cancelled set blank as file path.
        End If
    End With
err:

ThisWorkbook.Sheets("Home").Range("C49") = folderPath

End Sub