FileCopy: файл уже существует - ошибка времени выполнения '70' В доступе отказано ' - PullRequest
Новая
       22

FileCopy: файл уже существует - ошибка времени выполнения '70' В доступе отказано '

0 голосов
/ 02 мая 2018

пытается настроить технику обработки ошибок в этом бите, который у меня есть. 

Dim str1 As String
Dim PlanDocTemplate As String
Dim answer1 As String

answer1 = MsgBox("Is this Workbook saved in the appropriate folder?", vbYesNo + vbQuestion)

If answer1 = vbNo Then
    MsgBox ("Please save this Workbook in the appropriate folder then run again.")
    Exit Sub
Else
    'do nothing
End If

str1 = "C:\user\desktop\document.docx"
PlanDocTemplate = Application.ActiveWorkbook.path & "\" & Range("A1").Value & ".docx"

Call FileCopy(str1, PlanDocTemplate)

Теперь в настоящее время это работает нормально, но если пользователь запускает макрос один раз, а затем снова без удаления / переименования документа, созданного из макроса, это приводит к ошибке выполнения 70.

Хотите знать, как лучше всего справиться с этой ошибкой? Могу ли я, чтобы vba спросил пользователя Да / Нет "Хотите удалить исходный существующий документ?" «Нет» завершит работу над «Sub», а «Да» удалит исходный документ и продолжит работу с остальным моим кодом.

Спасибо всем, Рич

...