VBAとVBScriptを混同しているのかもしれませんがよく分からないので教えてください。
Excel2010のVBAから、外部プログラム(test.exe)をコマンドプロンプトを非表示の状態で実行して、外部プログラムの実行が終了するのを待ってから、次の処理をさせたいのですが、test1のプログラムでは(A)の部分でエラーになってしまいます。また、test2のプログラムでは正しく実行されるのですがコマンドプロンプトのウインドウを非表示にする方法がよく分かりません。
test1のプログラムでエラーをでなくする方法、または、test2のプログラムでコマンドプロンプトのウインドウを非表示にする方法がありましたら教えてください。
-------------------------------------------------------
Sub test1()
Dim ws As Object
Dim we As Object
Dim command As String
command = "C:\test.exe"
Set ws = CreateObject("WScript.Shell")
Set we = ws.Run("%ComSpec% /c " & command, 0, False) '<===(A)
Set we = Nothing
Set ws = Nothing
End Sub
-------------------------------------------------------
Sub test2()
Dim ws As Object
Dim we As Object
Dim command As String
command = "C:\test.exe"
Set ws = CreateObject("WScript.Shell")
Set we = ws.exec("%ComSpec% /c " & command)
Do Until we.Status
DoEvents
Loop
Set we = Nothing
Set ws = Nothing
End Sub
-------------------------------------------------------
No.2ベストアンサー
- 回答日時:
Runメソッドを何処で調べましたか?
詳しくはこちらを見てください。
http://msdn.microsoft.com/ja-jp/library/cc364421 …
先ず、Aで失敗する理由ですが、Runメソッドの戻り値は何型ですか?
説明を見れば分かると思いますが、整数です。オブジェクトでは
ありません。従って、戻り値の型が違うし、Set文を使うのもオカシイ
次に、プログラムの終了を待つなら、Runメソッドの第3引数は
省略するか、Trueを指定すべきです。
test2のExecメソッドはオブジェクトを返しますが、この中には
標準入出力やエラー出力用の出し入れ口があり、人に代わって
データを送り込んだり、出力結果を見て、処理を変更するなどを
行う場合に使いますので、今回の仕様では使いません。
尚、DoEventsでグルグル回る処理は絶対にすべきではありません。
必ずSleepを入れるべきだし、DoEventsの使用そのものを避ける
べきだからです。この文がどのような効果をもたらすかを理解しており、
それを制御できるだけの技術があれば別ですが・・・
教えて頂きました間違いの箇所を修正しましたらコンドプロンプトのウインドウが非表示のままで正しく実行することができました。ありがとうございました。
なお、回答の中で、「DoEventsでグルグル回る処理は絶対にすべきではありません。必ずSleepを入れるべきだし、DoEventsの使用そのものを避けるべきだからです。」ということが書かれていて、なぜなのかがよく分かりませんでしたので、いろいろ調べていましたが結局よく分かりませんでした。ネット上でもこのような処理をしているのをよく見かけるのですが(http://officetanaka.net/excel/vba/tips/tips27.htmなど)、どのような問題が起こり得るのでよろしくないのかがよく分からないので教えて頂けないでしょうか。よろしくお願いします。
No.3
- 回答日時:
#2です。
DoEvents文を実行すると、溜まっていた各種イベントが実行されます。
これに伴い、イベントプロシージャ(VBA)が実行されたり、セルの
内容が変化することもあります。極端な例ではプロセスの終了も
起こり得ます。本来の処理が中途で終わってしまったり、実行条件の
共通変数の内容が変化する可能性があります。このような事象が発生
することを承知の上で使うなら良いのです。
「何でDoEventsがいけないの?」と質問されるということはこの辺の
事情をご存じないのではないでしょうか?
故に「勧めない」と申し上げたのです。
尚、Sleepを入れないと、CPUタイムスライスを浪費して全体の
パフォーマンスに甚大な悪影響が出ます。
SleepはVBAではDeclarationsで以下のように定義します。
Declare Sub Sleep Lib "kernel32" (ByVal 休止時間 As Long)
【使用例】
Do Until we.Status
DoEvents
Sleep 1 '1ミリ秒休止
Loop
Sleepを入れないと、CPU使用率は100%近くになるはずです。
Sleepを入れると、CPU使用率はほぼ0です。
尚、Runメソッドで待機をTrueにすれば、上記の問題は起きません。
DoEventsだけだと少なくとも60%以上には上がっていましたがSleep 1を入れるとほぼ0%に下がっていました。このあたりのことはVBAの書籍ではあまり触れられていないのでとても参考になりました。
これからはSleep 1を入れるようにします。
ありがとうございました。
No.1
- 回答日時:
良く分かってないので勘違いがあるかもしれないけど。
test.exeはGUIアプリ? それともコンソールアプリ?
GUIアプリならRunに "%ComSpec% /c " は不要で、それで上手くいくかも。
コンソールアプリなら完全に非表示にするのは多分無理なのでウィンドウを7(最小化)にしてみる。
実行したいのはコンソールアプリの方です。
nda23さんの回答の対策をしましたらコマンドプロンプトのウインドウが非表示のまま実行できました。
また、ウィンドウを7(最小化)でも確認してみましたら、タスクバーにアイコンは表示されますが、コマンドプロンプトのウインドウは非表示で実行できました。
ありがとうございした。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
ゆるやかでぃべーと タイムマシンを破壊すべきか。
これはディベートの論題だと仮定したうえでの回答お願いします。あなたは、その末にタイムマシンを壊してしまうのか、使い道を探すのかどうかを考えてもらいたいです。
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
excel vbaから実行するexe実行の黒い画面の非表示
Visual Basic(VBA)
-
VBAのExecメソッドで画面を非表示にして実行する方法
Visual Basic(VBA)
-
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
-
4
TERA TERMを隠す方法
その他(プログラミング・Web制作)
-
5
他のアプリケーションの終了処理
Visual Basic(VBA)
-
6
VBSでのSendKeysでの画面の最小化
その他(プログラミング・Web制作)
-
7
VBAでブックを非表示で開いて処理して閉じる方法
Excel(エクセル)
-
8
Application.ScreenUpdating = Falseが効きません
Visual Basic(VBA)
-
9
VBAでコマンドプロンプトをアクティブにしない
Visual Basic(VBA)
-
10
バッチファイル 特定ウインドウの最小化
AJAX
-
11
ファイルが開かれているかどうかの判断
Visual Basic(VBA)
-
12
エクセルVBAのフォームを最前面にする方法を教えてください。
Visual Basic(VBA)
-
13
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
14
Excel マクロ VBA プロシージャが大きすぎます のエラー対処方法
Visual Basic(VBA)
-
15
VBA エンターキーでイベントに入りたい。
PowerPoint(パワーポイント)
-
16
Excelのプロセスが消えません
Excel(エクセル)
-
17
ExcelVBAにてアプリをタスクマネージャーから強制終了させたいのですが
Visual Basic(VBA)
-
18
VBS実行時にコマンドプロンプトが表示される
その他(プログラミング・Web制作)
-
19
エクセルVBA 「Application.Run」について
Excel(エクセル)
-
20
特定のファイルを他のプロセスが編集中か確認する方法
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Macターミナルで実行中のプログ...
-
sendkeysにてALT+CTRL+INSERTを...
-
他のPC上にあるexeを、そのP...
-
C言語で途中までしか、プログラ...
-
他の実行ファイルを実行するプ...
-
C言語でフォルダを開く
-
実行時エラー429
-
C言語でプログラムを再起動
-
あるプログラム実行中に別のプ...
-
VBAで外部プログラムを非表示で...
-
timeEndPeriodを呼ばないと
-
UNIXで自作プログラムのメモリ...
-
Visual Basic 6.0でWin32APIを...
-
C言語のFFTについて教えてくだ...
-
PCIデバイスのコンフィグレーシ...
-
アクセス[ファイルを開かずに、...
-
プログラムカウンタのハードウ...
-
VBA
-
MACで動く実行ファイルをWindow...
-
プログラムを走らせる
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Macターミナルで実行中のプログ...
-
sendkeysにてALT+CTRL+INSERTを...
-
並列計算をしたときのシステム...
-
VBAで外部プログラムを非表示で...
-
プロセス間通信について
-
C言語でプログラムを再起動
-
他のPC上にあるexeを、そのP...
-
Windows10でDOSゲーム
-
C言語でフォルダを開く
-
C言語で途中までしか、プログラ...
-
system関数を使用してsuコマン...
-
アクセス[ファイルを開かずに、...
-
終了してもプログラムが実行し...
-
実行中の実行ファイルの上書き
-
プログラムを走らせる
-
実行時エラー429
-
RPG パラメーターについて
-
MACで動く実行ファイルをWindow...
-
VB上で実行中の無限ループの止め方
-
他の実行ファイルを実行するプ...
おすすめ情報