标题：请教Excel报表

请教Excel报表问题

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

1、
sheet.name = "新名称"
2、
Book1.sheets.Remove(sheet)
Book2.Sheets.Add(sheet)

(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 = Book1.Sheets("abc")
Book1.Sheets.Remove(sheet)
Book2.Sheets.Add(sheet)
Book1.Save("C:\001.xls")
Book2.Save("C:\002.xls")

不过Add没有直接增加现有sheet的功能，要等下次

  我以前就想要这个方法，一直没有。好通过添加Interop.Excel.dll来实现的。

呵呵，早说啊

顶，期待下次更新

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