主题：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
  

Ws.Copy

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

最后一个工作薄

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

EXCEL 报表能否在生成之后直接根据内容对列宽进行自动调整后再保存吗？还是必须保存后再重新调用调整。

拆分：http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=175599

如果是使用代码生成报表的，可以先调整再保存：http://www.foxtable.com/webhelp/topics/1159.htm