Dim Book As NewXLS.Book(ProjectPath&"Attachments\订单.xls") '打开模板 Dim fl As String = ProjectPath&"Reports\订单.xls" Dim Sheet As XLS.Sheet = Book.Sheets(0) Sheet(3,9).Value = "<日期 = # "&Date.Today&"#>"'写入打印条件 Book.Build() '生成报表 Book.Save(fl) Dim Proc As NewProcess Proc.File = fl Proc.Start()
加好友 
发短信
Post By：2019/10/9 19:29:00 [只看该作者]
