【Excel】VBAマクロでcsv読み込みを列指定（1列：複数列範囲指定：飛び飛びなど）を行う方法【Range, OpenText, InputBox】

Sub ReadColumnAFromCSV()
    ' CSVファイルのパスを指定してください
    Dim csvPath As String
    csvPath = "C:\path\to\your\file.csv"

    ' CSVファイルを開き、A列のみを読み込む設定で開きます
    With Workbooks.OpenText(Filename:=csvPath, _
                            Origin:=xlMSDOS, _
                            StartRow:=1, _
                            DataType:=xlDelimited, _
                            TextQualifier:=xlDoubleQuote, _
                            ConsecutiveDelimiter:=False, _
                            Tab:=False, _
                            Semicolon:=False, _
                            Comma:=True, _
                            Space:=False, _
                            Other:=False, _
                            FieldInfo:=Array(1, 1), _
                            TrailingMinusNumbers:=True)

        ' 開いたCSVファイルのデータをアクティブなワークシートのA列にコピーします
        ThisWorkbook.Sheets("Sheet1").Range("A:A").Value = _
            .Sheets(1).Range("A:A").Value

        ' 開いたCSVファイルを閉じます
        .Close SaveChanges:=False
    End With
End Sub

Sub YomikomiRenketu()
    Dim kaishiGyou, owariGyou As Integer
    kaishiGyou = 1
    owariGyou = 10
    ' 例として1行目から10行目までのデータを読み込みます。
    Workbooks.OpenText Filename:="C:\yourpath\yourfile.csv", DataType:=xlDelimited, Comma:=True, FieldInfo:=Array(Array(1, 1), Array(2, 1))
    ' ここでは1列目と2列目を読み込む設定です。
End Sub

Sub YomikomiInputBox()
    Dim retsuHairetsu As Variant
    retsuHairetsu = InputBox("読み込みたい列番号をカンマ区切りで入力してください。例: 1,3,5")
    ' ユーザーが指定した列番号を取得します。
    Workbooks.OpenText Filename:="C:\yourpath\yourfile.csv", DataType:=xlDelimited, Comma:=True, FieldInfo:=Array(Array(retsuHairetsu(0), 1), Array(retsuHairetsu(1), 1))
    ' 取得した列番号に基づいてcsvファイルを開きます。
End Sub