■1つのファイルを選択する サンプル1では、ファイルの種類にcsvファイルを指定して、[ファイルを開く]ダイアログボックスを表示します。 ファイルを選択すると、そのファイルのフルパスがメッセージボックスに表示されます。 GetOpenFilenameメソッドの戻り値はバリアント型です。 ファイルを選択すると、そのパスを返すだけで、実際にファイルは開かれません。 [キャンセル]ボタンをクリックしたり、[×]ボタンでダイアログボックスを閉じるなど、ファイルの選択をキャンセルした場合はFalseを返します。 キャンセルされたかどうかはVarType関数で判定します。 ●サンプル1● Sub Sample1() Dim myFile As Variant ChDir "C:\Data" myFile = Application.GetOpenFilename("CSVファイル(*.csv),*.c