- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 请教 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=43173)
-- 发布时间：2013/12/1 11:48:00
-- 请教
本人11月26号请教的“分批输出”问题，通过动态设置打印条件的方法解决了。
分批输出的结果，分别存放在N个EXCEL文件中，分别是“标签0.xls","标签1.xls","标签2.xls"......
现在继续请教几个问题：
1.分批输出时，如何将这些输出结果存放在同一个xls文件中的不同工作表中？
2.如果上述1不能实现（即只能按我现在的方式存放在N个.xls文件中），如何将这N个文件"标签0.xls"，"标签1.xls".......文件合并成一个"标签.xls"文件？
合并完成后，如何将N个"标签0.xls","标签1.xls"...文件删除？
谢谢！
-- 发布时间：2013/12/1 14:16:00
--
没有办法吗？
-- 发布时间：2013/12/1 19:51:00
--
把 报表编程 一章看完，看看你能不能悟到一些！
-- 发布时间：2013/12/2 8:27:00
--
第二个方案：
Dim Book1 As New XLS.Book("c:\\data\\123.xls")
Dim Book2 As New XLS.Book()
Dim sh As XLS.Sheet = book1.Sheets(0)
book1.Sheets.Remove(sh)
book2.Sheets.Add(sh)
book2.Save("c:\\data\\abc.xls")
-- 发布时间：2013/12/2 11:14:00
--
好像不能跨工作簿book.sheets.add
-- 发布时间：2013/12/2 11:16:00
--
可以，4楼的代码，就是跨工作簿，注意加粗的部分，从一个地方一场，才能加入另一个地方：
Dim Book1 As New XLS.Book("c:\\data\\123.xls")
Dim Book2 As New XLS.Book()
Dim sh As XLS.Sheet = book1.Sheets(0)
book1.Sheets.Remove(sh)
book2.Sheets.Add(sh)
book2.Save("c:\\data\\abc.xls")
-- 发布时间：2013/12/2 12:04:00
--
试了一下。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:新建 microsoft excel 工作表.xls |
-- 发布时间：2013/12/2 21:00:00
--
表名必须唯一，你需要给生成的报表设置不同表名，参考下面的代码
Dim Book As New XLS.Book("d:\\test.xls")
Dim sheet As XLS.Sheet = book.Sheets(0)
sheet.name = "新的表名"
book.save("d:\\test.xls")