Akinanataxa23пока шаблон висит подключенный, но это не вариант каждый раз переподключать шаблон.Что в данном случае есть "шаблон"?
nataxa23После работы макроса в ворде функцией ShellExecute открываю созданную папку.Что в данном случае есть "открываю"?
nataxa23выходит сообщение об ошибке при удалении файла или папки. Просит закрыть программу, которая эту папку использует.
Если в предыдущем вопросе ответ - отдельное окно explorer, то это нормально. И теоретически эксплорер будет держать захват до тех пор, пока не будет выгружен как минимум файл, из модуля которого выполнялся браузинг, а скорее всего - до выгрузки из памяти воркспейса, в котором был открыт документ с макросом.
Не совсем понятны встречные вопросы:
Мой шаблон «.dot» для MS Word.
По завершению работы макроса в самом конце моя последняя процедура выполняет последнее действие "открыть созданную новую папку", которая была создана в процессе работы всего макроса.
Если эту папку пользователь закрывает и пытается удалить с диска, то винда выдает сообщение об ошибке как на скриншоте. Ну а дальше программа Unloker предлагает свои действия.
Ругается явно на мою последнюю процедуру в которой я через "ShellExecute" запускаю открытие моей папки, потому что как показала проверка, если последнюю процедуру не использовать, то папка удаляется без всяких препятствий.
Как правильно доработать код, чтобы папка не была привязана к моему шаблону?
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
Private Sub ОткрытьПапку()
'Открыть/Показать папку
On Error GoTo ErrNumber
'==============================================
If strPathReSaves <> "" Then
If Dir(strPathReSaves, vbDirectory) <> "" Then 'Если папака существует
Call ShellExecute(0&, vbNullString, strPathReSaves, vbNullString, vbNullString, vbNormalNoFocus)
strPathReSaves = ""
End If
End If
'==============================================
Exit Sub
ErrNumber:
If Error <> 0 Then
MsgBox Err.Description, , "№ " & Err.Number & ", Процедура: «ОткрытьПапку»"
Exit Sub
End If
End Sub
