[求助]关于excel报表整合问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

请教老师如果想把表1的sheet（0）给保存到表2的sheet（1）中该怎么改写代码，就是想把输出的报表给整合到一个excel文件里

Dim Book As New XLS.Book(ProjectPath & "Attachments\表1.xls")

Dim Sheet As XLS.Sheet = Book.Sheets(0)

Dim Book2 As New XLS.Book(ProjectPath & "Access\表2.xls")

Dim Sheet2 As XLS.Sheet = Book.Sheets(1)

Dim fl As String = ProjectPath & "Access\表2.xls"
Book.Build() '生成细节区
Book.Save(fl) '保存工作簿

[此贴子已经被作者于2016/9/12 22:18:27编辑过]

看最后示例，如果只是复制，忽略帮助的remove一句代码

不单是复制，是在报表输出时，把目标文件原来的同名sheet给覆盖掉，

Dim Book As New XLS.Book(ProjectPath & "Attachments\机械管理使用情况表.xls")

'这是模板的位置，三个模板之一

Dim Book0 As New XLS.Book(ProjectPath & "机械管理使用情况表111.xls")

'该目标是从三个模板中各生成一个sheet，合成后有三个sheet，均以模板直接生成，已经完成了该程序编程（这是其中一个的代码）

Dim fl As String = ProjectPath & "机械管理使用情况表111.xls" ’这是保存的路径，其实就是把老的“机械管理使用情况表111”给更新掉

'希望把目标文件同名的sheet给覆盖掉,格式不变

Dim Sheet = Book.Sheets("机械使用情况表")

Book0.Sheets.Remove("机械使用情况表") ’思路是把111中的原sheet先move掉

Book0.Sheets.Add(Sheet) ’然后再把模板中的sheet先添加过去再生成细节区，可行的话与原格式是一样的
Book0.Build() '生成细节区
Book0.Save(fl) '保存工作簿

'(如何把"机械管理使用情况表111.xls"中的原"机械使用情况表"给替换成新的"机械使用情况表",因为随着管理变化需要不断覆盖新的值,因为同名操作不了，求解)

Dim Proc As New Process '打开工作簿
Proc.File = fl
Proc.Start()

献上实例，求老师解答

[此贴子已经被作者于2016/9/13 17:40:56编辑过]

搞那么复杂干啥，把3个模板sheet都放到同一个xls文件，一起输出不就行

Dim Book As New XLS.Book(ProjectPath & "Attachments\机械管理使用情况表.xls")

Dim fl As String = ProjectPath & "机械管理使用情况表111.xls"

Book.Build() '生成细节区

Book.Save(fl) '保存工作簿

Dim Proc As New Process '打开工作簿

Proc.File = fl

Proc.Start()

下载信息 [文件大小：下载次数： ]
点击浏览该文件:机械管理使用情况表.xls

茅塞顿开~！~~~~菜鸟不熟悉方法，请见谅，谢谢老师图片点击可在新窗口打开查看

主题：[求助]关于excel报表整合问题