- 帖子
- 218
- 主題
- 73
- 精華
- 0
- 積分
- 290
- 點名
- 0
- 作業系統
- WIN10
- 軟體版本
- Office2010
- 閱讀權限
- 20
- 性別
- 女
- 註冊時間
- 2014-5-19
- 最後登錄
- 2022-11-29
|
回復 17# zyzzyva
z大~~~~結果公司又要將備份檔改放於像之前寫的那樣，放在檔案下一層備份資料夾內mypath = ThisWorkbook.Path & "\備份\"
結果我嘗試改了一下但都不對，可以再麻煩您嗎~~~~
紅色是我自己亂改的
- Private Sub Workbook_BeforeClose(Cancel As Boolean)
- Dim mypath As String, fname As String
- fname = "\自動備份" & Format(Date, "yymmdd") & ".xlsx"
- mypath = ThisWorkbook.Path & "\備份\"
- Targetfile = mypath & fname
- If Not Me.Saved Then
- Msg = "Do you want to save the changes you made to "
- Msg = Msg & Me.Name & "?"
- Ans = MsgBox(Msg, vbQuestion + vbYesNoCancel)
- Select Case Ans
- Case vbYes
- Me.Save
- Case vbNo
- Me.Saved = False
- Case vbCancel
- Cancel = True
- Exit Sub
- End Select
- End If
- If Me.Saved Then
- Application.DisplayAlerts = False '關閉系統警告訊息
- 'ThisWorkbook.Save '要儲存自身檔案，請自行選擇要不要儲存
- If Dir(Targetfile) <> "" Then
- If GetAttr(Targetfile) And vbReadOnly Then
- SetAttr Targetfile, vbNormal
- End If
- End If
- ThisWorkbook.SaveAs mypath & fname, FileFormat:=xlOpenXMLWorkbook
- Application.DisplayAlerts = True '開啟系統警告訊息
- Else
- Me.Saved = True
- End If
- If Dir(Targetfile) <> "" Then
- If GetAttr(Targetfile) Then
- SetAttr Targetfile, vbReadOnly
- End If
- End If
- End Sub
|
|
發表於 2016-8-20 01:19
| 
