主题：请教Excel报表

请教Excel报表问题

（1）重命名工作表的名称
（2）移动工作表到另一个工作簿

(1)重命名工作表的名称
1、
sheet.name = "新名称"
'Dim Book As New XLS.Book("C:\001.xls") '定义一个Excel工作簿
'Dim Sheet As XLS.Sheet = Book.Sheets(0) '引用工作簿的第一个工作表
'Sheet.Name = "我是谁" '重命名工作表
'Book.Save("C:\001.xls")

测试成功

2、
Book1.sheets.Remove(sheet)
Book2.Sheets.Add(sheet)


Dim Book1 As New XLS.Book("C:\001.xls") '定义一个Excel工作簿
Dim Book2 As New XLS.Book("C:\002.xls") '定义一个Excel工作簿
Book1.Sheets.Remove("我是谁")
Book2.Sheets.Add("我是谁")
Book1.Save("C:\001.xls")
Book2.Save("C:\002.xls")

测试不成功，为什么？

请教Excel报表问题 （2）移动工作表到另一个工作簿

请教高手，代码怎样写？

顶，期待下次更新

下次能否增加一个：复制工作表功能，能否将同一个工作簿的其中一个工作表复制一个并指定一个新的工作表名称

Dim Book1 As New XLS.Book("C:\001.xls") '定义一个Excel工作簿
Dim Book2 As New XLS.Book("C:\002.xls") '定义一个Excel工作簿
Dim sheet As XLS.Sheet = Book1.Sheets("abc")
Book1.Sheets.Remove(sheet)
Book2.Sheets.Add(sheet)
Book1.Save("C:\001.xls")
Book2.Save("C:\002.xls")

这样，为什么执行不成功?

请问怎样解决，代码怎样写？？？

谢谢16楼楼主
问题还是未解决! 

看来只有等待狐爸的下次更新才会解决了

Dim Book1 As New XLS.Book("C:\001.xls")
Dim Book2 As New XLS.Book("C:\002.xls")
Dim Sheet = Book1.Sheets("订单")
Book1.Sheets.Remove(Sheet)
Book2.Sheets.Add(Sheet)
Book1.Save("C:\001.xls")
Book2.Save("C:\002.xls")
以上执行成功

Dim Book1 As New XLS.Book("C:\001.xls")
Dim Book2 As New XLS.Book("C:\002.xls")
Dim Sheet = Book1.Sheets("订单")
'去掉此一行Book1.Sheets.Remove(Sheet)
Book2.Sheets.Add(Sheet)
Book1.Save("C:\001.xls")
Book2.Save("C:\002.xls")
以上执行出错

请问为什么?