以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  xls模板打印，不生成文件，能显示吗？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=128819)
--  作者：明天的灵
--  发布时间：2018/12/15 18:54:00
--  xls模板打印，不生成文件，能显示吗？

以下代码是xls模板打印。如果不生成文件（即不保存文件），能显示吗？

Dim Book As New XLS.Book(ProjectPath & "Attachments\\订单.xls") \'打开模板
Dim fl As String = ProjectPath & "Reports\\订单.xls"
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Sheet(3,0).Value = "<窗口1_Table1>"  \'写入表名
Book.Build() \'生成报表
Book.Save(fl)
Dim Proc As New Process
Proc.File = fl
Proc.Start()
--  作者：有点甜
--  发布时间：2018/12/16 21:52:00
--  

不生成文件，无法显示的。

 

你可以显示以后，关闭以后，把文件删除，如

 

Dim fl = "d:\\test.xls"
Dim Proc As New Process
Proc.File = fl
proc.WaitForClose = True
Proc.Start()

FileSys.DeleteFile(fl, 2, 2)
--  作者：明天的灵
--  发布时间：2018/12/17 20:38:00
--  
这个也不是太理想，打开后，要等待关闭XLS才能回到狐表界面，并且有点等待处理时间。
--  作者：有点蓝
--  发布时间：2018/12/17 21:02:00
--  
不想生成文件只能使用专业报表了