主题：EXCEL表如何单独保存

• Copy
  
  复制工作表。
  
  复制工作表也可用Before和After指定复制位置。如不指定，将新建一个只包含指定工作表的工作簿。如：
  
  Dim App As New MSExcel.Application
  Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\Report.xls")
  Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets("同期对比") '指定要复制的工作表
  With Wb.WorkSheets
      Ws.Copy(After:=.Item(.Count))'复制到最后面
      Ws.Copy(Before:=.Item(1))'复制到最前面
      Ws.Copy  '复制到一个新工作簿
  End With
  Wb.Save
  App.Quit
  

（Wb.WorkSheets(Wb.WorkSheets.count).name = "xx名称"）

老师有EXCEL 拆花与合并的代码学习下吗 我想把一个工作薄的 表1 表2 表3  按表名单独生成3个工作薄，每个工作薄只有一个表   麻烦老师指点下，谢谢