- 帖子
- 16
- 主題
- 10
- 精華
- 0
- 積分
- 41
- 點名
- 0
- 作業系統
- WINDWOS 7
- 軟體版本
- OFFICE 2003
- 閱讀權限
- 10
- 性別
- 女
- 來自
- 台灣
- 註冊時間
- 2010-10-12
- 最後登錄
- 2014-7-7
|
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 |
|
發表於 2011-8-25 00:03
| 
