VBA获取选择文件夹的路径

在VBA中，可以使用FileDialog对象的SelectedItems属性来获取用户选择的文件夹路径。以下是一个示例代码：

Sub GetFolderPath()
    Dim fileDialog As FileDialog
    Set fileDialog = Application.FileDialog(msoFileDialogFolderPicker)
    
    If fileDialog.Show = True Then
        MsgBox "You selected folder " & fileDialog.SelectedItems(1)
    End If
End Sub

在这个示例代码中，首先创建了一个FileDialog对象，并将其类型设置为msoFileDialogFolderPicker，表示选择文件夹。在对话框弹出后，如果用户选择了文件夹，则使用MsgBox显示所选文件夹的路径。其中，SelectedItems(1)表示选择的第一个文件夹路径。如果用户选择了多个文件夹，则可以使用循环遍历SelectedItems数组来获取每个文件夹的路径。

相关问题

VBA获取多个文件夹路径

您好，以下是获取多个文件夹路径的 VBA 代码示例：

Sub GetFolderPath()
Dim FolderPath As String
Dim SelectedFolders As Variant

'弹出选择文件夹对话框
With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "请选择文件夹"
.AllowMultiSelect = True
If .Show <> -1 Then Exit Sub
'获取选择的文件夹路径
For Each SelectedFolders In .SelectedItems
FolderPath = SelectedFolders
Debug.Print FolderPath
Next
End With
End Sub

希望能对您有所帮助！

VBA获取多个文件夹获取他的路径

你可以使用 VBA 中的 FileSystemObject 对象来获取多个文件夹的路径。以下是一个示例代码：

Sub GetFolderPaths()
Dim fso As Object
Dim folderPath As String
Dim folderPaths() As String
Dim i As Integer

Set fso = CreateObject("Scripting.FileSystemObject")

'设置要获取路径的文件夹
folderPaths = Array("C:\Folder1", "C:\Folder2", "C:\Folder3")

'循环获取每个文件夹的路径
For i = LBound(folderPaths) To UBound(folderPaths)
folderPath = folderPaths(i)
Debug.Print folderPath
Next i

Set fso = Nothing
End Sub

这段代码会输出每个文件夹的路径，你可以根据需要进行修改。