Excel VBA Application.FileDialog使用之msoFileDialogFolderPicker参数

之前在工作中写了一个VBA工具，可以通过保存文件到指定目录，如图1所示，但是一直存在一个问题，就是需要手动添加目录。今天实在觉得还是比较麻烦，所以查资料进行如下优化：

 图1 

        '先判断文件夹是否存在，如果不存在，则弹出另存为文件夹，供选择；
        Dim sFolder As String
        Dim sResult As String
        sFolder = VBA.Mid(Sheets("Temp").Range("B2"), 1, Len(Sheets("Temp").Range("B2")) - 1)
        sResult = Dir(sFolder, 16)
        If Len(sResult) = 0 Then
            With Application.FileDialog(msoFileDialogFolderPicker)
                .AllowMultiSelect = False
                .Filters.Clear
                If .Show = -1 Then
                    'MsgBox "选择的文件路径为：" + .SelectedItems(1), vbOKOnly + vbInformation, "选择要导入的BOM文件"
                    '.SelectedItems(1)为路径+文件名
                    Sheets("Temp").Range("B2") = .SelectedItems(1) & "\"  '将选中的目录增加\后，写入Temp的B2单元格
        
                Else
                    '选择“取消”，啥也不做，直接退出
                    Exit Sub
                End If
                
            End With
            
        End If

 

 

其中Sheets("Temp").Range("B2")是存放路径的单元格

随后通过Dir命令判端Sheets("Temp").Range("B2")所存放的路径是否存在，如果不存在那么通过调用Application.FileDialog(msoFileDialogFolderPicker)选中一个目录，作为保存文件的目录。