With Tables("开卷反馈表") .Select(0,0, .Rows.Count - 1, .Cols.Count - 1) End With Dim Book As New XLS.Book(ProjectPath & "Attachments\月度反馈表.xls") Dim Sheet As XLS.Sheet = Book.Sheets(0) Book.Build() Book.Save(ProjectPath & "Attachments\11.xls") Dim Proc As New Process Proc.File = ProjectPath & "Attachments\11.xls") Proc.Start()