Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
Серый форум → Общение → Windows Script Host, HTA (VBScript, JScript) → WSH: Закрыть Excel с сохранением
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Как закрыть Excel с сохранением изменений?
Я делаю так:
Dim objXL
On Error Resume Next
Set objXL = GetObject(, "Excel.Application")
If Not TypeName(objXL) = "Empty" Then
objXL.DisplayAlerts = False
objXL.Save
objXL.quit
End IfВсё работает, но такой нюанс: если курсор стоит в ячейке, то он не закрывается. В чём дело?
А еще если курсор стоит в ячейке, то и другой эксельный файл кликом на нем в проводнике - не открывается!:)
Видимо, Эксель ожидает завершения редактирования ячейки.
Господа программисты прошу помочь с закрытием Excel_я.
tombender, я лично не нашёл как сие можно определить и «забороть».
Это режимы "Ввод и Правка" в ячейке, блокирует довольно много команд и функций.
Режимы отображаются в строке состояния http://office.microsoft.com/ru-ru/excel … 22505.aspx
Лечение 1: http://office.microsoft.com/ru-ru/excel … 03588.aspx
Лечение 2: objXL.EditDirectlyInCell = False
+ Полезно почитать про следующие параметры:
HighQualityModeForGraphics
IgnoreRemoteRequests
EnableEvents
Visible
DisplayAlerts
DisplayStatusBar
ScreenUpdating
CutCopyMode
CellDragAndDrop
EditDirectlyInCell
AlertBeforeOverwriting
AskToUpdateLinks
CopyObjectsWithCells
EnableAutoComplete
MapPaperSizemax7, это поможет в случае, когда Excel уже в этом режиме? К тому же я не увидел разницы в результатах попытки обращения при различных значениях параметра «EditDirectlyInCell».
Когда Excel в этом режиме - не поможет ничего. Его можно только отключить до показа пользователю окна.
Лечение 2: objXL.EditDirectlyInCell = False
Не доберешься до objXL если он уже в этом режиме
Здесь ничего средствами Excel'я сделать нельзя. Либо менять постановку задачи, либо обходные пути.
Не доберешься до objXL если он уже в этом режиме
Когда Excel в этом режиме - не поможет ничего. Его можно только отключить до показа пользователю окна.
У меня значение «.EditDirectlyInCell» не влияет на это вообще, независимо от того, чему оно равно. Если начато редактирование, неважно — в самой ячейке, або в строке формул — доступа нет.
«.EditDirectlyInCell» - отключает редактирование непосредственно в ячейке и всё, правильно это называется так: http://mac2.microsoft.com/help/office/1 … dddb1684c4
Если же каким либо образом excel оказался в режиме ввода и правки, через ячейку, или строку формул, или ещё как, блокируется всё: VBA, вычисления, события, "remote requests" - всё; и сделать с этим средствами excel'я ничего нельзя. Ну, можно, например, сторонними средствами сгенерировать нажатие ESCAPE (при активном окне excel'я), тогда он выйдет из этого режима.
2max7: ну, да, и я про это. Меня удивило Ваше:
Лечение 2: objXL.EditDirectlyInCell = False
Ну, можно, например, сторонними средствами сгенерировать нажатие ESCAPE (при активном окне excel'я), тогда он выйдет из этого режима.
В таком случае, если знаем имя книги - решение есть:
With CreateObject("WScript.Shell")
.AppActivate "Книга1"
.sendkeys "{ESCAPE}"
End WithЕсли не знаем - решения нет, т.к. objXL недоступен.
Можно конечно:
For Each objProcess In GetObject("winmgmts:\\.\root\cimv2").ExecQuery("Select * from Win32_Process Where Name='excel.exe'")
objProcess.Terminate()
NextНо тогда о сохранении изменений, разумеется, речи не идет 
.
Кстати, а почему сторонним средством отправлять именно Esc?
Ведь по идее можно отправить и Enter или Tab, чтобы изменения в редактируемой ячейке оставались. И может это самое сторонее средство сможет и получить список всех окон, чтобы вычислить интересуемое Эксельное.
tombender, а каким образом запускается скрипт выхода-сохранения, что при его работе допутимы незаконченные правки пользователя?
Кстати, а почему сторонним средством отправлять именно Esc?
Ведь по идее можно отправить и Enter или Tab, чтобы изменения в редактируемой ячейке оставались.
ОК, тогда так:
With CreateObject("WScript.Shell")
.AppActivate "Книга1"
.SendKeys "{Enter}"
End WithИ может это самое сторонее средство сможет и получить список всех окон, чтобы вычислить интересуемое Эксельное.
Чтобы получить список всех открытых книг экселя нужно отработать с коллекцией workbooks объекта objXL, а он недоступен. А вычислить окошки экселя из скрипта без костылей по-моему не получится.
tombender, а каким образом запускается скрипт выхода-сохранения, что при его работе допутимы незаконченные правки пользователя?
Выход-сохранение можно реализовать так:
With GetObject(, "Excel.Application")
.DisplayAlerts = False
.Save
.Quit
End WithСтраницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
