!!!Excel VBA ドライブ、ディレクトリを指定してファイルを開くダイアログを表示する
[Excel VBA]

!!1ファイルのみ選択
 Dim selFile As Variant
 Dim outPath As String
 
 outPath = "f:\work\data"
 
 Call ChDrive(Left$(outPath, 2))
 Call ChDir(outPath)
 
 selFile = Application.GetOpenFilename("ログファイル (*.log),*.log)", , "")
 
 If selFile = False Then
     Call MsgBox("ファイルが選択されませんでした", vbInformation)
     Exit Sub
 End If
!!複数ファイル選択
 Dim selFile     As Variant
 Dim outPath     As String
 Dim i           As Integer
 Dim results()   As String
  
 ReDim results(0)
 
 outPath = ActiveWorkbook.Path
 Call ChDrive(Left$(outPath, 2))
 Call ChDir(outPath)
  
 selFile = Application.GetOpenFilename("Excelファイル (*.xlsx),*.xlsx)", MultiSelect:=True)
      
 If IsArray(selFile) Then
     ReDim results(UBound(selFile))
     For i = 0 To UBound(selFile) - 1
         results(i) = CStr(selFile(i + 1))
     Next
 Else
     Call MsgBox("ファイルが選択されませんでした", vbInformation)
 End If
 
 ChooseFiles = results