Dim Book As New xls.Book(ProjectPath & "Attachments\BOMPrice.xlsx") Dim fl As String = ProjectPath & "Reports\BOMPrice.xlsx" Book.Build() '生成细节区 Book.Sheets(0).Rows.RemoveAt(0) '删除第一行,Excel报表的第一行通常是标记行 Book.Save(fl) '保存工作簿 Dim Proc As New Process '打开工作簿 Proc.File = fl Proc.Start()