Как сохранить книгу Excel, когда файл уже существует?

Question

Я использую этот макрос для сохранения своей книги:

sNewFilePath = ActiveWorkbook.Path

ActiveWorkbook.SaveAs Filename:=sNewFilePath & "/" &Range("A1")

Но если файл уже существует, и я "Отмена" или выбираю "Нет", я получаю ошибку VBA.Я новичок в VBA, поэтому я не могу понять, что и где добавить функции в макрос, чтобы он работал ...

Answer 1

Используя функцию Dir(), вы можете проверить, существует ли файл и определить, что делать.

Пример

if Dir("C:\ScrubRetValFile.txt") = "" Then
    msgbox "File not founded"
else
    msgbox "File founded"
End if

Приветствия.