Dim Book As New XLS.Book(ProjectPath & "Attachments\订单.xls") '打开模板Dim Sheet As XLS.Sheet = Book.Sheets(0)Sheet(3,9).Value = "<用户名 = '" & Product & "'>" '写入打印条件
Book.Build() '生成报表Book.SaveAs("d:\" & Product & ".xls")