Здравствуйте!!
Нужна помощь что не так стало с кодом макроса сохранения файла при закрытии, в другой папке, до перехода на EXEL 2016 и Win10 всё прекрасно работало, сейчас же при закрытии файла макрос удаляет предыдущий файл из нужной папки и не записывает новый , при повторно открытии и закрытии файла, файл записывается.
Заранее благодарю!
Нужна помощь что не так стало с кодом макроса сохранения файла при закрытии, в другой папке, до перехода на EXEL 2016 и Win10 всё прекрасно работало, сейчас же при закрытии файла макрос удаляет предыдущий файл из нужной папки и не записывает новый , при повторно открытии и закрытии файла, файл записывается.
Заранее благодарю!
Код |
---|
Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim x As String strPath = "\\Cn4-opdir-server\opdir\Groups\ROL-INV\COMMON.DIR\BACK OFFICE" On Error Resume Next x = GetAttr(strPath) And 0 If Err = 0 Then ' еспн ўуть существует - сџхЇаљяер оџўню ољнгн Application.DisplayAlerts = False FileNameXls = strPath & "\" & Left(ActiveWorkbook.Name, _ Len(ActiveWorkbook.Name) - 4) & "xlsm" ActiveWorkbook.SaveCopyAs Filename:=FileNameXls Application.DisplayAlerts = True Else 'еспн ўуть ље существует - вывџднр сџџбщељне MsgBox "Papka " & strPath & " nedostupna ili ne suchestvuet!", vbCritical End If End Sub |