以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  请教Excel报表  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=6589)
--  作者：migold
--  发布时间：2010/4/11 19:06:00
--  请教Excel报表
请教Excel报表问题

（1）重命名工作表的名称
（2）移动工作表到另一个工作簿
--  作者：狐狸爸爸
--  发布时间：2010/4/12 8:02:00
--  
1、
sheet.name = "新名称"
2、
Book1.sheets.Remove(sheet)
Book2.Sheets.Add(sheet)
--  作者：migold
--  发布时间：2010/4/12 17:05:00
--  
(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")

测试成功
--  作者：migold
--  发布时间：2010/4/12 17:07:00
--  
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")

测试不成功，为什么？
--  作者：migold
--  发布时间：2010/4/13 11:53:00
--  
请教Excel报表问题

（2）移动工作表到另一个工作簿

请教高手，代码怎样写？
--  作者：狐狸爸爸
--  发布时间：2010/4/13 16:15:00
--  
应该这样的：

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的功能，要等下次
[此贴子已经被作者于2010-4-13 16:15:58编辑过]
--  作者：lxl
--  发布时间：2010/4/13 16:24:00
--  
以下是引用狐狸爸爸在2010-4-13 16:15:00的发言：

不过Add没有直接增加现有sheet的功能，要等下次
[此贴子已经被作者于2010-4-13 16:15:58编辑过]

图片点击可在新窗口打开查看  我以前就想要这个方法，一直没有。好通过添加Interop.Excel.dll来实现的。
--  作者：狐狸爸爸
--  发布时间：2010/4/13 16:57:00
--  
以下是引用lxl在2010-4-13 16:24:00的发言：

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


呵呵，早说啊
--  作者：migold
--  发布时间：2010/4/13 17:14:00
--  

顶，期待下次更新
--  作者：migold
--  发布时间：2010/4/13 17:18:00
--  
下次能否增加一个：复制工作表功能，能否将同一个工作簿的其中一个工作表复制一个并指定一个新的工作表名称