ダイアログでファイルを選択し開く : Excel(エクセル)

(Excel2007でソフト作成)

Excel Tipsメニューに戻る

スポンサーリンク



FileDialogで引数に、msoFileDialogOpenを使うとファイルを開くダイアログが表示されます。
ファイルが選択されると、Showメソッドに-1が返ります。
Executeメソッドでファイルを開きます。

Excelシート画面

■実行Excelシート
ファイルを選択し開くボタン
ファイルを開くシート

ファイルを選択するダイアログ
ファイルを開くダイアログ

スポンサーリンク



Excel VBA実行コード

Sub ボタン1_Click()
    Dim fdlg As FileDialog
    
    Set fdlg = Application.FileDialog(msoFileDialogOpen)
    
    'ファイルダイアログを開く
    'ファイルが選択された場合、-1が返る
    If fdlg.Show = -1 Then
        '選択したファイルを開く
        fdlg.Execute
    End If
    
    '終了処理
    Set fdlg = Nothing

End Sub

Excel Tipsメニューに戻る

スポンサーリンク






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


Copyright (c) Excel-Excel ! All rights reserved