- ベストアンサー
VBAでEXEファイルを動かす方法について
dsuekichiの回答
- dsuekichi
- ベストアンサー率64% (171/265)
> test.exe自体はクリックすると起動して計算します。 というのは、エクスプローラからですか？ では、 「スタートメニュー」の「ファイル名を指定して実行」で実行するとどうなります？ どういう「計算」をするのか分かりませんが・・・ 「カレントフォルダ（作業ディレクトリ）」があっていないとか・・・ ＃その「Ｃ++で作ったexeファイル」は、カレントフォルダに、 ＃設定ファイルや入力ファイル、出力ファイルが必要なつくりになっているとか・・・ 余談ですが、 > Shell ("C:\test.exe") この呼び方、実は間違いですよ。 > Shell "C:\test.exe" か、 > Call Shell ("C:\test.exe") か、 > Dim ret As Long > ret = Shell ("C:\test.exe") にしましょう。
関連するQ&A
- ＶＢＡのSHELLを用いてEXEファイルを起動したものの、微妙にうまくいかない
エクセルのVBAのshellを用いて、exeファイルを起動させてました。 exeファイルはＣを用いたシンプルなもので、テキストファイルを作成します。（ソースは下記参照） C:\testのディレクトリにエクセルファイルを作成し、 Shell "C:\test\test.exe" を実行させたところ、ファイルはC:\testのディレクトリに出来ずに、マイドキュメントに出来ました。 このexeファイルを直接ダブルクリックしたときは、C:\testのディレクトリにテキストファイルが作成されます。 ダブルクリックしたときと同じように、C:\testのディレクトリにテキストファイルを作成する方法があれが教えてください。 よろしくおねがいします。 （ソース、hello.txtというファイルをつくり、hello!を書く） main( ) { FILE *fp; /* ファイルポインタ */ fp = fopen( "hello.txt", "w"); fprintf(fp,"hello!\n"); fclose(fp); return 0; }
- ベストアンサー
- Visual Basic
- VBA Shell
VBA のコマンドボタンで他のソフトを起動したいのですが Private Sub CommandButton1_Click() Shell "C:\Windows\Notepad.exe", 1 End Sub でノートパットは起動しますが マイドキュメントに置いてある XX.EXEを起動したくて Private Sub CommandButton1_Click() Shell "C:\Users\X\Documents\XX.exe", 1 End Sub としても起動しません この方法で マイドキュメントに置いてある XX.EXEを起動することは出来ないのでしょうか
- 締切済み
- Excel（エクセル）
- vbaでｐｄｆを開く方法
Sub test() Dim myFile As String myFile = "C:\Users\ダミー.pdf" Shell """C:\Program Files (x86)\Adobe\Reader 10.0\Reader\AcroRd32.exe""" & myFile End Sub これでいけるかと思ったのですが、AdobeReader自体は起動するのですが、肝心のファイルは開きません。 エラーにもなりません。 Program Files (x86)の中身を確認しても、バージョンは10で正しいようです。 AdobeReaderを起動するだけではなく、ファイルを開く方法を教えてください。
- ベストアンサー
- オフィス系ソフト
- レジストリエディタを起動させて手前に表示させたい
VBE画面から Sub test() Dim i As Long i = Shell("C:\WINDOWS\regedit.exe") End Sub を実行するとレジストリエディタを起動できるのですがアクティブ（前画面）になりません。 Sub test() Dim i As Long i = Shell("C:\WINDOWS\regedit.exe") AppActivate i End Sub これにしたも同じく全画面になりません。 ただ、一度起動した後に再度このコードを実行すると、 プロシージャの呼び出し、または引数が不正です。(Error 5) と言うエラーになりますが、１回目に開いたレジストリエディタがアクティブになります。 vbaコードで起動だけではなく、手前に表示させるにはどうすればいいですか？
- ベストアンサー
- Visual Basic
- vbaで参照設定する方法
sub フォルダをコピーする() Dim myFSO As New FileSystemObject myFSO.CopyFolder "D:\TEST", "D:\TEST2" End Sub を実行したいのですが、 Visual Basic Editor の [ツール]-[参照設定] で、 "Microsoft Scripting Runtime" にチェックせずに、 vbaで参照設定する方法を教えてください。 バージョンは2007です。 ご回答よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- VBA Shell関数
エクセルVBA shell関数でプログラムを立ち上げ （DOSプロンプト画面が起動） そのあとに、続けてDOSプロンプトにコマンドと"Sheet1のA1"のセルに入力してある文字を打ち込みたいのですが上手くいかなく困っています。 どのようにしたらよいのでしょうか。 以下のように記述しています。 （初心者です） ------------------------------------ Sub ShellSamp1() Dim myID As Double myID = Shell("C:\****\*****\*****.EXE & " & cd C:\Documents and Settings & " & Range("A1").Value & """") End Sub ------------------------------------
- ベストアンサー
- その他（プログラミング・開発）
- VBA Shell について（アプリの起動）
Shelｌを使用して特定のアプリケーションの起動および操作をしたいと考えています。 起動は以下の式で出来たのですが、 Sub VbaToCmd() Call Shell("C:...........................................................................exe", vbNormalFocus) End Sub 起動後の画面でパスワード入力が求められます。 (1)パスワードを自動入力にしたい。 (2)起動後、キーボード操作を行いたい。 VBA初心者ですみません。。 ご回答よろしくお願いします。
- ベストアンサー
- Visual Basic
- vba pdfを手前に開きたい Shell
Sub Sample() Dim myFile As String myFile = "C: \test.pdf" Shell """C:\Program Files (x86)\Adobe\Reader 10.0\Reader\AcroRd32.exe"" " & myFile End Sub ｖｂａからこれでＰＤＦファイルを開くことができるのですが アクセスの後ろで開いてしまいます。 このコードを実行したら、開いたＰＤＦファイルを画面の手前に表示したいので 何を付け足せばいいのでしょうか？
- ベストアンサー
- Visual Basic
- vbaで画像ファイルを開き、サイズを変更して保存
vbaで画像ファイルを開き、その後サイズを変更して保存することは出来るのでしょうか？ ペイントで画像を開くのは Sub test() MyFileName = "C:\セット.jpg" Shell "C:\WINDOWS\system32\mspaint.exe" & " " & Chr(34) & MyFileName & Chr(34), vbNormalFocus End Sub これで出来たのですが その後、サイズ変更→ピクセル→ 水平方向 300 垂直方向 225 を指定して保存したいのですが そこまでVBAで可能でしょうか？
- ベストアンサー
- オフィス系ソフト
- ＶＢＡでMP3を鳴らしたい
ｖｂａについて質問です。 MP3ファイルを鳴らしたいのですがうまくいきません。 --------------------------------------------------------- Sub Macro1() Dim SoundFile As String SoundFile = "C:\終了音.mp3" If Dir(SoundFile) = "" Then MsgBox SoundFile & vbCrLf & "がありません。", vbExclamation Exit Sub End If Shell "mplay32.exe /play /close " & SoundFile End Sub --------------------------------------------------------- を実行すると、 「Shell "mplay32.exe /play /close " & SoundFile」 の部分で 実行時エラー53 ファイルが見つかりません。 になります。 しかし、 If Dir(SoundFile) = "" Then MsgBox SoundFile & vbCrLf & "がありません。", vbExclamation Exit Sub End If の部分では問題ないので、ファイルはある事になってると思うのですが、 なぜ「Shell "mplay32.exe /play /close " & SoundFile」の部分でエラーになるのでしょうか？ スペックは、エクセル２００７、ｗｉｎｄｏｗｓ７です。 ご回答よろしくお願いします。
- ベストアンサー
- Visual Basic
お礼
dsuekichiさん お返事ありがとうございます 文法を教えていただきありがとうございました！ 「スタートメニュー」の「ファイル名を指定して実行」だと大丈夫でした。 計算は一分くらい掛かるものなので、それが原因かなあ、とも思ってます。