能否把“复杂excel报表跨表取数及公式自动计算的完美解决办法“（http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=42596）
例子应用到普通XLS模板打印中：
Dim Book As New
XLS.Book(ProjectPath
&
"Attachments\订单模板.xls")
Dim fl As
String =
ProjectPath
&
"Reports\订单.xls"
Book.Build() '生成细节区
Book.Save(fl) '保存工作簿
Dim
Proc As New
Process
'打开工作簿
Proc.File = fl
Proc.Start()
论坛例子：
Dim Book As New XLS.Book("d:\合并报表模板.xls") '打开模板
Dim Sheet12 As XLS.Sheet = Book.Sheets("静兰") '测试数据
Sheet12(32, 3).value=888 ' 测试数据
Sheet12(35, 6).value=999 '测试数据
Book.Save( "d:\合并报表.xls" )
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open( "d:\合并报表.xls" )
Dim i,N As Integer
N=Wb.WorkSheets.Count
For i=1 To N
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(i)
ws.UsedRange.Formula = ws.UsedRange.Formula
Next
wb.save
wb.close
App.Quit
Dim Proc As New Process
Proc.File = ( "d:\合并报表.xls" )
Proc.Start()
[此贴子已经被作者于2019/5/26 9:38:14编辑过]
加好友 
发短信
Post By：2019/5/25 18:02:00 [显示全部帖子]
