【VBA】CSVファイルから特定の文字列を含む行のみを、シートへ読み込む

文字コードが「Shift_JIS」の場合

文字コードが「Shift_JIS」の場合は、特に考慮不要のためシンプルに
　・Openステートメント
を使用して、CSVファイルを読み込みます。

ここでは例として、
　・デスクトップ配下のファイル「sample_shift_jis.csv」から
　・文字列「みかん」が含まれている行のみを
　・シート「sample」へ
読み込みます。

Option Explicit

Sub sample()

    '読み込むCSVファイル
    Const CSV_FILE As String = "C:\Users\user\Desktop\sample_shift_jis.csv"
    '出力する開始行を指定
    Const START_ROW As Long = 2
    '出力する列を指定
    Const TARGET_COLUMN As Long = 2
    
    Dim num As Long
    Dim line As String
    Dim row As Long
    Dim ws As Worksheet
    
    '開始行を設定
    row = START_ROW
    '出力するシートを設定
    Set ws = Worksheets("sample")
    '使用可能なファイル番号を取得
    num = FreeFile
    
    '開く
    Open CSV_FILE For Input As #num
    
    '最終行まで繰り返し
    Do While Not EOF(num)
        '次の行を読み込む
        Line Input #num, line
        '対象文字列が含まれている場合は出力
        If line Like "*みかん*" Then
            ws.Cells(row, TARGET_COLUMN) = line
            row = row + 1
        End If
    Loop
    
    '閉じる
    Close #num
    
End Sub

上記のVBAコードの実行により、
　・特定の文字列(みかん)を含む行のみを、
　・シートへ読み込む
ことが出来ました。

文字コードが「UTF-8」の場合

文字コードが「UTF-8」のCSVファイルを「Openステートメント」で読み込むと、文字化けしてしまい「特定の文字列」が含まれているかどうかが判定できません。

そのため文字コードが「UTF-8」の場合は、
　・ADODB.Stream
を使用して、CSVファイルを読み込みます。
※「ADODB.Stream」は文字コードの指定が可能なため。

ここでは例として、
　・デスクトップ配下のファイル「sample_utf8.csv」から
　・文字列「みかん」が含まれている行のみを
　・シート「sample」へ
読み込みます。

Option Explicit

Sub sample()

    '読み込むCSVファイル
    Const CSV_FILE As String = "C:\Users\user\Desktop\sample_utf8.csv"
    '出力する開始行を指定
    Const START_ROW As Long = 2
    '出力する列を指定
    Const TARGET_COLUMN As Long = 2
    
    Dim line As String
    Dim row As Long
    Dim ws As Worksheet
    
    '開始行を設定
    row = START_ROW
    '出力するシートを設定
    Set ws = Worksheets("sample")
    
    With CreateObject("ADODB.Stream")
        '開く
        .Open
        '文字コードに「UTF-8」を指定
        .Charset = "UTF-8"
        '改行コードに「adCRLF」を指定
        .LineSeparator = -1
        'ファイル名を指定
        .LoadFromFile = CSV_FILE
        
        '最終行まで繰り返し
        Do While Not .EOS
            '次の行を読み込む
            line = .ReadText(-2)
            '対象文字列が含まれている場合は出力
            If line Like "*みかん*" Then
                ws.Cells(row, TARGET_COLUMN) = line
                row = row + 1
            End If
        Loop
        
        '閉じる
        .Close
    End With
    
End Sub

上記のVBAコードの実行により、
　・特定の文字列(みかん)を含む行のみを、
　・シートへ読み込む
ことが出来ました。