返回列表下一主題上一主題發帖

[發問] 不儲存直接關閉

yuras

小學生 Rank: 1

帖子: 16
主題: 10
精華: 0
積分: 41
點名: 0
作業系統: WINDWOS 7
軟體版本: OFFICE 2003
閱讀權限: 10
性別: 女
來自: 台灣
註冊時間: 2010-10-12
最後登錄: 2014-7-7

論壇贊助勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 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