VB调用excel时遇到的问题

程序开始打开一个指定的excel表格（我把它作为模板，不希望其被改变），然后通过串口将下位机采集的数据写入表格中，再通过commondialog控件将这个excel表格另存为一个excel文件。窗口上其中有两个按钮，一个是“保存文件”，另一个是“退出系统”。
我遇到的问题是：按“保存文件”按钮，将其另存为后，再按“退出系统”按钮，没有什么问题；但如果我不想保存文件，直接按“退出系统”按钮时，自动弹出是否保存excel表格得窗口，因为我不想保存文件，因此我也不想让这个窗口弹出，而是直接放弃保存。我在网上查到xlapp.ActiveWorkbook.saved=.t. 是放弃存盘 ，但我加到语句后，语法错误，我改成 xlapp.ActiveWorkbook.saved=false，程序可运行，但还是弹出是否保存的窗口。
我想请教一下，怎样才能放弃存盘呢？下面是两个按钮的程序：
'-----------------------------------------------
'    保存文件
'-----------------------------------------------
Private Sub Command1_Click()
On Error GoTo Err
CommonDialog1.Filter = "excel|*.xls"
CommonDialog1.Action = 2                '文件保存
a = CommonDialog1.FileName
ActiveWorkbook.SaveAs FileName:=a       'excel另存为
Err:
'用户按了“取消”按钮。
Exit Sub
End Sub
'-----------------------------------------------
'    退出系统
'-----------------------------------------------
Private Sub Command2_Click()
'xlapp.ActiveWorkbook.Saved = False                          '放弃存盘
xlbook.Close                                                 '关闭EXCEL工作簿
xlapp.Quit
Set xlapp = Nothing                                          '释放EXCEL对象
If MSComm1.PortOpen = True Then MSComm1.PortOpen = False     ' 关闭串口
Unload Me    ' 卸载窗体
End
End Sub 我的