VBA – 另存为 – 运行时错误，如果networking不可访问

我试图将下面的代码保存到networking驱动器的Excel文件。 问题是，如果networking不可访问，则会产生运行时错误。

CAn你请帮助如何修改代码 – 保存在给定的networking驱动器上的文件，如果networking可访问 – 如果没有，保存到本地机器（在副本文件夹中创build一个副本）

谢谢

Dim datum_ As String Dim path_ As String datum_ = Format(Now, "yyyy-mm-dd hh-mm") path_ = "\\networkfolder" 'Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:=path_ & datum_ & ".xlsm" 'Application.DisplayAlerts = True 

Answer 1

 '.... code Application.DisplayAlerts = False On Error Resume Next ActiveWorkbook.SaveAs Filename:=path_ & datum_ & ".xlsm" If Err.Number <> 0 Then ActiveWorkbook.SaveAs Filename:=myLocalPath_ & datum_ & ".xlsm" Application.DisplayAlerts = True On Error Goto 0 ' .... code 

Answer 2

你可以使用error handling，所以如果有错误改变path到本地。

 Dim datum_ As String Dim path_ As String datum_ = Format(Now, "yyyy-mm-dd hh-mm") path_ = "\\networkfolder" On Error GoTo localPath 'Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:=path_ & datum_ & ".xlsm" 'Application.DisplayAlerts = True 'rest of code here Exit Sub localPath: path_ = "insert local path here" ActiveWorkbook.SaveAs Filename:=path_ & datum_ & ".xlsm"