Excelでランチャーソフトを作ってみよう
Step 5 登録済みファイルを実行(EXEファイル)
Homeに戻る > Excelでアプリケーションソフト > ランチャーソフト
シートイベント
下記のVBAコードに変更してください。
'設定されているファイルを開く
Private Sub ExFileOpen(ext As String, sfina As String)
On Error GoTo ErrEnd
Select Case ext
Case "xls" 'Excelファイルを開く
Workbooks.Open Filename:=sfina
Case "exe" 'EXEファイルを実行する
Shell sfina, 1
End Select
Exit Sub
ErrEnd:
Beep
MsgBox "ファイルオープン時エラーが発生しました。" & vbCrLf & _
"エラー内容： " & Err.Description
End Sub
Private Sub ExFileOpen(ext As String, sfina As String)
On Error GoTo ErrEnd
Select Case ext
Case "xls" 'Excelファイルを開く
Workbooks.Open Filename:=sfina
Case "exe" 'EXEファイルを実行する
Shell sfina, 1
End Select
Exit Sub
ErrEnd:
Beep
MsgBox "ファイルオープン時エラーが発生しました。" & vbCrLf & _
"エラー内容： " & Err.Description
End Sub
シートとユーザーフォーム
コマンドボタンにメモ帳を登録する画面
コマンドボタンをクリックするとメモ帳が起動します。
Homeに戻る > Excelでアプリケーションソフト > ランチャーソフト
■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します
Copyright (c) Excel-Excel ! All rights reserved