vb调用excel 问题

Question

vb调用excel 问题
Dim   xlApp   As   Excel.Application   
  Dim   xlBook   As   Excel.Workbook   
    
  '   Open   the   destination   Excel   workbook.   
  Set   xlApp   =   New   Excel.Application   
  Set   xlBook   =   xlApp.Workbooks.Open("D:\Book1.xls")   
  ......   
    
  '   Clean   up   everything.   
  xlBook.Save   
  xlBook.Close   False   
  xlApp.Quit   
  Set   xlBook   =   Nothing   
  Set   xlApp   =   Nothing
vb调用excel 后,退出时系统提示"是否保存",如果保存用xlBook.Save就行.如果不保存,xlbook.后用什么语句

Answer 1

    xlApp.DisplayAlerts = False
    
    xlApp.Quit