[發問] 不儲存直接關閉

yuras

vb 新手上路，要請教各位高手:P
下面是我的程式碼 那要如何 執行Application.Quit後 不存檔直接關閉檔案
試很久都不成功 謝謝 !!

Sub getnewbook()

Application.DisplayAlerts = False

With Sheets("sheet2")

   .Copy

   With ActiveWorkbook

    ActiveWorkbook.SaveAs Filename:="D:\成本試算表" & Format(Date, "MMDD") & ".xls"
    ActiveWorkbook.Close True
  End With

Application.DisplayAlerts = True
Application.Quit
End With


End Sub

Private Sub Workbook_Open()
Call 按鈕6_Click
End Sub

kimbal

試試改成這樣?
Application.DisplayAlerts = True
Application.Quit
->
Application.DisplayAlerts = FALSE  '或刪去,因為上面已有
Application.Quit

yuras

3Q 3Q 謝謝

smooth131

workbooks("book1.xls").close savechanges := false

是這個意思嗎？

buysellman88

請問為啥無法~指令錯誤 是否能提供較完整的CODE