怎样移动多个工作薄中的指定的工作表到一个工作薄中，谢谢

在同一文件夹下有很多个工作薄。每个工作薄里的工作工都是一样的，怎样让这多个工作薄中指定的工作表（在每个工作薄中取一个指定的工作表里的数据）快速移动到另一个新的工作薄中，由于工作薄太多了，而且要经常做这个动作，不想每一次都要将十多个工作薄都打开，然后再一个一个复制，这样很麻烦，所以我想求助大家看看有没有用VBA来解决，只要一运行程序，多个工作薄上指定的表就移到同一个工作薄上或同一个工作表上了，多谢! --------------------编程问答-------------------- 录制一下宏看看能不能得到代码。 --------------------编程问答-------------------- 用我的多工作簿合并工具《Excel工具集－合并工作表之02(多工作簿合并)》

合并工作表之02

--------------------编程问答-------------------- 引用excel的application对象,利用
excel_app.Workbooks.Add ( )
excel_app.Worksheets.Add( )

补充：VB ,  VBA