主题：[求助]VBA代码转为 狐表的 按钮代码

参考

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

http://www.foxtable.com/webhelp/scr/2121.htm