如何：将一个工作簿中表复制到另一个工作簿的表中？

下面这段代码出错了。

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

请教大家，谢谢

这个意思？

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.UsedRange.Copy
    ws2.Paste
End With
Wb.Save
wb2.save
App.Quit

 调出你的任务管理器，在进程那里，把所有的Excel.exe进程全部杀死。

甜老师，已解决了，谢谢