- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 创建工作表，如何保留原工作表？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=59714)
-- 发布时间：2014/11/9 15:19:00
-- 创建工作表，如何保留原工作表？
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")
创建工作表时，如何保留原工作表？
备注：目的就是想复制一个工作簿中的指定表到另一个工作簿中
如上代码，如果删除这行代码就会出错（Book1.Sheets.Remove(Sheet)）
-- 发布时间：2014/11/9 15:23:00
--
用vba，关键代码
ws1.Copy(System.Reflection.Missing.Value, ws2)
-- 发布时间：2014/11/9 15:26:00
--
只能写VBA代码了。OK, 谢谢
但还是建议：能直接复制或创建新工作表时，不要强制删除原工作表。那也省事一些。
[此贴子已经被作者于2014-11-9 15:28:29编辑过]
-- 发布时间：2014/11/9 15:30:00
--
而且，感觉创建新工作表时，就要强制删除原工作表。有点怪怪的。
-- 发布时间：2014/11/9 15:31:00
--
这里的是剪切，不是复制。