Dim Book As New XLS.Book(ProjectPath & "Attachments\\测试项目.xls")
Dim fl As String = ProjectPath & "Reports\\" & Date.Today() & ".xls"
Book.Build() \'生成细节区
Dim Sheet As XLS.Sheet = Book.Sheets(0) \'引用工作簿的第一个工作表
Book.Save(fl) \'保存工作簿
Dim Proc As New Process \'打开工作簿
Proc.File = fl
Proc.Start()