vba选择文件夹1007无标题

感谢您的提问。如果您想在 VBA 中选择文件夹并将其路径存储在变量中，可以使用以下代码：

Sub ChooseFolder()
    Dim selectedFolder As String
    With Application.FileDialog(msoFileDialogFolderPicker)
        .Title = "请选择一个文件夹"
        .ButtonName = "选择此文件夹"
        .AllowMultiSelect = False
        If .Show = -1 Then
            selectedFolder = .SelectedItems(1)
            Debug.Print selectedFolder ' 这里将路径输出到立即窗口中，您也可以将其存储在变量中
        End If
    End With
End Sub
这段代码中，我们使用 Application.FileDialog 方法调用文件夹选择对话框，然后设置标题和按钮名称。AllowMultiSelect 属性设置为 False 表示只能选择一个文件夹。在用户选择了文件夹后，我们将其路径存储在 selectedFolder 变量中，并使用 Debug.Print 将其输出到立即窗口中。
另外，如果您需要在 Excel 中使用该代码，请确保在“开发人员”选项卡中启用了 VBA 开发工具，并将其添加到您的工作簿中。
希望这个回答能对您有所帮助。如果您还有其他问题，请随时提出。