Программное создание книги

[Волк]

Программное создание книги и если она есть то не заменять ее(при этом чтобы не выкидывалось окна с вопросом)DisplayAlerts не помогает. Окно не всплывает, но программа отвечает автоматически "да". Что делать?

[EducatedFool]

DisplayAlerts не помогает

Ещё как помогает

Что делать?

Сформулировать вопрос нормально.

Попробуйте что-то вроде этого:

Sub test()
    Путь = "C:\Documents and Settings\Игорь\Рабочий стол\test.xls"
    Dim WB As Workbook
    If Dir(Путь) <> "" Then    ' если файл существует
        Set WB = Workbooks.Open(Путь)    ' открываем книгу
        WB.Worksheets(1).[a1] = Now  ' заносим данные
    Else ' файл НЕ существует
        Set WB = Workbooks.Add    ' создаём новую книгу
        WB.Worksheets(1).[a1] = Now  ' заносим данные
        WB.SaveAs Путь    ' сохраняем её по указанному пути
    End If
    WB.Close False    ' закрываем книгу
End Sub

[Волк]

Книга есть в папке но ее там может и не быть если просто создаешь то он выкидывает сообщение книга мол есть заменить или нет как сделать чтобы сообщение не выходило а он автоматически отвечал нет?