如何通过编程将个人工作簿中的Module1复制到其他工作簿？

嘿，我完全懂你的痛点——每次从ERP导出的报表都是全新的独立文件，还要手动把个人工作簿里的宏搬过去处理，太麻烦了对吧？下面给你两个实用的解决办法，按需选就行：

如果确实需要把整个模块复制过去，你可以用VBA操作VBA项目来实现，不过要先做两个前置设置：

• 启用VBA扩展性库：打开VBA编辑器（按Alt+F11），点击「工具」→「引用」，找到Microsoft Visual Basic for Applications Extensibility并勾选。
• 允许访问VBA项目模型：打开Excel的「文件」→「选项」→「信任中心」→「信任中心设置」→「宏设置」，勾选「信任对VBA项目对象模型的访问」。

做好设置后，在个人工作簿里添加这段宏代码：

Sub CopyModule1ToTargetWB()
    Dim targetWB As Workbook
    Dim sourceModule As VBComponent
    
    ' 让用户选择ERP导出的目标报表
    Set targetWB = Application.Workbooks.Open( _
        Application.GetOpenFilename("Excel文件 (*.xlsx;*.xlsb;*.xls)", Title:="请选择ERP导出的报表"))
    If targetWB Is Nothing Then Exit Sub ' 用户取消选择时退出
    
    ' 引用个人工作簿里的Module1
    Set sourceModule = ThisWorkbook.VBProject.VBComponents("Module1")
    
    ' 先检查目标工作簿有没有同名模块，有就删掉避免重复
    On Error Resume Next
    targetWB.VBProject.VBComponents.Remove targetWB.VBProject.VBComponents("Module1")
    On Error GoTo 0
    
    ' 复制Module1的代码到目标工作簿
    With targetWB.VBProject.VBComponents.Add(vbext_ct_StdModule)
        .Name = "Module1"
        .CodeModule.AddFromString sourceModule.CodeModule.Lines(1, sourceModule.CodeModule.CountOfLines)
    End With
    
    ' 可选：复制完直接运行目标工作簿里的宏
    ' targetWB.Application.Run targetWB.Name & "!Module1.你的宏名称"
    
    MsgBox "Module1已经成功复制到目标报表啦！", vbInformation
End Sub

其实你也不用非要复制模块，直接在个人工作簿的宏里打开目标报表，调用Module1里的处理逻辑就行，这样不用折腾VBA权限设置：

Sub ProcessERPReportDirectly()
    Dim targetWB As Workbook
    Dim processMacroName As String
    
    ' 替换成你Module1里用来处理报表的宏名字
    processMacroName = "FormatAndFilterData"
    
    ' 选择目标报表
    Set targetWB = Application.Workbooks.Open( _
        Application.GetOpenFilename("Excel文件 (*.xlsx;*.xlsb;*.xls)", Title:="请选择ERP导出的报表"))
    If targetWB Is Nothing Then Exit Sub
    
    ' 调用个人工作簿Module1里的宏来处理目标报表
    ' 这里要确保你的处理宏是可以跨工作簿操作的（比如不要用ActiveSheet，而是指定targetWB里的表）
    ThisWorkbook.Module1.Run processMacroName, targetWB
    
    MsgBox "报表格式设置、排序筛选都搞定啦！", vbInformation
End Sub

如果你的处理宏需要接收目标工作簿作为参数，记得把Module1里的宏改成这样：

Sub FormatAndFilterData(targetWB As Workbook)
    ' 这里写你的处理逻辑，比如：
    With targetWB.Sheets(1) ' 假设数据在第一个工作表
        ' 格式设置
        .Cells.Font.Name = "微软雅黑"
        .Cells.Font.Size = 10
        ' 排序
        .UsedRange.Sort Key1:=.Columns("A"), Order1:=xlAscending, Header:=xlYes
        ' 筛选
        .UsedRange.AutoFilter
    End With
End Sub

这样每次只要运行个人工作簿里的这个宏，选一下导出的报表，剩下的就自动完成啦！

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