如何将包含宏绑定按钮的工作簿全部内容完整复制到另一工作簿

• Worksheets.Copy() 方法仅复制工作表的单元格内容、格式、嵌入控件等表层对象，不会同步迁移原工作簿VBA工程内的标准模块、类模块、工作簿/工作表事件代码
• 按钮绑定的宏默认使用原工作簿的绝对路径，复制到新工作簿后引用不会自动更新，因此触发路径不存在的报错，新工作簿无宏模块也是因为VBA工程内容未被同步复制

方案1：手动操作 #

• 无需自定义筛选内容的场景下，直接打开原工作簿，点击「文件」-「另存为」，选择保存类型为Excel 启用宏的工作簿(*.xlsm)，保存为新文件即可完整保留所有数据、宏、控件绑定关系
• 仅需保留部分工作表的场景：先按上述步骤另存为新文件，再在新文件中删除不需要的工作表即可

方案2：VBA自动化实现 #

前置配置 #

先开启Excel的VBA工程访问权限：点击「文件」-「选项」-「信任中心」-「信任中心设置」-「宏设置」，勾选「信任对VBA工程对象模型的访问」后保存设置。

完整复制整个工作簿代码 #

Sub FullCopyMacroWorkbook()
    Dim srcWb As Workbook
    Dim newFilePath As String
    
    Set srcWb = ThisWorkbook
    ' 修改下方路径为你需要保存新文件的实际路径
    newFilePath = "C:\Users\YourUser\Desktop\NewMacroBook.xlsm"
    
    ' 另存为启用宏的工作簿，全量保留所有内容
    srcWb.SaveAs Filename:=newFilePath, FileFormat:=xlOpenXMLWorkbookMacroEnabled
    
    ' 可选：重新打开原工作簿，避免原文件被新文件覆盖
    Workbooks.Open(srcWb.FullName).Activate
    ActiveWorkbook.Save
End Sub

复制到已存在的目标工作簿代码 #

如果需要将内容合并到已有的其他工作簿，使用以下逻辑：

Sub CopyToExistWorkbook()
    Dim srcWb As Workbook, targetWb As Workbook
    Dim vbaComp As Object, exportPath As String
    Dim shp As Shape, sht As Worksheet
    
    Set srcWb = ThisWorkbook
    ' 修改为目标工作簿的实际路径
    Set targetWb = Workbooks.Open("C:\Users\YourUser\Desktop\TargetBook.xlsm")
    
    ' 1. 复制所有工作表到目标工作簿
    srcWb.Worksheets.Copy After:=targetWb.Worksheets(targetWb.Worksheets.Count)
    
    ' 2. 迁移所有VBA模块
    exportPath = Environ("TEMP") & "\"
    For Each vbaComp In srcWb.VBProject.VBComponents
        If vbaComp.Type <> 100 Then ' 排除工作表/工作簿内置模块，单独复制的工作表已自带内置代码
            vbaComp.Export exportPath & vbaComp.Name & ".bas"
            targetWb.VBProject.VBComponents.Import exportPath & vbaComp.Name & ".bas"
            Kill exportPath & vbaComp.Name & ".bas"
        End If
    Next
    
    ' 3. 更新所有按钮的宏绑定，移除原工作簿路径
    For Each sht In targetWb.Worksheets
        For Each shp In sht.Shapes
            If shp.Type = msoFormControl Then
                If shp.FormControlType = xlButtonControl Then
                    ' 去掉宏路径中原工作簿名称前缀
                    shp.OnAction = Split(shp.OnAction, "!")(UBound(Split(shp.OnAction, "!")))
                End If
            End If
        Next
    Next
    
    targetWb.Save
End Sub

• 所有新文件必须保存为.xlsm后缀的启用宏格式，若保存为.xlsx格式，宏代码会被系统自动删除
• 如果使用的是ActiveX控件，复制完成后建议重新测试控件触发逻辑，避免兼容性问题

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