Menuへ

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

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

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

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

Topへ

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