以下是引用dixiaxiaodan在2016/1/14 10:40:00的发言:
Dim Book As New XLS.Book(ProjectPath & "Attachments\可靠性月报2.xls") '打开模板
Dim fl As String = ProjectPath & "Reports\可靠性月报2.xls"
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Dim Dr_Months = DataTables("飞行小时").Find("报表月 <> 0 ") '找出年份列
Sheet(3,20).Value = "<日期 = " & Dr_Months("报表月") & ">" '写入打印条件
Book.Build() '生成报表
Book.Save(fl)
Dim Proc As New Process
Proc.File = fl
Proc.Start()
竟然没有效果
Dim Book As New XLS.Book(ProjectPath & "Attachments\可靠性月报.xls") '打开模板
Dim fl As String = ProjectPath & "Reports\可靠性月报.xls"
Dim Sheet As XLS.Sheet = Book.Sheets(1)
Dim Dr_Months = DataTables("飞行小时").Find("报表月 <> 0 ") '找出年份列
Sheet(3,20).Value = "<月份 = " & Dr_Months("报表月") & " >" '写入打印条件
Book.Build() '生成报表
Book.Save(fl)
Dim Proc As New Process
Proc.File = fl
Proc.Start()
'
发错了,应该是这样写的,但是还是没效果