请教老师，这段代码该怎么精简？
鉴于尽管可以跳过某些正常excel表生成报表，但发现生成的报表中，其他excel表的数据链接全都失效，即使特意在模版中加插一列，
让生成后的报表，被链接数据的单元格位置保持一致，还是不行。
所以想通过以下代码另类集成，但要是十几张表这么运行，感觉会很吃内存，该怎么精简？
或者说，最主要的是下面所示的C表，把C表数据在直接复制粘贴到总工作簿中对应的sheet就可以了...总工作簿的其他十多张表都是通过C表进行数据链接以及计算的。
我现在是生成C表后，手动复制粘贴。。
Dim Book1 As New XLS.Book("c:\LS1.xls")
Book1.Build() '生成细节区
Book1.Save("c:\reports\LS1.xls") '保存临时工作簿1
Dim Book2 As New XLS.Book("c:\LS2.xls")
Book2.Build() '生成细节区
Book2.Save("c:\reports\LS2.xls") '保存临时工作簿2
Dim Book3 As New XLS.Book("c:\LS3.xls")
Book3.Build() '生成细节区
Book3.Save("c:\reports\LS3.xls") '保存临时工作簿3
Dim A1 = Book1.Sheets("A表")
Dim B2 = Book2.Sheets("B表")
Dim C3 = Book3.Sheets("C表")
Dim Book4 As New XLS.Book("c:\总表.xls") '定义总工作簿
Book1.Sheets.Remove(A1)
Book4.Sheets.Insert(0,A1)
Book2.Sheets.Remove(B2)
Book4.Sheets.Insert(3,B2)
Book3.Sheets.Remove(C3)
Book4.Sheets.Insert(5,C3) '把各个临时工作簿生成的报表插入至总工作簿指定位置
Book4.Save("c:\reports\总表.xls") '保存
FileSys.DeleteFile("c:\reports\LS1.xls",2,2)
FileSys.DeleteFile("c:\reports\LS2.xls",2,2)
FileSys.DeleteFile("c:\reports\LS3.xls",2,2) '删除所有临时工作簿
Dim Proc As New Process
Proc.File = "c:\reports\总表.xls"
Proc.Start() '打开总工作簿
加好友 
发短信
Post By：2019/8/28 19:29:00 [只看该作者]
