有关excel打印报表

Question

dim exl as excel.application
  dim exlbook as excel.workbook
  dim exlsheet as excel.worksheet
  set exl=objectcreate("excel.application")
  exl.visible=false
  set exlbook=exl.workbook.open("...")
  set exlsheet=workbook.sheets(1)
  exlsheet.actiove
  ....
  exl.quit
  当运exl.quit时会弹出一个是否保存的提示框，如何用vb代码
来回答提示框是否要保存

Answer 1

调用SaveAs 存盘  exlsheet.SaveAs

Answer 2

dim exl as excel.application
  dim exlbook as excel.workbook
  dim exlsheet as excel.worksheet
  set exl=objectcreate("excel.application")
  exl.visible=false
  set exlbook=exl.workbook.open("...")
  set exlsheet=workbook.sheets(1)
  exlsheet.actiove
  ....
  if msgbox("你是否要保存Excel文件?",vbquestion+vbyesno)=vbyes then
    exl.ActiveWindow.Close True
  else
    exl.ActiveWindow.Close False
  end if
  exl.quit
  本人以前只試過exl.ActiveWindow.Close False,意思是不保存退出
沒有試過exl.ActiveWindow.Close True這條語句﹐你試一下