[ExcelVBA] Shell関数

>Blog Top Page >[ExcelVBA] Top Page >[ExcelVBA] 関数一覧

■構文
Shell(pathname[,windowstyle])

■説明
他のアプリケーションを起動する。実行が完了するとプロセスIDを返す。ただし、問題が発生した場合は0を返す。
第一引数：アプリケーションのパス。
第二引数：(省略可能)実行するプログラムのウィンドウ形式に対応する数字を指定。省略時、フォーカスを持った状態で最小化となる。

定数	値	内容
vbHide	0	フォーカス○、非表示
vbNormalFocus	1	フォーカス○、元のサイズと位置に復元
vbMinimizedFocus	2	フォーカス○、最小化
vbMaximizedFocus	3	フォーカス○、最大化
vbNormalNoFocus	4	フォーカス×、元のサイズと位置に復元
vbMinimiziedNoFocus	6	フォーカス×、最小化

■サンプルコード

view plainprint?

1. Option Explicit  
2.   
3. Sub SampleCode()  
4.     'メモ帳を実行(パスが通っているため、アプリ名だけで実行できる)  
5.     Debug.Print Shell("notepad.exe", vbNormalFocus)  
6.       
7.     '電卓を実行(パスが通っているため、アプリ名だけで実行できる)  
8.     Debug.Print Shell("calc.exe", vbNormalFocus)  
9.       
10.     'pdfを開く(パスが通っていないため、フルパスを指定。ファイルを開くためアプリの引数にファイルパスを指定)  
11.     Debug.Print Shell("C:\Program Files\Adobe\Reader 9.0\Reader\AcroRd32.exe C:\test.pdf")  
12. End Sub  

Option Explicit

Sub SampleCode()
    'メモ帳を実行(パスが通っているため、アプリ名だけで実行できる)
    Debug.Print Shell("notepad.exe", vbNormalFocus)
    
    '電卓を実行(パスが通っているため、アプリ名だけで実行できる)
    Debug.Print Shell("calc.exe", vbNormalFocus)
    
    'pdfを開く(パスが通っていないため、フルパスを指定。ファイルを開くためアプリの引数にファイルパスを指定)
    Debug.Print Shell("C:\Program Files\Adobe\Reader 9.0\Reader\AcroRd32.exe C:\test.pdf")
End Sub

>Blog Top Page >[ExcelVBA] Top Page >[ExcelVBA] 関数一覧