備忘録　（私の道具箱）

ＶＢＡ

VBA から他のプログラムを起動する

（１）Shell関数を利用し、引数で指定した実行形式ファイルを起動する

	Sub Sample()
	    Dim ret As Long
	    ret = Shell("notepad.exe", vbNormalFocus)
	    If ret = 0 Then MsgBox "起動に失敗しました"
	End Sub


（２）ファイルに関連付けられたアプリケーションを起動する

	エクスプローラなどでデータファイルのアイコンをダブルクリックすると、
	そのデータファイルに関連づけられているアプリケーションが、自動的に起動します。
	WSH(Windows Script Host)の機能を使うと、簡単に実現できます。

	次のコードは、WSHのRunメソッドで"C:\Data\Sample.pdf"ファイルを開きます。

	Sub Sample()
	    With CreateObject("Wscript.Shell")
	        .Run "C:\Data\Sample.pdf"
	    End With
	End Sub

戻る