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

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

null@example.com (dab00) — Wed, 14 Dec 2011 04:59:32 +0000

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 с сохранением

null@example.com (Rom5) — Tue, 13 Dec 2011 18:06:53 +0000

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

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

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

null@example.com (dab00) — Tue, 13 Dec 2011 07:01:53 +0000

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 с сохранением

null@example.com (alexii) — Mon, 12 Dec 2011 22:17:22 +0000

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

max7 пишет:

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

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

null@example.com (max7) — Mon, 12 Dec 2011 20:38:24 +0000

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

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

null@example.com (alexii) — Mon, 12 Dec 2011 19:14:42 +0000

dab00 пишет:

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

max7 пишет:

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

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

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

null@example.com (max7) — Mon, 12 Dec 2011 17:47:49 +0000

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

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

null@example.com (dab00) — Mon, 12 Dec 2011 17:41:33 +0000

max7 пишет:

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

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

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

null@example.com (max7) — Mon, 12 Dec 2011 17:39:39 +0000

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

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

null@example.com (alexii) — Mon, 12 Dec 2011 17:27:30 +0000

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

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

null@example.com (max7) — Mon, 12 Dec 2011 17:08:47 +0000

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

null@example.com (alexii) — Fri, 02 Dec 2011 12:31:47 +0000

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

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

null@example.com (tombender) — Fri, 02 Dec 2011 11:43:34 +0000

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

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

null@example.com (Rom5) — Thu, 01 Dec 2011 19:17:34 +0000

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

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

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

null@example.com (tombender) — Thu, 01 Dec 2011 13:44:05 +0000

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

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