|
Dim Book As New XLS.Book(ProjectPath & "Attachments\生产请购单.xls") '打开模板
Dim fl As String = ProjectPath & "Reports\" & Tables("表名").current("产品型号") & ".xls"
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Sheet(7,2).Value = "制单人:" & User.Name '加入制单人信息
Book.Build() '生成报表
Book.Save(fl)
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
App.Visible = True
Ws.PrintPreview
App.Quit
|
加好友 
发短信
Post By：2015/5/8 17:17:00 [显示全部帖子]
