csvファイルの結合を行いたい

Question

200個のcsvファイルの任意の列を取り出し、それを列方向に結合したファイルを作成したいと考えています。

使用するcsvファイルはすべて100行2列です。
任意のフォルダ内にある同じ大きさのcsvファイルの2列目のみを取り出して、そのデータを列方向に200ファイル分繋げた形にした1つのcsvファイルを作成したいと考えています。

以下のサイトを参考にしましたが、"結合するファイルはすべて3列以上なければならない"という制約があり、そのままでは使用できず、編集しようにもどこを変更すればいいのかわからない状態です。
https://excelkamiwaza.com/folder_file_read.html

どなたかVBAに詳しい方で、上記のような対応ができるように編集し直すことができるかたがいらっしゃればご教授いただきたいです。

初心者かつ拙い日本語でわかりにくい部分もあるかと思いますが、よろしくお願い致します。

Comments

[Orlofsky]

URLは https://teratail.com/help/question-tips#questionTips3-7 の [リンク] で
[リンク先の説明](http...) に修正してください。

[Orlofsky]

> 200個のcsvファイルの任意の列を取り出し、それを列方向に結合したファイルを作成したいと考えています。

迷わずにデータベースに移行した方がずっと幸せになれます。

[workaholist]

①参考サイトはエクセルのようですがCSVもできるのですか？
②"結合するファイルはすべて3列以上なければならない"という制約はどこにあるのですか？（「読み込む列数」が３だからABC列が必要と読めますが）
③わからない場所はどこですか？（ファイル読込、書込など）
参考サイトコピペしたいけど動かないから全部直してってことでしょうか。

[ttyp03]

出来上がるのは１行2万列のCSVファイルということですか？
ExcelVBAでやるより、VBScriptの方が楽かもしれません。言語はExcelVBAに限定でしょうか？

Answer 1

こんにちは。よろしくおねがいいたします。

考えてらっしゃるのは、以下のようなことでしょうか？

Option Explicit

Sub ImportMultiCSVs()
'n個のCSVを読み込む
'それぞれのCSVはまったく同じ構造をしていて、100行2列である。
'このCSVで、２列目のデータの100行を、
'集計シート側の1列目に、上から下へ転記する。
'次のCSVは、2列目に、その次のCSVは３列目に・・というふうに転記する。
'結果的に、集計シートには、100行200列のデータができあがる、ということ。

Dim InputFolder As String
InputFolder = "C:¥temp¥InputFolder"

Dim OutputSheet As Worksheet
Set OutputSheet = ThisWorkbook.Worksheets("集計シート")

Dim MyCSV As Variant
Dim ArrCSV As Variant
Dim I As Long, J As Long
Dim x As Long

'Jで集計シートを横方向にドリフトしていく
J = 1

MyCSV = Application.GetOpenFilename("CSVファイル,*.csv", Title:="CSVを選択してください", MultiSelect:=True)

For x = LBound(MyCSV) To UBound(MyCSV)
        'IでCSVファイルを上から下に読んでいく
        I = 1
        Open MyCSV(x) For Input As #1
        Do Until EOF(1)
                Line Input #1, MyCSV(x)
                ArrCSV = Split(MyCSV(x), ",")
                'ArrCSV(1)は、２列目のこと
                OutputSheet.Cells(I, J).Value = ArrCSV(1)
                I = I + 1
        'CSVファイルの次の行へシフトします
        Loop
        
        'CSVファイルを閉じます
        Close #1
        J = J + 1
Next x

End Sub

これで僕のほうで実験してみて、うまくいきました。
このコードでは、特に"100個”とか”100行”とかを意識しないで機能します。

GetOpenFilenameのMultiSelect:=trueを使っています。
これで、任意のフォルダで、CTRL-Aしてあげれば、全部のCSVを一気に選択できます。

ポイントは　Arr(1)でしょうか。これで「CSVの２カラム目」を指定しています。

ご参考になさってください。。

Answer 2

参考にされているのは縦方向に纏めるものですから、行を一致させるような部分が参考になる箇所がありませんね。
キーの突合などはSQLの方が得意ですので、以下などを参考に。
Excelの集計をSQLでおこなう方法。VLOOKUP()やSUBTOTAL()の限界を超えろ！！