VBA - SaveAs - ошибка времени выполнения, если сеть недоступна

Question

Я пытаюсь сохранить файл excel в сетевой диск с кодом ниже. Проблема в том, что если сеть недоступна, она дает ошибку времени выполнения.

пожалуйста, вы можете помочь, как изменить код - для сохранения файла на данном сетевом диске, если сеть, доступную - если нет, то сохранить в локальную машину (создать копию в папке doucuments)

Благодарности

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

Вы можете использовать обработку ошибок, поэтому, если есть ошибка, измените путь к чему-то локальному.

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"