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