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

使用VBA Excel编程时，经常会遇到需要用户选择文件夹并将文件夹路径作为字符串变量返回的情况。这在处理需要读取或保存多个文件的情况下非常有用。下面将为你介绍如何通过VBA实现这一功能，并提供一个实际案例代码。

vba
Dim folderPath As String

vba
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
With Application.FileDialog(msoFileDialogFolderPicker)
    .Title = "请选择文件夹"
    .AllowMultiSelect = False
    If .Show = -1 Then
        folderPath = .SelectedItems(1)
    End If
End With
Set fso = Nothing

vba
Sub SelectFolder()
    Dim folderPath As String
    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    With Application.FileDialog(msoFileDialogFolderPicker)
        .Title = "请选择文件夹"
        .AllowMultiSelect = False
        If .Show = -1 Then
            folderPath = .SelectedItems(1)
        End If
    End With
    Set fso = Nothing
    ' 在这里可以使用folderPath进行文件操作
    ' 例如：
    ' Workbooks.Open folderPath & "\文件名.xlsx"
    ' ActiveWorkbook.SaveAs folderPath & "\保存文件名.xlsx"
    ' ...
End Sub