VBA怎么跨工作簿录制宏？

Question

如图所示每天都需要把1.【运营报表_话量报表_按时统计z】里面的标黄的三列放到【运营日报】标绿的这三列；2. 【座席员业务量z】里面标黄的需要放到【运营日报】标红的I10-P33列；有没有什么代码可以实现只要导出报表就可以自动填充到运营日报的表格里面。在线急等！！！

Answer 1

参考代码：

Option Explicit

Sub Demo()
    ' /* 拷贝呼叫总量（系统）+ 应答总量_新 + 服务水平内的应答量. */
    With Workbooks("运营报表_话量报表_按时统计z.xlsx").Worksheets("运营报表_话量报表_按时统计")
        Union(.Range("B3:B26"), .Range("D3:D26"), .Range("G3:G26")).Copy Workbooks("运营日报.xlsx").Worksheets("11.28").Range("B10")
    End With
    
    ' /* 拷贝员工在线总时长 + 数据到达后系统强制示忙总时长（s）+ 座席响应总时长 + 通话时长 + 时候处理总时长 + 岗中培训总时长 + 月考总时长 + 外呼总时长. */
    With Workbooks("座席员业务量z.xlsx").Worksheets("CUCC宝马呼叫中心")
        Union(.Range("K3:K26"), .Range("N3:T26")).Copy Workbooks("运营日报.xlsx").Worksheets("11.28").Range("I10")
    End With
End Sub

PS：运行前先打开所有要拷贝的工作簿，检查代码中的工作簿名、工作表名及单元格范围是否与你实际文件中的相一致（照着图片上显示的内容手工打上去的，难免会有手误）。