Передача фокуса из VBA окну другого приложения

[borman11]

Кроме Excel запущено еще одно приложение. Необходимо периодически передавать фокус окну этого приложения. Кто знает реально это или нет. Если реально, то как?

[Template]

Так сойдет ?

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

Dim StartTime As Date

Sub Auto_Open()
    'Будем мучать каждую минуту
    StartTime = Now() + 1 / 24 / 60
    'StartTime = DateAdd("N", 1, Now())
    Application.OnTime StartTime, "SetFocus"
End Sub

Sub Auto_Close()
    On Error Resume Next
    Application.OnTime StartTime, "SetFocus", , False
End Sub

Sub SetFocus()
    On Error Resume Next
    StartTime = StartTime + 1 / 24 / 60
    AppActivate "Заголовок нужного окна"
    Application.OnTime StartTime, "SetFocus"
End Sub

[borman11]

Спасибо. Одна функция всего то и нужна.