如果在VB中保存一個excel文檔呢

Question

當目錄里沒有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

Answer 1

appexcel.ActiveWorkbook.SaveAs App.Path & "\a.xls"
appexcel.Quit