excel、wps复制多个表到多个已有工作簿，到同个文件夹下的所有工作簿

操作说明

在需要复制的工作簿中放入代码，根据提示选择文件夹

更新数据源

1. 不需要更新数据源：则删除更新数据源代码，且注释或者删除Call 更新单表所有数据源(wb) '更新数据源代码行
2. 需要更新数据源且数据源位于同工作簿的第一个工作表：修改下列代码中a2:n为数据字段对应区域，也可自行修改inputbox（不完善）

'直接将数据源更改为其它单元格区域
oPT.SourceData = WK.Range("a2:n" & iRow).Address(True, True, xlR1C1, True)

3. 需要更新数据源但数据源不位于同工作簿的第一个工作表：修改Set WK = wb.Sheets(1) '索引第一个工作表代码行

代码

Sub 复制多个工作表并更新数据源()
'
' 复制多个工作表并更新数据源 Macro
' 复制多个表到已有表+更新数据源
'
    Dim PathStr As String, file As String, count, wb As Workbook
    '冻结屏幕，以防屏幕抖动
    Application.ScreenUpdating = False
    Call 获取文件夹路径(PathStr)  '获取文件夹的存储路径
    file = Dir(PathStr & "*.xls*"