以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请教如何插入工作表  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=87808)
--  作者：lihe60
--  发布时间：2016/7/20 8:54:00
--  请教如何插入工作表
把一个工作簿中指定名称的工作表插入到另一个工作簿中，代码如何写？
--  作者：大红袍
--  发布时间：2016/7/20 9:17:00
--  

例如下面的代码,将订单工作表由文件001.xls移动到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")
--  作者：lihe60
--  发布时间：2016/7/20 10:20:00
--  
如何给新增加的工作表重命名？
--  作者：大红袍
--  发布时间：2016/7/20 10:22:00
--  

参考

 

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

 

直接写

 

Book2.Sheets("订单").Name = "ABC"