Vba用弹窗选择文件夹新建工作表

在VBA (Visual Basic for Applications) 中，你可以使用 `Application.GetOpenFilename` 函数让用户从文件浏览器中选择一个文件夹，然后通过 `Sheets.Add` 方法在Excel中创建一个新的工作表。以下是一个简单的示例代码片段：

Sub SelectFolderAndNewWorksheet()
    ' 弹出文件浏览对话框，允许用户选择一个文件夹
    Dim folderPath As String
    folderPath = Application.GetOpenFilename(Title:="选择文件夹", _
                                         .InitialDirectory:=Environ$("USERPROFILE") & "\Documents", _
                                          FileFilter:="所有文件(*.*)")

    ' 如果用户选择了文件夹，尝试创建新的工作表
    If folderPath <> "False" Then
        ' 创建新的工作表，将新工作的名称设置为所选文件夹的名称
        Sheets.Add(After:=Sheets(Sheets.Count)).Name = Dir(folderPath)
        MsgBox "已为选定文件夹创建了一个新的工作表.", vbInformation
    Else
        MsgBox "您未选择任何文件夹.", vbExclamation
    End If
End Sub

在这个例子中，`GetOpenFilename` 返回的是文件路径，如果用户取消操作则返回 "False"。当用户选择文件夹后，代码会尝试添加一个工作表，并将其命名为文件夹名。