Excel VBA：在新工作簿中保存多张工作表

excel

标题：excel VBA自动保存多张工作表到新工作簿的案例代码

在excel VBA中，我们可以使用一些代码来自动保存多张工作表到新的工作簿中。这样可以方便地将多个工作表保存为一个文件，方便后续的处理和分享。下面是一个示例代码：

VBA
Sub SaveWorksheetsToNewWorkbook()
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim newWB As Workbook
    Dim newWS As Worksheet
    
    ' 创建一个新的工作簿
    Set newWB = Workbooks.Add
    
    ' 循环遍历所有的工作表
    For Each ws In ThisWorkbook.Worksheets
        ' 复制当前工作表到新的工作簿中
        ws.Copy Before:=newWB.Sheets(1)
    Next ws
    
    ' 保存新的工作簿
    newWB.SaveAs "C:\路径\新工作簿名.xlsx"
    
    ' 关闭新的工作簿
    newWB.Close SaveChanges:=False
End Sub

以上代码中，我们首先创建了一个新的工作簿，然后使用循环遍历的方式将当前工作簿中的每个工作表复制到新的工作簿中。最后，我们将新的工作簿保存到指定路径，并关闭工作簿。

这个代码的好处在于可以自动化地将多个工作表保存到一个文件中，非常适用于需要整理和分享多个工作表的场景。例如，我们可以将一个包含销售数据的工作簿中的每个月份的工作表保存到一个新的工作簿中，这样可以方便地进行月度销售数据的分析和报告。

示例代码：

VBA
Sub SaveWorksheetsToNewWorkbook()
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim newWB As Workbook
    Dim newWS As Worksheet
    
    ' 创建一个新的工作簿
    Set newWB = Workbooks.Add
    
    ' 循环遍历所有的工作表
    For Each ws In ThisWorkbook.Worksheets
        ' 复制当前工作表到新的工作簿中
        ws.Copy Before:=newWB.Sheets(1)
    Next ws
    
    ' 保存新的工作簿
    newWB.SaveAs "C:\路径\新工作簿名.xlsx"
    
    ' 关闭新的工作簿
    newWB.Close SaveChanges:=False
End Sub

通过以上代码，我们可以轻松地将多个工作表保存到一个新的工作簿中，方便后续的处理和分享。这对于需要整理和分析多个工作表的任务非常有用。

：

通过excel VBA，我们可以使用简单的代码来实现自动保存多张工作表到新的工作簿的功能。这样可以方便地将多个工作表整理成一个文件，方便后续的处理和分享。以上是一个示例代码，你可以根据自己的需求进行修改和扩展。希望这个案例对你有所帮助！