Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

9677 / 76736

←次へ　｜　前へ→


	【72618】マクロが止まる理由？

たつ - 12/8/29(水) 9:56 -


	引用なし

	パスワード

起動している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

0 hits

▼

【72618】マクロが止まる理由？ たつ 12/8/29(水) 9:56

≪