Excelでランチャーソフトを作ってみよう

Step 5 登録済みファイルを実行(EXEファイル)

メニューに戻る

スポンサーリンク






シートイベント

下記のコードに変更してください。

'設定されているファイルを開く
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

スポンサーリンク



シートとユーザーフォーム

コマンドボタンにメモ帳を登録する画面


コマンドボタンをクリックするとメモ帳が起動します。

スポンサーリンク






メニューに戻る

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


Copyright (c) Excel-Excel ! All rights reserved