標題: [發問] 不儲存直接關閉 [打印本頁]

---

作者: yuras    時間: 2011-8-25 00:03     標題: 不儲存直接關閉

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    時間: 2011-8-25 00:23

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

---

作者: yuras    時間: 2011-8-25 06:27

3Q 3Q 謝謝

---

作者: smooth131    時間: 2011-8-25 22:37

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

是這個意思嗎？

---

作者: buysellman88    時間: 2011-9-5 11:54

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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)