|
求助如何修改上面这段代码关闭excel自动保存备份到 D盘:\备份文件夹内\以工作薄名称_ 年月日 _时分秒 命名作保存
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("事业单位工作人员基本情况表").Unprotect "695360052"
If Not Me.Saved Then
Me.Save
End If
Me.SaveAs "D:\备份\备份_" & Format(Now(), "yyyymmdd_hhmmss") & ".xls"
Application.Quit
End Sub
- Private Sub Workbook_BeforeClose(Cancel As Boolean)
- Sheets("事业单位工作人员基本情况表").Unprotect "695360052"
- If Not Me.Saved Then
- Me.Save
- End If
- Dim filename$
- If ThisWorkbook.Name Like "*_*" Then
- filename = Left(ThisWorkbook.Name, InStr(ThisWorkbook.Name, "_") - 1) & Format(Now(), "yyyymmdd_hhmmss") & "." & Split(ThisWorkbook.Name, ".")(1)
- Else
- filename = Split(ThisWorkbook.Name, ".")(0) & "_" & Format(Now(), "yyyymmdd_hhmmss") & "." & Split(ThisWorkbook.Name, ".")(1)
- End If
- Me.SaveAs "D:\备份" & filename
- Application.Quit
- End Sub
复制代码
|
|