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