VBA 階層を指定してダイアログでファイルを開く

階層をしてダイアログでファイルを開く

  '最初に開くフォルダを指定
    With CreateObject("WScript.Shell")
        .CurrentDirectory = ThisWorkbook.Path
    End With
    
    'ファイルパスを取得
    a = Application.GetOpenFilename("Microsoft Excelブック,*.xlsx?")
    
    'キャンセルの場合、終了
    If a = False Then Exit Sub
    
    'ファイルを開く
    Workbooks.Open Filename:=a

ダイアログでファイルを開く

 'ファイルパスを取得
    a = Application.GetOpenFilename("Microsoft Excelブック,*.xlsx?")
    
    'キャンセルの場合、終了
    If a = False Then Exit Sub
    
    'ファイルを開く
    Workbooks.Open Filename:=a
    
End Sub

階層を指定してダイアログでCSVファイルを開く

'最初に開くフォルダを指定
    With CreateObject("WScript.Shell")
        .CurrentDirectory = ThisWorkbook.Path
    End With
    
    'ファイルパスを取得
    a = Application.GetOpenFilename("Microsoft Excelブック,*.csv?")
    
    'キャンセルの場合、終了
    If a = False Then Exit Sub
    
    'ファイルを開く
    Workbooks.Open Filename:=a