以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]报表问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=83745)
--  作者：why305
--  发布时间：2016/4/15 18:17:00
--  [求助]报表问题
1、有十张设计好的报表，怎么实现一键填写多张报表。
2、一键填完的报表怎么保存到制定的文件夹？

如果能实现这个功能真是解决了大大的问题了了，会被领导夸死了。

老师和大师们能不能帮帮忙。
--  作者：Hyphen
--  发布时间：2016/4/16 9:07:00
--  
循环打印单张报表的操作方式不就行


Dim tn() As String = {"报表A","报表B"}
For i As Integer = 0 To tn.Length
    Dim Book As New XLS.Book(ProjectPath & "Attachments\\" & tn(i) & ".xls") \'打开模板
    Dim fl As String = ProjectPath & "Reports\\" & tn(i) & ".xls"
    Dim Sheet As XLS.Sheet = Book.Sheets(0)
    Book.Build() \'生成报表
    Book.Save(fl)
Next