参考
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\test.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1) '指定要复制的工作表
With Wb.WorkSheets
Ws.Copy(After:=.Item(.Count))'复制到最后面
msgbox(app.ActiveSheet.name)
app.activesheet.name = "abcdefg"
Ws.Copy(Before:=.Item(1))'复制到最前面
msgbox(app.ActiveSheet.name)
'Ws.Copy '复制到一个新工作簿
End With
app.visible = True
'Wb.Save
'App.Quit