保存路径不存在时的宏错误处理 [英] Macro error handling when save path doesnt exist
本文介绍了保存路径不存在时的宏错误处理的处理方法,对大家解决问题具有一定的参考价值,需要的朋友们下面随着小编来一起学习吧!
问题描述
我使用以下代码将备份版本保存到几个不同的外部备份位置以及原始文件中.有时尽管两个外部备份驱动器中的任何一个未连接,但都会产生错误.
I use the following code to save backup versions to a couple different external backup locations and to the original file. Sometime though either of the external backup drives is not connected and generates an error.
如何跳到下一行代码以执行其他两次保存?发生这种情况时,我还将添加一个消息框.
How can I skip to the next line of code to execute the other two saves? I will also be adding a message box when this happens.
Sub SaveToLocations()
' Saves active file to current plus two other backup locations, appends date and time in front of file name
Dim datim As String
datim = Format(CStr(Now), "yyyy_mm_dd_hh_mm_ss_")
ActiveWorkbook.SaveCopyAs "I:\FBackupCS\" & datim & ActiveWorkbook.Name
ActiveWorkbook.SaveCopyAs "E:\CS Docs\FBackupCS\" & datim & ActiveWorkbook.Name
ActiveWorkbook.Save
End Sub
推荐答案
您可以使用以下功能
Function wkbSaveCopyAs(ByVal wkb As Workbook, ByVal fName As String) As Boolean
On Error GoTo EH
wkb.SaveCopyAs fName
wkbSaveCopyAs = True
EH:
End Function
在这样的代码中
Sub SaveToLocations()
' Saves active file to current plus two other backup locations, appends date and time in front of file name
Dim datim As String
datim = Format(CStr(Now), "yyyy_mm_dd_hh_mm_ss_")
'ActiveWorkbook.SaveCopyAs "I:\FBackupCS\" & datim & ActiveWorkbook.Name
If Not wkbSaveCopyAs(ActiveWorkbook, "I:\FBackupCS\" & datim & ActiveWorkbook.Name) Then
MsgBox "Ups, not saved", vbOKOnly
End If
'ActiveWorkbook.SaveCopyAs "E:\CS Docs\FBackupCS\" & datim & ActiveWorkbook.Name
If Not wkbSaveCopyAs(ActiveWorkbook, "E:\CS Docs\FBackupCS\" & datim & ActiveWorkbook.Name) Then
MsgBox "Ups, not saved", vbOKOnly
End If
ActiveWorkbook.Save
End Sub
这篇关于保存路径不存在时的宏错误处理的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!
查看全文