Dim Book As New XLS.Book(ProjectPath & "Attachments\二维码.xls") '打开模板
Dim fl As String = ProjectPath & "Reports\" & Tables("二维码").current("管理号码") & "-" & Tables("二维码").current("管理号码1") & ".xls"
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Sheet(3, 1).Value = "制作人:" & User.Name
Sheet(2,9).Value = "<[生产日期] = # " & Date.Today & "#>" '写入打印条件
Book.Build() '生成报表
Book.Save(fl)
Dim Proc As New Process
Proc.File = fl
Proc.Start()
加好友 
发短信
Post By：2017/6/26 23:08:00 [显示全部帖子]
