Vba用弹𥦬选择文件夹把新生成的工作表保存到子文件夹中

在VBA（Visual Basic for Applications）中，你可以创建一个Windows文件浏览器对话框让用户选择一个文件夹，然后将新的工作表保存到所选子文件夹中。下面是一个基本的步骤和代码示例：

1. 首先，你需要引用`Microsoft Office`库，它包含了操作文件系统的函数。在顶部添加 `Imports Microsoft.Office.Interop.Excel`。

2. 创建一个Sub过程，比如 `SaveWorkbookInFolder`，并添加以下代码：

Sub SaveWorkbookInFolder()
    Dim wb As Workbook ' 工作簿对象
    Dim fldrPath As String ' 用户选择的文件夹路径
    Dim subfolderName As String ' 子文件夹名（这里假设用户已经输入）
    
    ' 打开一个文件对话框让用户选择文件夹
    With Application.FileDialog(msoFileDialogFolderPicker)
        .Title = "选择文件夹"
        .AllowMultiSelect = False
        If .Show <> -1 Then
            fldrPath = .SelectedItems(1) ' 获取用户选择的第一个文件夹
        Else
            MsgBox "文件夹选择取消", vbCritical, "错误"
            Exit Sub
        End If
    End With
    
    ' 假设subfolderName变量已包含用户想要保存的新子文件夹名称
    subfolderName = "YourSubfolder" ' 这里替换为实际的子文件夹名称
    
    ' 将工作簿保存到指定子文件夹
    Set wb = ThisWorkbook ' 当前活动工作簿
    Dim ws As Worksheet ' 新建的工作表
    Set ws = wb.Sheets.Add(After:=wb.Sheets(wb.Sheets.Count)) ' 创建新工作表

    ' 保存工作簿到子文件夹
    Dim fullPath As String
    fullPath = Join(Array(fldrPath, "\" & subfolderName), "")
    ws.SaveAs Filename:=fullPath & "\" & "NewWorksheet.xlsx" ' 替换为你要保存的实际文件名
End Sub

在这个例子中，用户需要首先选择一个主文件夹，然后程序会创建一个新的工作表，并将其保存为 `.xlsx` 格式到用户选定的子文件夹内。