Вопрос о oExcel.Quit

[Alp]

Простенький код на забытом VB6 ))) но любимом )))
Dim oExcel As Object
Dim oBook As Object
Dim oSheet As Object
Set oExcel = CreateObject("Excel.Application")
Set oBook = oExcel.Workbooks.Open("C:\VCD\Book121.xls")
Set oSheet = oBook.Worksheets(1)
oSheet.Range("A5").Value = "500"
temp = oSheet.Range("B5").Value
'oBook.Save ("C:\VCD\Book121.xls")
oExcel.Quit
Вылетает msgbox с вопрос хотите ли вы сохранить файл C:\VCD\Book121.xls, три варианта ответа да нет и отмена.
Вопрос: Как сделать так чтобы этот мессидж не было видно и нажимался ответ ДА.
В гугле по oExcel.Quit вообще нет ни какого описания.
побывал oExcel.Quit(true) и кучу других глупых вариантов не помогает

[Antonariy]

Циничное нарушение правил + циничная ложь:

В гугле по oExcel.Quit вообще нет ни какого описания.

Сейчас кто-то будет цинично забанен.

[Alp]

Строчка 'oBook.Save ("C:\VCD\Book121.xls")
это одна из попыток решить проблему
первоначально было oBook.SaveAs "C:\VCD\Book121.xls"
Но появлялся тот же меседж так что строчку oBook.SaveAs ("C:\VCD\Book121.xls") можно вообще убрать

[Alp]

А можно объяснить и обосновать в чем лож.

[Хакер]

[Хакер] :: Первое нарушение. Тема переносится в обычный раздел.

[Alp]

Excel.Quit

Скинь ссылку обоснуй.

[FireFenix]

Quit

2ая строка в гугле http://msdn.microsoft.com/en-us/library/bb223560.aspx
там же пример с cохранением

[Qwertiy]

побывал oExcel.Quit(true) и кучу других глупых вариантов не помогает

Код: Выделить всё

objWord.Quit False ' Закрытие Word'а без сохранения, наверное, Excell'я - тоже
objDoc.Close False ' Завкрытие документа без сохранения

[ger_kar]

Вылетает msgbox с вопрос хотите ли вы сохранить файл C:\VCD\Book121.xls, три варианта ответа да нет и отмена.Вопрос: Как сделать так чтобы этот мессидж не было видно и нажимался ответ ДА.

Т.е. насколько я понял надо сохранить книгу и выйти, если так, то что мешает использовать oBook.Save? Причем имя файла указывать не надо, так как метод вызывается без параметров.

[JohnK]

Я обычно так делаю:

Код: Выделить всё

oExcel.Visible = False
oExcel.AlertBeforeOverwriting = False
oExcel.DisplayAlerts = False


[Samovar]

Код: Выделить всё

oBook.Saved=True

А потом делайте что хотите.