|
起動しているexeファイルのアプリケーションが、最小化となっているため、
一度、最大化に戻して、AppActivate で アプリケーションをアクティブにさせて、SendKey送信を行うマクロを作成してますが、
どうしても、途中で止まる?のです。
理由が分からず困ってます
どうかアドバイスお願いします。
If MyName Like "*シテイアプリ*" Then
’シテイのファイルを最大化にする
Set Wshshell = CreateObject("Wscript.Shell")
Wshshell.AppActivate "シテイアプリ"
Wshshell.SendKeys "%( )"
Wshshell.SendKeys "R"
'*********
'ここでマクロ操作が一旦止まってしまうけど、
'マウスでマクロの入っているエクセルファイルををクリックすると、
’また、再開して進みます。
'このプログラムをどのように改訂すれば、
’正常に動作してくれるのでしょうか?
'*********
'シテイのファイルをアクティブにする
AppActivate "シテイアプリ", True
SCreenFlg = True '画面あり
SendKeys "01", True
Sleep (200)
Send_RCtrl '右Ctrl
Sleep (200)
End If
|
|