Dim Book As New XLS.Book(ProjectPath & "Attachments\\内贸船公司订舱单.xls") \'打开模板
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Sheet(8,1).Value = "制单人:" & User.Name \'修改模板,加入制单人信息
Book.Build() \'生成细节区
Book.Save("c:\\reports\\内贸船公司订舱单.xls") \'保存工作簿
Dim Proc As New Process \'打开工作簿
Proc.File = "c:\\reports\\内贸船公司订舱单.xls"
Proc.Start()