如何:将一个工作簿中表复制到另一个工作簿的表中?
下面这段代码出错了。
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\1.xls")
Dim Wb2 As MSExcel.WorkBook = App.WorkBooks.Open("D:\2.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets("sheet1") '指定要复制的工作表
Dim Ws2 As MSExcel.WorkSheet = Wb2.WorkSheets("sheet1")
With Wb2.WorkSheets
Ws.Copy(After:=.Item(.Count))'复制到最后面
'Ws.Copy(Before:=.Item(1))'复制到最前面
'Ws.Copy '复制到一个新工作簿
End With
Wb.Save
App.Quit
请教大家,谢谢