ThisWorkbook.Worksheets选取所有工作簿

在VBA（Visual Basic for Applications）中，`ThisWorkbook.Worksheets` 是指当前正在运行宏的工作簿（即 `ThisWorkbook` 对象）下的所有工作表集合。如果直接引用 `Worksheets` 属性，它会返回当前工作簿内所有的worksheet，而不是所有打开的工作簿。

如果你想要选择所有打开的工作簿中的所有工作表，你需要对每个打开的工作簿都执行类似的操作，例如：

Sub SelectSheetsOfAllOpenBooks()
    Dim allWorkbooks As WorkbookCollection
    Set allWorkbooks = Application.Workbooks.OpenWorkbooks ' 获取所有打开的工作簿

    Dim currentBook As Workbook
    For Each currentBook In allWorkbooks
        If currentBook Is Not Nothing Then ' 检查工作簿是否为空
            For Each ws In currentBook.Worksheets
                ws.Select ' 选中该工作簿内的每个工作表
            Next ws
        End If
    Next currentBook
End Sub

这个宏会循环遍历所有打开的工作簿，对每本工作簿中的所有工作表进行选择操作。

相关问题

VBA选取特定工作表并批量导出为单独文件

您可以使用以下 VBA 代码选取特定工作表并批量导出为单独文件：

Sub ExportWorksheets()
    Dim xWorksheet As Worksheet
    Dim xWorkbook As Workbook
    Dim xFolderPath As String
    Dim xDialog As FileDialog
    Set xDialog = Application.FileDialog(msoFileDialogFolderPicker)
    xDialog.AllowMultiSelect = False
    xDialog.Title = "Select a folder"
    If xDialog.Show = -1 Then
        xFolderPath = xDialog.SelectedItems(1)
    End If
    Set xWorkbook = Application.ActiveWorkbook
    For Each xWorksheet In xWorkbook.Worksheets
        xWorksheet.Select
        xWorksheet.Copy
        xWorkbook.SaveAs Filename:=xFolderPath & "\" & xWorksheet.Name & ".xlsx", FileFormat:=51
        xWorkbook.Close False
        Set xWorkbook = Application.Workbooks.Open(ThisWorkbook.FullName)
    Next
End Sub

您可以将上面的代码复制到 VBA 编辑器中，并按 F5 键运行它。然后会打开一个文件夹选择器，让您选择保存导出文件的文件夹。接着，它将逐一选中每个工作表、复制它、保存为单独的文件并关闭工作簿。最后，它将重新打开工作簿，以便继续处理下一个工作表。导出的每个文件都将以其工作表名称命名，并保存为 xlsx 格式。

Vba用弹窗先择文件夹生成新的工作表

在VBA中，你可以使用`Application.FileDialog`对象来创建一个文件夹选择器，让用户选择一个文件夹，然后再利用此选择结果创建一个新的工作表。这里是一个简单的步骤示例：

1. **打开文件浏览器选择文件夹**：

   Dim folderPath As String
   Set fd = Application.FileDialog(msoFileDialogFolderPicker)
   If fd.Show <> -1 Then ' 用户点击"取消"则返回-1
       folderPath = fd.SelectedItems(1) ' 选取的第一个文件夹路径
   Else
       MsgBox "文件夹选择取消"
       Exit Sub
   End If

2. **使用选定的文件夹创建新的工作表**：
一旦得到了文件夹路径，你可以使用`Worksheets.Add`方法动态创建新工作表，并将其放置在选定的文件夹下：

   Dim ws As Worksheet
   Set ws = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)) ' 在现有工作簿的最后一张工作表之后添加
   ws.Name = "新工作表_" & Format(folderPath, "yyyy-mm-dd_hh-mm") ' 给工作表命名，例如“新工作表_2023-03-05_14-30”

   ' 将工作表移动到选定的文件夹下的Sheet1位置
   ws.Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
   ws.Parent.Folder = folderPath

3. **关闭工作簿和对话框**：
完成操作后记得关闭对话框和工作簿（如果不需要保持工作簿打开的话）：

   fd.Close SaveChanges:=True
   ThisWorkbook.Close SaveChanges:=True

**相关问题--:**
1. 如何允许用户选择多个文件夹而不是单个？
2. 新的工作表如何自动填充一些初始数据或者公式？
3. 是否可以设置新建工作表的默认列宽或行高？