使用VBA复制若干个工作表，并另存到新的工作簿

最新推荐文章于 2025-09-21 09:56:19 发布

原创最新推荐文章于 2025-09-21 09:56:19 发布 · 3.2w 阅读

35 ·

CC 4.0 BY-SA版权

Excel 同时被 2 个专栏收录

6 篇文章

订阅专栏

VBA

4 篇文章

订阅专栏

本文介绍了一段VBA代码，用于从当前Excel工作簿中批量复制指定名称的工作表到新的工作簿，并保存到指定路径下。代码使用了Array函数来指定要复制的工作表名称，然后通过SaveAs函数将新工作簿保存到D盘特定文件夹。

代码如下：

Sub MoveSheets()

'在下面Array中列出所有需要复制的工作表的名称

Worksheets(Array("工作表1", "工作表11", "工作表22", "工作表32")).Copy

Set wbNew = ActiveWorkbook

With wbNew

    ActiveWorkbook.SaveAs Filename:="D:\folder_for_holding_saved_workbook" & "\name_of_saved_workbook.xlsx"

    .Close

End With

End Sub