如果在VB中保存一個excel文檔呢,该怎么解决

如果在VB中保存一個excel文檔呢
當目錄里沒有a.xls文件，則創建。
但用下列語句.quit時會提示保存對話框。我的意思就是不要出現那個對個框而直接保存為a.xls。不知有什麼方法?
  Dim   appexcel   As   New   Excel.Application
    Dim   workspc   As   Workbook
    Dim   worksh   As   Excel.Worksheet
   
        Set   workspc   =   appexcel.Workbooks.Add
Set   worksh   =   workspc.Worksheets.Add


    worksh.Cells(1,   1)   =   "MFG中料號 "
    worksh.Cells(1,   2)   =   "料號描述 "
    worksh.Cells(1,   3)   =   "原料 "
    worksh.Cells(1,   4)   =   "工單ID "
    worksh.Cells(1,   5)   =   "工單 "
      worksh.Cells(1,   6)   =   "工單ID需求個數 "
      worksh.Cells(1,   7)   =   "供應商 "
          worksh.Cells(1,   8)   =   "產品組 "
            worksh.Cells(1,   9)   =   "日期 "
     
appexcel.Quit


[解决办法]
appexcel.ActiveWorkbook.SaveAs App.Path & "\a.xls "
appexcel.Quit