Серый форум — WSH: Закрыть Excel с сохранением

Re: WSH: Закрыть Excel с сохранением

2011-12-14T04:59:32Z

Rom5 пишет:

Кстати, а почему сторонним средством отправлять именно Esc?
Ведь по идее можно отправить и Enter или Tab, чтобы изменения в редактируемой ячейке оставались.

ОК, тогда так:


With CreateObject("WScript.Shell")
	.AppActivate "Книга1"
	.SendKeys "{Enter}"	
End With

Rom5 пишет:

И может это самое сторонее средство сможет и получить список всех окон, чтобы вычислить интересуемое Эксельное.

Чтобы получить список всех открытых книг экселя нужно отработать с коллекцией workbooks объекта objXL, а он недоступен. А вычислить окошки экселя из скрипта без костылей по-моему не получится.

Rom5 пишет:

tombender, а каким образом запускается скрипт выхода-сохранения, что при его работе допутимы незаконченные правки пользователя?

Выход-сохранение можно реализовать так:


With GetObject(, "Excel.Application")
	.DisplayAlerts = False		
	.Save
	.Quit
End With

Re: WSH: Закрыть Excel с сохранением

2011-12-13T18:06:53Z

Кстати, а почему сторонним средством отправлять именно Esc?
Ведь по идее можно отправить и Enter или Tab, чтобы изменения в редактируемой ячейке оставались. И может это самое сторонее средство сможет и получить список всех окон, чтобы вычислить интересуемое Эксельное.

tombender, а каким образом запускается скрипт выхода-сохранения, что при его работе допутимы незаконченные правки пользователя?

Re: WSH: Закрыть Excel с сохранением

2011-12-13T07:01:53Z

max7 пишет:

Ну, можно, например, сторонними средствами сгенерировать нажатие 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

Но тогда о сохранении изменений, разумеется, речи не идет .

Re: WSH: Закрыть Excel с сохранением

2011-12-12T22:17:22Z

2max7: ну, да, и я про это. Меня удивило Ваше:

max7 пишет:

Лечение 2: objXL.EditDirectlyInCell = False

Re: WSH: Закрыть Excel с сохранением

2011-12-12T20:38:24Z

«.EditDirectlyInCell» - отключает редактирование непосредственно в ячейке и всё, правильно это называется так: http://mac2.microsoft.com/help/office/1 … dddb1684c4
Если же каким либо образом excel оказался в режиме ввода и правки, через ячейку, или строку формул, или ещё как, блокируется всё: VBA, вычисления, события, "remote requests" - всё; и сделать с этим средствами excel'я ничего нельзя. Ну, можно, например, сторонними средствами сгенерировать нажатие ESCAPE (при активном окне excel'я), тогда он выйдет из этого режима.

Re: WSH: Закрыть Excel с сохранением

2011-12-12T19:14:42Z

dab00 пишет:

Не доберешься до objXL если он уже в этом режиме

max7 пишет:

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

У меня значение «.EditDirectlyInCell» не влияет на это вообще, независимо от того, чему оно равно. Если начато редактирование, неважно — в самой ячейке, або в строке формул — доступа нет.

Re: WSH: Закрыть Excel с сохранением

2011-12-12T17:47:49Z

Здесь ничего средствами Excel'я сделать нельзя. Либо менять постановку задачи, либо обходные пути.

Re: WSH: Закрыть Excel с сохранением

2011-12-12T17:41:33Z

max7 пишет:

Лечение 2: objXL.EditDirectlyInCell = False

Не доберешься до objXL если он уже в этом режиме

Re: WSH: Закрыть Excel с сохранением

2011-12-12T17:39:39Z

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

Re: WSH: Закрыть Excel с сохранением

2011-12-12T17:27:30Z

max7, это поможет в случае, когда Excel уже в этом режиме? К тому же я не увидел разницы в результатах попытки обращения при различных значениях параметра «EditDirectlyInCell».

Re: WSH: Закрыть Excel с сохранением

2011-12-12T17:08:47Z

Это режимы "Ввод и Правка" в ячейке, блокирует довольно много команд и функций.
Режимы отображаются в строке состояния 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
MapPaperSize

Re: WSH: Закрыть Excel с сохранением

2011-12-02T12:31:47Z

tombender, я лично не нашёл как сие можно определить и «забороть».

Re: WSH: Закрыть Excel с сохранением

2011-12-02T11:43:34Z

Господа программисты прошу помочь с закрытием Excel_я.

Re: WSH: Закрыть Excel с сохранением

2011-12-01T19:17:34Z

А еще если курсор стоит в ячейке, то и другой эксельный файл кликом на нем в проводнике - не открывается!:)

Видимо, Эксель ожидает завершения редактирования ячейки.

WSH: Закрыть Excel с сохранением

2011-12-01T13:44:05Z

Как закрыть 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

Всё работает, но такой нюанс: если курсор стоит в ячейке, то он не закрывается. В чём дело?