Запуск VBA из программы VB

[Vitaly1]

Запускаю через указатель из VB Excel файл. Затем в этом файле может быть запущенна программа VBA через меню Excel. На форме программы VB имеется кнопка, которая закрывает через указатель Excel. Но если программа VBA запущенна, то после клика по указанной кнопке появляется окно собщения, вероятно системное, на наглийском с английскими кнопками что то вроде продолжить и отменить. Можно ли как нибудь сделать, что бы это окно не появлялось, а появлялось окно, с одной кнопкой ОК, и в нем был русский текст - "Пока закрыть файл невозможно, выполняется программа VBA".

[RayShade]

Вряд ли. Это системное окно, выдается в случае если СОМ сервер занят выполнением непрерываемой операции. В данном слчуае в роли СОМ сервера выступает Excel.

[SergeySV]

Можно извращаться следующим образом:
через API каждые полсекунды проверяем не появилось ли это окно с ошибкой и тут же его гасим.

[Vitaly1]

А можно код, как это сделать?


Еще вопрос, не будет ли программа VBA Excel, сдерживать "отлов" указанного окна из программы VB?..

[SergeySV]

А можно код, как это сделать?


Еще вопрос, не будет ли программа VBA Excel, сдерживать "отлов" указанного окна из программы VB?..

Ууу, тут тебе придется попотеть:
Сначала через программу Spy++ надо глянуть на окно с ошибкой и посмотреть заголовок и класс окна.
Потом поставить таймер и в него включить код:
1. поиск окна по классу
hWnd = FindWindow("NameClass", "WindowCaption")
зная hWnd нашего окна можно его закрыть. Вариантов закрытия окна масса, есть там определенные нюансы, тут тебе подскажут или сам по форуму поищи, если возникнут проблемы с этим. Для начала можно написать просто:
2. If hWnd>0 Then _
DestroyWindow hWnd

Таймер тоже можно сделать через API:
' через 500млсек
SetTimer(hWndMainWindow, 0, 500, AddressOf ProgressTimer)
KillTimer hwnd, 0
ProgressTimer() - это уже твоя (а не API) процедура в которая вызовется при наступлении события OnTimer

[corgi]

а нельзя ли как нибудь обойтись без макроса (выполнять этот макрос из vb) и проблем нет

[SergeySV]

а нельзя ли как нибудь обойтись без макроса (выполнять этот макрос из vb) и проблем нет

Да, это тоже решение. Весь код макроса можно написать и в VB по технологии COM, никто не мешает так сделать. Единственный недостаток - более низкая скорость выполнения. Например: перебрать ячейки в самом Excel быстрее, чем также перебирать их через COM. Тут надо опытно смотреть на сколько будет разница и решать.

>>Еще вопрос, не будет ли программа VBA Excel, сдерживать "отлов" указанного окна из программы VB?..

Небольше чем все остальные запущенные на компьютере программы.

[corgi]

другой вариант еще:
1. можно закрытие excel'я отдать юзеру и пускай мучается
2. перед закрытием пытаться выполнить маааленькую функцию в VBA и наверно прежде чем выполнится предыдущий макрос она не запустится

[SergeySV]

другой вариант еще:
1. можно закрытие excel'я отдать юзеру и пускай мучается
2. перед закрытием пытаться выполнить маааленькую функцию в VBA и наверно прежде чем выполнится предыдущий макрос она не запустится

Насчет 2 пункта: если ты запустишь в коде VB макрос находящийся в Excel'е, то VB код пойдет дальше, несмотря как выполняется макрос в Excel'e.

Тут можно завести себе глобальную переменную - Dim bolBuzyNow as Boolean, в макросах Excel прописать чтобы в начале они ее устанавливали в True, а в конце выполнения в False. Ну а в самом VB коде после запуска таких макросов запускать функцию WaitExcel.

Declare Function GetInputState Lib "user32" () As Long

