红色部分怎么调整都不对,不知什么规律?
'指定鼠标所在位置的项目名称为唯一值
Dim Book As New XLS.Book(ProjectPath & "Attachments\跟踪核算.xls") '打开模板
Dim fl As String = ProjectPath & "Reports\跟踪核算.xls"
Dim Sheet As XLS.Sheet = Book.Sheets("费用进度分析")
sheet(1,5).Value = "<项目名称= '" & Tables("工程项目").Current("项目名称") & "'>" '写入打印条件
sheet = Book.Sheets("企划书跟踪核算")
sheet(1,8).Value = "<项目名称= '" & Tables("工程项目").Current("项目名称") & "'>" '写入打印条件
sheet = Book.Sheets("措施跟踪表")
sheet(1,11).Value = "<项目名称= '" & Tables("工程项目").Current("项目名称") & "'>" '写入打印条件
Book.Build() '生成报表
Book.Save(fl)
Dim Proc As New Process
Proc.File = fl
Proc.Start()