【VBA】複数のcsvファイルから指定の行を抽出して一つのcsvファイルにしたい

前提・実現したいこと

2つのcsvファイルからD列が「1」の行だけ抽出して、1つのcsvファイルに結合させたい。
【試してみたこと】
１つ目のcsvファイルを読み込んでみたが、以下のようになってしまう。

aa	bb	cc	dd
1,10,60,1
4,50,40,1

1つ目のcsvファイル「a.csv」

aa	bb	cc	dd
1	10	60	1
2	20	90	0
3	40	80	0.5
4	50	40	1

2つ目のcsvファイル「b.csv」

aa	bb	cc	dd
1	1	6	0
2	2	9	1
3	4	8	1
4	5	4	0.5

最終的に完成させたいcsvファイル

aa	bb	cc	dd
1	10	60	1
2	2	9	1
3	4	8	1
4	50	40	1

ソースコード

Sub
1    '読み込むCSVファイル
2    Const CSV_FILE As String = "C:\pgfile\input_file\a.csv"
3    '出力する開始行を指定
4    Const START_ROW As Long = 2
5    '出力する列を指定
6    Const TARGET_COLUMN As Long = 1
7
8    '改行用変数
9    Dim row As Long
10    Dim ws As Worksheet
11    Dim line As String
12    
13    '開始行を設定
14    row = START_ROW
15    '出力するシートを設定
16    Set ws = Worksheets("Sheet1")
17    
18    With CreateObject("ADODB.Stream")
19        '開く
20        .Open
21        '文字コードに「UTF-8」を指定
22        .Charset = "UTF-8"
23        '改行コードに「adLF」を指定
24        .LineSeparator = 10
25        'ファイル名を指定
26        .LoadFromFile = CSV_FILE
27        
28        '最終行まで繰り返し
29        Do While Not .EOS
30            '次の行を読み込む
31            line = .ReadText(-2)
32            '対象文字列が含まれている場合は出力
33            If line Like "*1*" Then
34                ws.Cells(row, TARGET_COLUMN) = line
35                row = row + 1
36            End If
37        Loop        
38        '閉じる
39        .Close
40    End With
41    
42End Sub

行動規範の内容に同意します

回答1件

とりあえず、修正しました。以下のようにしてください。

VBA
1Public Sub CSV読み込み()
2
3'読み込むCSVファイル
4    Const CSV_FILE As String = "C:\pgfile\input_file\a.csv"
5    '出力する開始行を指定
6    Const START_ROW As Long = 2
7    '出力する列を指定
8    Const TARGET_COLUMN As Long = 1
9
10    '改行用変数
11    Dim row As Long
12    Dim ws As Worksheet
13    Dim line As String
14    Dim cols As Variant     '1行を各列に分割した配列
15    '開始行を設定
16    row = START_ROW
17    '出力するシートを設定
18    Set ws = Worksheets("Sheet1")
19
20    With CreateObject("ADODB.Stream")
21        '開く
22        .Open
23        '文字コードに「UTF-8」を指定
24        .Charset = "UTF-8"
25        '改行コードに「adLF」を指定
26        .LineSeparator = 10
27        'ファイル名を指定
28        .LoadFromFile = CSV_FILE
29
30        '最終行まで繰り返し
31        Do While Not .EOS
32            '次の行を読み込む
33            line = .ReadText(-2)
34            cols = Split(line, ",")
35            '対象文字列が含まれている場合は出力
36            If cols(3) = "1" Then
37                ws.Cells(row, 1).Value = cols(0)
38                ws.Cells(row, 2).Value = cols(1)
39                ws.Cells(row, 3).Value = cols(2)
40                ws.Cells(row, 4).Value = cols(3)
41                row = row + 1
42            End If
43        Loop
44        '閉じる
45        .Close
46    End With
47
48End Sub
49