Excel模板报表参考这个 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.Verb = "Print" '指定动作 Proc.Start()
|