［Excel VBA］文件夹的选择画面如何打开？

http://itpro.nikkeibp.co.jp/atcl/column/15/090100207/090100147/?ST=system

Application.FileDialog（常量）

宏的执行过程中，用户选择文件夹，使用“选择文件夹”对话框很方便。虽然有一些方法，但使用FileDialog对象的方法比较简单。参数可以指定下面表的常量。

下面的示例代码，用Show方法来显示选择文件夹的「参考」对话框。选择文件夹后点击OK后变成True，选择结果（PASS）则显示在消息框上。

译者追加，上述代码如下所示：

Sub Sample1()
    With Application.FileDialog(msoFileDialogFilePicker)
        If .Show = True Then
            MsgBox .SelectedItems(1)
        End If
    End With
End Sub