VBA FileDialogでファイルを開く

FileDialogでファイルを開く

Sub test()
    ' FileDialogでファイルを開く

    With Application.FileDialog(msoFileDialogOpen)
        .Title = "ファイルを選択してください"
        .InitialFileName = "test"    'デフォルトファイル名
        .AllowMultiSelect = False
        
        
        Do
            If .Show = 0 Then
                MsgBox "選択してください"
            Else
                .Execute
                Exit Do
            End If
        Loop

    End With

End Sub

― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじ へ戻る 

参考記事

『VBA　参照ダイアログでフォルダーのパスを取得』