Excel VBA如何将预设多个工作表复制到新建未保存工作簿

原有代码问题说明 #

• 单工作表复制代码生效逻辑：ActiveSheet.Copy无参数调用时，默认将当前激活的单个工作表复制到新建工作簿，仅支持单工作表对象操作
• 多表激活复制代码失效原因：同时选中多个工作表时，仅排列在最前的工作表处于激活状态，ActiveSheet仅会返回这单个工作表对象，无法实现多表复制
• 带自动保存逻辑的代码不符合需求原因：代码中硬编码了系统临时目录作为保存路径，强制自动保存，无法让终端用户自主选择存储位置

核心实现方案 #

直接对指定的工作表组调用无参数的Copy方法即可。工作表组对象调用无参数Copy方法时，会自动将组内所有工作表复制到全新的未保存工作簿并直接打开，用户后续可自行选择保存路径、设置文件名，无强制保存逻辑。

基础可用代码 #

Sub CopyMultiSheetsToNewWB()
    ' 可根据实际需求修改Array内的工作表名称
    Worksheets(Array("Sheet1", "Sheet2", "Sheet3", "Sheet4")).Copy
End Sub

带错误处理的优化版本 #

如果需要避免工作表名称配置错误导致的运行报错，可增加错误捕获逻辑：

Sub CopyMultiSheetsToNewWB_WithErrorCheck()
    On Error Resume Next
    Worksheets(Array("Sheet1", "Sheet2", "Sheet3", "Sheet4")).Copy
    If Err.Number <> 0 Then
        MsgBox "检测到配置的工作表不存在，请核对工作表名称后重试", vbExclamation
        Err.Clear
    End If
    On Error GoTo 0
End Sub

注意：运行上述代码生成的新工作簿默认处于未保存状态，不会写入任何预设路径，完全由终端用户决定后续保存位置与文件名。

内容的提问来源于stack exchange，提问作者Bikat Uprety