主题：请教

本人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"...文件删除？

谢谢！

没有办法吗？

第二个方案：

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")

好像不能跨工作簿book.sheets.add

可以，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")

试了一下。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:新建 microsoft excel 工作表.xls