Application.DisplayAlerts = False '禁止弹出保存替换提示消息
'5 excel文件保存和备份
Sub w5()
Dim wb As Workbook
Set wb = ThisWorkbook
wb.Save
wb.SaveCopyAs "D:/ABC.xls"
End Sub
On Error Resume Next '错误继续
MkDir "D:\" & "备份" '建文件夹 ThisWorkbook.Path
不管存不存在都建一下。
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024