Excel マクロ 選んだCSVファイルをSheet2 に取り込む VBA

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を読み込んだ場合文字化けします。

タイトルとURLをコピーしました