Excel VBA ドライブ、ディレクトリを指定してファイルを開くダイアログを表示の変更点

• 追加された行はこのように表示されます。
• 削除された行はこのように表示されます。

!!!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