エクセルのVBAをつかってC++で作ったexeファイルを起動させるプログラムを書きたいと思いますが、うまくいきません。
プログラムは下記です。
Sub Macro1()
Shell ("C:\test.exe")
End Sub
エラーは出ないのですが、計算をしません。
・VBEの参照設定のmicrosft scripting runtimeはクリックいれてます。
・test.exe自体はクリックすると起動して計算します。
もし、対応策をご存知なら教えていただければ助かります。
よろしくお願いします。
No.4ベストアンサー
- 回答日時:
> ただ、shellでexeを起動させると、なぜかマイドキュメントにファイルは作成されていました。
> これはなぜでしょうか?
最初の投稿で述べた
> 「カレントフォルダ(作業ディレクトリ)」があっていないとか・・・
でしょうね。
「カレントフォルダ」はご存知ですよね?
フルパス指定をしない場合(フォルダ指定が無い場合等)にファイルが作成されるフォルダです。
ですから、
> fp = fopen( "hello.txt", "w");
した場合、カレントフォルダにファイルが作成されます。
で、Excelの「カレントフォルダ」は、自動的に「マイドキュメント」になるようです。
ですから、VBAからShell関数で呼び出したプログラムで、
フルパス指定をしないファイルも「マイドキュメント」に作成されてしまいます。
Shell関数実行前に、カレントフォルダの変更を行ってみてください。
例えば、「D:\X」にしたい場合、
----------------------------------------------
Sub Macro1()
'------ 元のカレントフォルダを記憶しておく ----
Dim CF As String
CF=CurDir()
'------ カレントフォルダを変更 ----
ChDrive "D:"
ChDir "D:\X"
' ----- Shellを実行
Shell ("D:\X\test.exe")
'------ カレントフォルダを元に戻す ----
ChDrive CF
ChDir CF
End Sub
----------------------------------------------
とか・・・
dsuekichi様
最後までご丁寧な回答をいただき、本当にありがとうございます。
確かに、カレントフォルダのお話は最初から教えていただいていました。。。
EXEファイルを直接クリックしたときは、そのEXEファイルの置いてあるディレクトリのファイルを認識していたので、てっきりVBAでも同じことが行われると思っていましたが、大きな勘違いでした。
カレントディレクトリの問題はプログラムの基礎の基礎なので、特にSHLL関数の使い方のHPをチェックしても載ってなかったのだと思います。
総括すると、今回のSHELLの問題は二つあり
1、EXEファイルが終わるまで待つようにする
2、EXEファイルはカレントディレクトリが当然デフォルトで設定されているので、VBAでSHELLを使う時はディレクトリを変更する
ということで、dsuekichi様は最初から見抜いていらっしゃったと思います。
それなりに調べたつもりだったのですが、結局元に戻ってきたということで赤面です。
おかげさまで、約一ヶ月悪戦苦闘してようやく動くようになりました。
本当にありがとうございます。
No.3
- 回答日時:
変ですね・・・
> ・shell()だと、窓が一瞬出てすぐに消えてしまいます。
実際のコードはどうなっています?
> Shell ("C:\test.exe")
とした場合や、
> www.moug.net/tech/exvba/0150034.htm
のサンプルのコードのままだと、『DOS窓は表示されない』はずですが・・・
#「アイコン状態で起動する」のでタスクバーには表示されますが・・・
ためしに、起動するプログラムをメモ帳("C:\WINDOWS\NOTEPAD.EXE")にすると、どういう動作になりますか?
また、
-------------------------------------
C:\test.exe
PAUSE
-------------------------------------
の2行だけのバッチファイルを作成して、それをShellで呼び出すとどうなります?
また、似たようなサンプルに、
「[XL97]Shell関数で起動したアプリケーションの終了を認識する方法」
(http://support.microsoft.com/kb/408064/ja)
こういうのがありますけど・・・同じでしょうか?
#起動したプログラムの方の問題の可能性は?
この回答への補足
dsuekichi様
返事が遅くなり、申し訳ありませんでした。
1、("C:\WINDOWS\NOTEPAD.EXE")は成功しました
2、バッチファイルはだめでした。
ですが、実はexeファイルは起動していました。
テストに使ったexeファイルはダブルクリックするとそのexeファイルがあるディレクトリにテキストファイルを作成するシンプルなものです。(ソースは下記参照)
ただ、shellでexeを起動させると、なぜかマイドキュメントにファイルは作成されていました。
これはなぜでしょうか?
もし、ダブルクリックしたときと同じように、exeファイルがあるディレクトリにテキストファイルを作る方法があれば教えてください。
よろしくおねがいします。
(ソース)
main( )
{
FILE *fp; /* ファイルポインタ */
fp = fopen( "hello.txt", "w");
fprintf(fp,"hello!\n");
fclose(fp);
return 0;
}
dsuekichi様
何度もメールしていただき、本当にありがとうございます。
1、「[XL97]Shell関数で起動したアプリケーションの終了を認識する方法」
も残念ながらダメでした。
2、実際のコードはShell ("C:\test.exe")でパスがもう少し複雑になっていますが、DOS窓が一瞬開いてます。。。
3、>#起動したプログラムの方の問題の可能性は?
>("C:\WINDOWS\NOTEPAD.EXE")にすると、どういう動作
ShellExecuteを使って、 "C:\test.exe"を選ぶとexeファイルは起動されますので、プログラム自体は問題ないと思っていましたが、一度シンプルなexeファイルで動くようにしてみたいと思います。
4、>C:\test.exe PAUSEの2行だけのバッチファイルでは?
バッチファイルがわかってないので(すみません、VBAもC++も付け焼刃で)なので、上記あわせてトライしてみてどちらにしてもご報告します。
迅速なお返事本当にありがとうございます。
No.2
- 回答日時:
> 計算は一分くらい掛かるものなので、それが原因かなあ、とも思ってます。
確認です。
> 計算をしません。
と判断した理由は何なんでしょう?
#どういうコードで「計算していない」ことを確認しましたか?
Shell関数は、「非同期処理」なので、呼び出したプログラムの終了を待ってはくれません。
例えば、C++プログラムが計算終了時(つまり起動の1分後)に、結果をファイル出力する仕組みになっていて、
VBプログラムが、Shell実行直後に、そのファイルの有無をチェックしていいたりすると、
ファイルは存在しないことになりますが・・・
この回答への補足
dsuekichi様
補足です
よく読むと
>と判断した理由は何なんでしょう?
>#どういうコードで「計算していない」ことを確認しましたか?
に答えてませんでした。
通常はexeファイルをクリックさせて起動させると、テキストファイルを読み込み、計算し、テキストファイルを出すのですが(最低5秒)、それが出ません。
・shell()だと、窓が一瞬出てすぐに消えてしまいます。
・HPなどをみて、exeファイルが終わるまで待つVBAを書いてみましたが、エラーはでないものの、窓も出ずに終わってしまいました。
よろしくおねがいします。
dsuekichi様
お返事していただき、本当にありがとうございます。
ご指摘の通り、このexeファイルをエキスプローラーからクリックさせて起動させると、あるテキストファイルを読み込み、計算をし、結果のテキストファイルを複数出します。
最初のテキストファイルを出すのに5秒程度、全てのファイルを出すのに一分程度掛かります。
対策として下記HPなどを参考にして、exeファイルが終了するまで待つような仕組みをVBAに入れてみました。
http://www.moug.net/tech/exvba/0150034.htm
このプログラムではエラーは出なかったものの、exeファイルの起動が確認できないまま終わってしました。。。
(単なるshellだと、一瞬窓が開くのが確認出来ます)
大変困っており、他の対策(vbaの工夫、exeファイルのプログラムの工夫や有料相談所など)をご存知なら大変助かります。
お返事本当にありがとうございました。
No.1
- 回答日時:
> test.exe自体はクリックすると起動して計算します。
というのは、エクスプローラからですか?
では、
「スタートメニュー」の「ファイル名を指定して実行」で実行するとどうなります?
どういう「計算」をするのか分かりませんが・・・
「カレントフォルダ(作業ディレクトリ)」があっていないとか・・・
#その「C++で作ったexeファイル」は、カレントフォルダに、
#設定ファイルや入力ファイル、出力ファイルが必要なつくりになっているとか・・・
余談ですが、
> Shell ("C:\test.exe")
この呼び方、実は間違いですよ。
> Shell "C:\test.exe"
か、
> Call Shell ("C:\test.exe")
か、
> Dim ret As Long
> ret = Shell ("C:\test.exe")
にしましょう。
dsuekichiさん
お返事ありがとうございます
文法を教えていただきありがとうございました!
「スタートメニュー」の「ファイル名を指定して実行」だと大丈夫でした。
計算は一分くらい掛かるものなので、それが原因かなあ、とも思ってます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) batからexeを実行し戻り値を受け取る EXEの実行内容の結果によって、戻り値を0か1かで返したい 1 2023/07/04 16:40
- Visual Basic(VBA) batからexeを実行し戻り値を受け取る バッチからEXEの結果を受け取りたいのですが、 下記のバッ 1 2023/07/04 15:13
- Visual Basic(VBA) Excel-VBAでのファイルの開き方 4 2023/02/14 11:01
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- その他(IT・Webサービス) エクセルの実行ファイルについての質問です。 1 2023/05/04 03:58
- Visual Basic(VBA) VBA★PDFをPDFアプリで印刷しようと思っていますが上手くゆきません 1 2022/06/06 22:04
- 労働相談 合意済み仕様の商品納入後における仕様変更要求への対応について 5 2023/04/19 09:41
- その他(プログラミング・Web制作) python OpenPyXLを使って出力結果をエクセルに書き込み 2 2022/06/04 19:46
- Visual Basic(VBA) 動かなくなってしまった古いVBAを動くようにしたい 8 2022/09/20 13:57
- Windows 10 Windows11の実行モジュールはどこにある 1 2022/05/31 07:33
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
exeファイルの中身を見ることは可能ですか?
フリーソフト
-
SHELLコマンドがうまく動かないです VB6.0
Visual Basic(VBA)
-
EXCELマクロのEXE化
Visual Basic(VBA)
-
-
4
excelのexe化について
Excel(エクセル)
-
5
exeファイルの作り方
Visual Basic(VBA)
-
6
コマンドプロンプト実行後に画面を閉じない方法
Visual Basic(VBA)
-
7
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
8
batからexeを実行し戻り値を受け取る EXEの実行内容の結果によって、戻り値を0か1かで返したい
Visual Basic(VBA)
-
9
テキストボックスの番号を使ったFor~Next文について
Visual Basic(VBA)
-
10
【Excel VBA】マクロでExcel自体を終了させたい
Excel(エクセル)
-
11
VBAから複数のバッチファイルを実行する際に、1つの処理が終了するまで
Visual Basic(VBA)
-
12
split関数で区切り文字がない場合
Visual Basic(VBA)
-
13
エクセルVBAが途中で止まります
Visual Basic(VBA)
-
14
VBAで配列の計算
Excel(エクセル)
-
15
Changeイベントでの複数セルのクリアの処理について
Visual Basic(VBA)
-
16
excel vbaから実行するexe実行の黒い画面の非表示
Visual Basic(VBA)
-
17
Excel VBAで複数のバッチファイルの同時処理の方法を教えてほしいです。
その他(プログラミング・Web制作)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
OLE又はDDEを使うVISUAL BESIC...
-
Access クエリ実行が急に非常に...
-
LINK : fatal error LNK1104に...
-
アプリケーションとソースコー...
-
VBフォームアプリケーションに...
-
64bit環境で32bitのodbc参照
-
batからexeを起動した際の戻り...
-
JavaScriptでコマンドプ...
-
VB6で、C言語の(argv,argc)み...
-
jarの開き方を教えてください。
-
デスクトップにショートカット...
-
jarファイル実行時の環境変数の...
-
xismoについてです!開こうとす...
-
プログラム初心者です。
-
VbscriptにてTeraterm マクロを...
-
JavaScriptでプロセスを終了さ...
-
Visual C++からMATLABを呼び出...
-
コンポーネント`MSCOMM32.cox'...
-
.exeファイルの中身
-
VB6.0で作ったプロジェクトが起...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Access クエリ実行が急に非常に...
-
OLE又はDDEを使うVISUAL BESIC...
-
VC++から引数付きexeファイルの...
-
xismoについてです!開こうとす...
-
LINK : fatal error LNK1104に...
-
JavaScriptでコマンドプ...
-
VBAでMP3を鳴らしたい
-
c/c++ ビルドしたにもかかわら...
-
コンパイル ./aと./a.out の違い
-
WScript.Echo と msgbox
-
64bit環境で32bitのodbc参照
-
VBAでEXEファイルを動かす方法...
-
ローカルのHTMLからexeファイル...
-
VB6.0で作ったプロジェクトが起...
-
batからexeを実行し戻り値を受...
-
VC++での外部プログラムの実行
-
VBフォームアプリケーションに...
-
jarファイル実行時の環境変数の...
-
jarファイルとjava.exeの関連付...
-
デスクトップにショートカット...
おすすめ情報