Dim FilePath As String 'ファイルパスを取得 FilePath = Application.GetOpenFilename(filefilter:="説明,*.csv,説明,*.xlsm", Title:="ファイルを選択してください") Workbooks.Open Filename:=FilePath VBA、自分用の備忘録。