外部アプリケーションの起動 : Excel(エクセル)

Excel Tipsメニューに戻る

スポンサーリンク






Excel VBA シートコード

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

スポンサーリンク



Excel実行結果

電卓が起動されている画面

スポンサーリンク






Excel Tipsメニューに戻る

■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します


Copyright (c) Excel-Excel ! All rights reserved