关于跨簿取数据并重新生成新的工作簿的例子，请斑主帮忙

dongyong9

有700个的Y1样式工作簿，（一人一个，包括姓名，地址之类,张三、李四、王五等），每个工作簿有一张sheet2名称“数据”工作表，现需要重新建Z1样式工作簿，也含有sheet名称"数据"工作表，
目标：用新的Z1样式工作簿中数据工作表依次提取原工作簿中数据工作表，并生成新的张三、李四、王五的工作簿
现有操作，是打开张三工作簿，复制数据工作表相关A1:G20区域，打开Z1工作簿中数据工作表，粘贴，保存后，关闭，更名为张三。
请斑主帮忙用VBA解决问题，本人不会用VBA，刚开始学习，
解决思路：在Z1中用VBA，调取本文夹下张三Y1工作簿中数据工作表中A1:G20区域，更新Z1数据工作表相关区域，另存为张三2018，下一个同文件夹下李四，文件夹下所有人都生成与Y1相应的Z1样式工作簿。
注意：每个工作簿后有多个工作表，都与数据录入工作表有关。只能更新数据工作表

microyip

http://club.excelhome.net/thread-1310803-1-1.html 参考变通一下

dongyong9

本人顶一下