|
Option Explicit
Private Sub ExDoShell()
Dim ret As Long
On Error GoTo ErrEnd
'電卓の起動
ret = Shell("C:\WINDOWS\SYSTEM32\CALC.EXE", vbNormalFocus)
'Excelの起動
ret = Shell("C:\Program Files\Microsoft Office\Office10\EXCEL.EXE", vbNormalFocus)
'Outlook Expressを最大化ウィンドウで起動
ret = Shell("C:\Program Files\Outlook Express\msimn.exe", vbMaximizedFocus)
'セルに入力されているソフトの起動
ret = Shell(Range("B8"), vbNormalFocus)
Exit Sub
ErrEnd:
MsgBox "実行できませんでした。" & vbCrLf & "エラー内容：" & Err.Description
End Sub
Private Sub CommandButton1_Click()
ExDoShell
End Sub
|
|