Sub WaitExcel()
Do While appExcel...(путь к переменной)......bolBuzyNow
Call loops
If GetInputState() <> 0 Then
DoEvents
End If
Loop
End Sub

Private Function loops()
' пустая функция
End Function

GetInputState - используется только для того, что бы лишний раз не вызывать DoEvents, который пока функция крутит цикл, заставляет программу приостановится, а окну принудительно обработать пришедшие сообщения, ну там пользователь мышкой пошевел или еще что, вот тогда и надо приостановится и обработать пришедшие сообщения.

[Vitaly1]

Послушайте, может скрывать окно формы VB, пока работает макрос, и вновь его показывать, когда макрос выполнился, только как это сделать из VBA, как закрыть окно другого приложения уже расказали, а как его скрыть и показать?

другой вариант еще:
1. можно закрытие excel'я отдать юзеру и пускай мучается

идея очень, и очень не плохая. Правдо, пользователь, пользователю рознь, но наверно, можно научить щелкать на верхний правый крестик, только как указатель на Excel снимать после этого в VB?
Хотя, его можно снимать, перед запуском новой программы, наверное это не вредно?
Нет не выйдет, если окно программы будет видно, то возникнет таже ситуация, при клике по форме, о которой я написал в первом посте!

[corgi]

Насчет 2 пункта: если ты запустишь в коде VB макрос находящийся в Excel'е, то VB код пойдет дальше, несмотря как выполняется макрос в Excel'e.

ну ведь макрос может и поменять что-нидь на листе(незаметно для пользователя) а мы это дело обязательно проверим

Правдо, пользователь, пользователю рознь, но наверно, можно научить щелкать на верхний правый крестик, только как указатель на Excel снимать после этого в VB?
Хотя, его можно снимать, перед запуском новой программы, наверное это не вредно?

а ты после запуска экселя отлавливай его hwnd и не соглашайся ничего делать пока этот процесс не завершится

[SergeySV]

Насчет 2 пункта: если ты запустишь в коде VB макрос находящийся в Excel'е, то VB код пойдет дальше, несмотря как выполняется макрос в Excel'e.

ну ведь макрос может и поменять что-нидь на листе(незаметно для пользователя) а мы это дело обязательно проверим

Ну так я про тоже самое и говорил. Мы можем после запуска макроса приостановить выполнение VB кода и подождать выполнение макроса в Excel.
Пример функции ожидания я привел. На что она будет реагировать- выбор большой: можно переменную завести, можно в скрытую ячейку писать можно..... да можно еще целую кучу разных флажков придумать, смысл один, что при обращении к Excel мы могли знать занят он нашим макросом или нет, ну а мы уж в коде VB подождем его.


Вообщем при таком подходе я не очень понимаю, что еще может мешать. Будет форма VB программы висеть, передвигаться и даже перерисовывать. В Excel'e можно даже часики показать на время работы макроса. Тыкнет в Excel мышкой пользователь, а там часики - подожди мол браток пока.

[GSerg]

Господа
Для синхронизации двух относительно несвязанных процессов в винде всё давно предусмотрено
Пусть каждый макрос VBA при своём запуске создаёт mutex с уникальным именем, а при завершении уничтожает. А прога на VB при клике на кнопку пусть проверяет, существует ли mutex с таким именем, и если да, то посылает

[Vitaly1]

Господа, всем спасибо, ларчик открывался очень просто, я скрываю форму перед закрытием Excel через указатель, и это мешает пользователю кликнуть по кнопке второй раз, и еще сделал переход по ощибке (без этих двух вещей не работало)

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

Private Sub Command3_Click()
Form1.Visible = false
On Error Resume Next
Application.Quit
'снять указатель
Set Application = Nothing
Form1.Visible = True
Command3.Visible = false
End Sub

После нажатия на эту кнопку, если VBA работает, форма не появляется, пока не отработает VBA код, а когда отработает, Excel закрывается, и форма появляется.

А если VBA не работает, Excel закрывается сразу, и форма появится сразу.

П.С. Окошко с сообщением вывести при этом нельзя.