Что нового

Excel Как можно включить или отключить диалоговое окно при закрытии программы

pvnn

Осваивающий
Сообщения
305
Репутация
32
Всем доброго времени суток.
Открываю Excel без возможности показа диалоговых окон, но в конце работы скрипта появляется необходимость отображения диалогового окна при нажатии на крестик.
Это можно реализовать?


Код:
#include <Excel.au3>

 $oExcel = _Excel_Open(False,False,Default,Default,True)
 $oWorkbook1=_Excel_BookNew($oExcel)	; Создать Excel-книгу1
 $oWorkbook2=_Excel_BookNew($oExcel)	; Создать Excel-книгу2
 ; Какая-то обработка
 _Excel_BookClose($oWorkbook2) 		; Закрыть Excel-книгу2 без диалогового окна, так как _Excel_Open параметр $bDisplayAlerts = False
 $oExcel.Visible = True 				; Отобразить Excel-книгу1
; Как снова включить диалоговое окно при нажатии на крестик?
 
Автор
P

pvnn

Осваивающий
Сообщения
305
Репутация
32
InnI код
Код:
$oExcel.DisplayAlerts = True
не работает

Код:
#include <Excel.au3>

 $oExcel = _Excel_Open(False,False,Default,Default,True)
 $oWorkbook1=_Excel_BookNew($oExcel)	; Создать Excel-книгу1
 $oWorkbook2=_Excel_BookNew($oExcel)	; Создать Excel-книгу2
 ; Какая-то обработка
 _Excel_BookClose($oWorkbook2) 			; Закрыть Excel-книгу2 без диалогового окна, так как _Excel_Open параметр $bDisplayAlerts = False
 $oExcel.Visible = True 				; Отобразить Excel-книгу1
; Как снова включить диалоговое окно при нажатии на крестик?
 $oExcel.DisplayAlerts = True			; Не работает


Добавлено:
Сообщение автоматически объединено:

Заработало вот так:
Код:
$oExcel.DisplayAlerts = True
 $oExcel.ActiveWorkBook.Saved = False


Код:
#include <Excel.au3>

 $oExcel = _Excel_Open(False,False,Default,Default,True)
 $oWorkbook1=_Excel_BookNew($oExcel)	; Создать Excel-книгу1
 $oWorkbook2=_Excel_BookNew($oExcel)	; Создать Excel-книгу2
 ; Какая-то обработка
 _Excel_BookClose($oWorkbook2) 			; Закрыть Excel-книгу2 без диалогового окна, так как _Excel_Open параметр $bDisplayAlerts = False
 $oExcel.Visible = True 				; Отобразить Excel-книгу1
; Как снова включить диалоговое окно при нажатии на крестик?
 $oExcel.DisplayAlerts = True
 $oExcel.ActiveWorkBook.Saved = False

InnI спасибо за подсказку. Тема решена
 
Верх