Dim Book As New XLS.Book(ProjectPath & "Attachments\\指令.xls")
Dim fl As String = ProjectPath & "Reports\\指令落实情况表.xls"
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Sheet(3,7).Value = "< 文件编号 > \'" & vars("tartnum") & "\'> " \'写入打印条件 如果是数值列 "< 文件编号 > " & vars("tartnum") & "> "
Book.Build() \'生成细节区
Book.Save(fl) \'保存工作簿
Dim Proc As New Process \'打开工作簿
Proc.File = fl
Proc.Start()