- 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
老师 请问题下，这个复制到新工作薄的功能是如何使用的，如果新工作薄的名称以原工作表的表名来命名，如何增加代码，我想把一个工作薄中的多个表按表名单独生成一个工作薄
加好友 
发短信
Post By：2022/4/9 16:28:00 [只看该作者]
