VBA EXCEL提示用户响应选择文件夹并将路径作为字符串变量返回[重复]

Posted 2023-05-06

【中文标题】VBA EXCEL提示用户响应选择文件夹并将路径作为字符串变量返回[重复]

【英文标题】：VBA EXCEL To Prompt User Response to Select Folder and Return the Path as String Variable [duplicate]

【发布时间】：2014-10-15 21:32:57

【问题描述】：

我正在尝试编写一个 VBA 代码，其中会出现一个对话框供用户选择他们想要保存文件的位置。 但是，我只需要作为字符串变量返回的路径值（例如c:\Desktop\Values），以便我可以在另一个函数中使用它。 任何帮助将不胜感激。

【问题讨论】：

***.com/questions/19372319/…

我想要完整的路径名。这不只是返回文件夹名称吗？

不，您可以获得完整路径（请参阅 Gary 的回答）

在我在上面给出的链接中发布的答案中，如果您在Ret = BrowseForFolder("C:\") 之后添加Msgbox Ret，那么您将获得文件夹路径作为字符串，前提是用户没有按Cancel

【参考方案1】：

考虑：

Function GetFolder() As String
    Dim fldr As FileDialog
    Dim sItem As String
    Set fldr = Application.FileDialog(msoFileDialogFolderPicker)
    With fldr
        .Title = "Select a Folder"
        .AllowMultiSelect = False
        .InitialFileName = Application.DefaultFilePath
        If .Show <> -1 Then GoTo NextCode
        sItem = .SelectedItems(1)
    End With
NextCode:
    GetFolder = sItem
    Set fldr = Nothing
End Function

正如 jkf 指出的那样，来自Mr Excel