エクセル CSVファイルを読み込む VBA マクロ

はじめに

エクセルでCSV・テキストファイルを開けるのはいいのだが、
いちいち手作業で出力設定するのが面倒なのでマクロを書きました

Option Explicit

Sub getcsv()
    Dim st As String
    st = Application.GetOpenFilename()
    If st = "False" Then Exit Sub 'キャンセルなら処理終了

    Dim idx As Long
    idx = 1
    Dim Cnt As Long
    Dim Vst() As String

    Open st For Input As #1
    Do Until EOF(1)
        Line Input #1, st
        Vst = Split(st, ",")
        For Cnt = 0 To UBound(Vst)
            Range("A" & idx).Offset(0, Cnt).Value = Replace(Vst(Cnt), """", "")
        Next
        idx = idx + 1
    Loop
    Close #1

End Sub

読み込むだけなのでFSOを使うまでもないと思いましたので簡潔に書きました。

おわりに

VBAネタあれば対応できます笑