Dim Book As New XLS.Book(ProjectPath & "Attachments\出库单.xls") Dim r As Row = Tables("表A").current Dim fl As String = ProjectPath & "Reports\" & r("第一列") & ".xls" Book.Build() '生成细节区 Book.Save(fl) '保存工作簿 Dim Proc As New Process '打开工作簿 Proc.File = fl Proc.Start()