' [016.xls]



' [Module1] のコード
'★★☆　指定したパスで組み込みダイアログを開く　☆★★

Option Explicit

Sub start()
Dim 指定パス As String
    
    指定パス = [E9]
    
    'カレントドライブの変更(存在しないドライブではエラーになります)
    ChDrive 指定パス
    
    'カレントフォルダの変更(存在しないパスはエラーになります)
    ChDir 指定パス
    
    '組み込みダイアログの起動
    Application.Dialogs(xlDialogOpen).Show

End Sub

'----- 参考
'   ヘルプから "Dialogs" をキーワードにそこのリンクから
'   "組み込みダイアログ ボックス引数一覧"をご覧下さい
'   Excelから使える組み込みダイアログが全て表示されます