Dim xh1 As String
xh1=Tables("课程表").Current("序号")
Dim Book As New XLS.Book(ProjectPath & "Attachments\升班通知1.xls") '打开模板
Dim fl As String = ProjectPath & "Reports\升班通知1.xls"
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Sheet(2,7).Value = "<序号 = " & xh1 & ">"
Book.Build() '生成报表
Book.Save(fl)
Dim Proc As New Process
Proc.File = fl
Proc.Start()
Dim Book As New XLS.Book(ProjectPath & "Attachments\升班通知1.xls") '打开模板
Dim fl As String = ProjectPath & "Reports\升班通知1.xls"
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Sheet(2,7).Value = "<序号 = 'E002'>"
Book.Build() '生成报表
Book.Save(fl)
Dim Proc As New Process
Proc.File = fl
Proc.Start()
加好友 
发短信
Post By：2016/2/16 21:03:00 [显示全部帖子]
