主题：[求助]狐表如何把EXCEL中的工作表移动到另一工作簿

  参考 http://www.foxtable.com/help/topics/1465.htm

要先remove才能加入

Dim Book1 As New XLS.Book("E:\图纸解析\相关文件\图纸.xls")
Dim Book2 As New XLS.Book("E:\图纸解析\Reports\基本参数设置.xls")
Dim Sheet3 = Book2.Sheets("基本参数设置")
Dim Sheet4 = Book2.Sheets("特殊型号")
Dim Sheet5 = Book1.Sheets("基本参数设置")
Dim Sheet6 = Book1.Sheets("特殊型号")
Book1.Sheets.Remove(Sheet5)
Book1.Sheets.Remove(Sheet6)
book2.Sheets.remove(sheet3)
book2.Sheets.remove(sheet4)
Book1.Sheets.Add(Sheet3)
Book1.Sheets.Add(Sheet4)
Book1.Save("E:\图纸解析\相关文件\图纸.xls")