Sub 選んだCSVをSheet2に取り込む()
'宣言関係
Dim f As String
'選んだcsvファイルをSheet2に取りこむ
f = Application.GetOpenFilename("CSVファイル(*.csv),*.csv", 1, "読み込むcsvファイルを選ぶ", False)
If f = "False" Then Exit Sub
Workbooks.Open f
Cells.Copy ThisWorkbook.Sheets("Sheet2").Range("A1")
ActiveWorkbook.Close False
End Sub
※この仕様はUTF-8を読み込んだ場合文字化けします。