Через код VBA организована подмена файла новым с переносом исходных данных.
И все хорошо когда файл лежит локально... и проходит на ура! Только скрываю запрос на замену...
Вот кусок кода...
Но как только файл перемещается на сетевую папку как метод iBook.SaveAs old_FileName пишет ошибку "method saveas of object workbook failed"
Как я понял в данной ситуации не выходит запрос на перезапись файла совсем... он просто не освобождается пересохранением...
Как обойти ситуацию??? в чем может быть проблема???
И все хорошо когда файл лежит локально... и проходит на ура! Только скрываю запрос на замену...
Вот кусок кода...
Код |
---|
old_FileName = ThisWorkbook.FullName ' сохраним в архив текущую книгу ThisWorkbook.SaveAs ThisWorkbook.Path & "\arhive_RemontKP_" & Format(Now, "YYYY-MM-DD-HHMMSS") & ".xlsm" ' заменить старый файл новой версией Application.DisplayAlerts = False iBook.SaveAs old_FileName Application.DisplayAlerts = True |
Как я понял в данной ситуации не выходит запрос на перезапись файла совсем... он просто не освобождается пересохранением...
Как обойти ситуацию??? в чем может быть проблема???