Dim FileNameFileName = Application.GetOpenFilename("CSVファイル,*.csv")Workbooks.Open FileName 実行するとファイル選択のダイアログボックスが表示される。選択し【開く】を押すとファイルのフルパスを文字列として取得する。↑この例ではCSVのみ表示さ…