如何将旧工作簿的所有模块复制到新创建的工作簿中？

要同时复制指定工作表和所有模块到新工作簿，需借助VBA的VBProject对象操作模块，以下是具体实现步骤：

1. 开启VBA项目对象模型访问权限 #

操作模块需要特殊权限，先完成设置：

• 打开Excel选项 → 信任中心 → 信任中心设置 → 宏设置 → 勾选「信任对VBA项目对象模型的访问」

2. 完整代码实现 #

替换你原有的代码，下面的代码会复制指定工作表，同时将原工作簿的所有标准模块、类模块同步到新工作簿：

Sub SaveSheetWithModules()
    Dim srcWB As Workbook
    Dim newWB As Workbook
    Dim srcVBProj As VBIDE.VBProject
    Dim newVBProj As VBIDE.VBProject
    Dim srcModule As VBIDE.VBComponent
    Dim tempPath As String
    
    ' 定义源工作簿
    Set srcWB = ThisWorkbook
    ' 复制指定工作表到新工作簿
    srcWB.Sheets(Array("Sheet1", "Sheet2")).Copy
    Set newWB = ActiveWorkbook
    
    ' 初始化项目对象
    Set srcVBProj = srcWB.VBProject
    Set newVBProj = newWB.VBProject
    tempPath = Environ("TEMP") & "\"
    
    ' 遍历并复制所有非文档类模块
    For Each srcModule In srcVBProj.VBComponents
        ' 跳过工作表、ThisWorkbook这类文档绑定模块（新工作簿已自动生成）
        If srcModule.Type <> vbext_ct_Document Then
            ' 导出模块到临时目录
            srcModule.Export tempPath & srcModule.Name & ".bas"
            ' 导入到新工作簿
            newVBProj.VBComponents.Import tempPath & srcModule.Name & ".bas"
            ' 删除临时文件
            Kill tempPath & srcModule.Name & ".bas"
        End If
    Next srcModule
    
    ' 保存新工作簿（替换为你需要的路径和文件名）
    newWB.SaveAs Filename:="C:\Users\Desktop\NewWorkbook.xlsm", FileFormat:=52, CreateBackup:=False
End Sub

关键说明 #

• 用Sheets(Array("Sheet1", "Sheet2"))替代选中操作，避免激活窗口，代码更稳定高效
• 通过「导出-导入」的方式复制模块，可避免直接复制组件时的名称冲突问题
• 自动跳过工作表、ThisWorkbook模块，因为新工作簿会自动生成对应文档模块
• 临时文件存放在系统临时目录，不会残留垃圾文件

注意事项 #

• 源工作簿必须是启用宏的格式（.xlsm/.xlsb），否则无法包含模块
• 运行代码前请先保存源工作簿，否则VBProject对象可能无法正常访问
• 如果新工作簿已存在同名模块，导入操作会直接覆盖，需提前处理名称冲突

内容的提问来源于stack exchange，提问作者Kiattipoom Thongwilai