vbA代码选择目录的代码

以下是一个示例 VBA 代码，用于选择文件夹路径：

Sub SelectFolderPath()
    Dim FolderPath As String
    Dim FolderDialog As FileDialog
    
    '创建一个文件夹选择对话框
    Set FolderDialog = Application.FileDialog(msoFileDialogFolderPicker)
    
    '显示对话框并获取选择的文件夹路径
    With FolderDialog
        If .Show = -1 Then
            FolderPath = .SelectedItems(1)
        End If
    End With
    
    '如果选择了文件夹，则在调试窗口中输出路径
    If FolderPath <> "" Then
        Debug.Print "选择的文件夹路径为: " & FolderPath
    Else
        Debug.Print "没有选择文件夹。"
    End If
End Sub

运行上述代码后，将弹出一个文件夹选择对话框，你可以在对话框中选择一个文件夹。选择完成后，所选文件夹的路径将以调试(debug)的形式输出到调试窗口(Debug Window)中。

请记得在运行代码之前，先打开调试窗口(Debug Window)。你可以通过按下快捷键 `Ctrl + G` 或者在"视图(View)"菜单中选择"调试窗口(Debug Window)"来打开。