如何让我的浏览对话框转到 VBA 中的特定文件夹？

Posted 2023-04-19

【中文标题】如何让我的浏览对话框转到 VBA 中的特定文件夹？

【英文标题】：How can i make my browse dialog go to a specific folder in VBA?

【发布时间】：2014-07-16 15:28:40

【问题描述】：

我在 VBA 中有一个宏，当我单击浏览按钮获取文件夹位置时，它总是预加载我的文档文件夹。如何自动预加载到存储excel文件的文件夹，以便所有用户都必须点击确定？

例如：

用户想要加载一个文件夹。他单击浏览按钮。这 弹出选择文件夹的对话框。它已经在文件夹中 excel文件的存储位置。然后用户点击确定加载 文件夹。

我有这段代码可以加载带有对话框的文件夹：

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

感谢您的帮助！

【问题讨论】：

I have a macro in VBA 那么请去掉VB.NET标签

【参考方案1】：

您可以使用FileDialog 对象的InitialFileName 属性。例如使用您的代码：

Function GetFolder() As String
    Dim fldr As FileDialog
    Dim sItem As String
    Set fldr = Application.FileDialog(msoFileDialogFolderPicker)
    With fldr
       .Title = "Select A Folder Containing Your EM Traces"
       .AllowMultiSelect = False
       .InitialFileName = "C:\Some Folder" 'Set the directory here
       If .Show <> -1 Then GoTo NextCode
       sItem = .SelectedItems(1)
    End With
NextCode:
    GetFolder = sItem
    Set fldr = Nothing
End Function