这种代码能够执行？！！Build是XLS.Book的功能，不是vba的。XLS.Book和vba的MSExcel.Application是两种完全不一样的功能，不要乱套。如果要先生成模板，参考
Dim Book As New XLS.Book(ProjectPath & "Attachments\出库单.xls")
Dim fl As String = ProjectPath & "Reports\出库单.xls"
Book.Build() '生成细节区
Book.Sheets(0).Rows.RemoveAt(0) '删除第一行,Excel报表的第一行通常是标记行
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)
wb.saved = True
App.DisplayAlerts = False
App.Visible = False
Ws.PrintOut(Preview:=False) '直接打印;
Wb.Close
App.Quit
加好友 
发短信
Post By：2023/7/10 19:25:00 [只看该作者]
