複数のcsvファイルをフォルダごと指定して列方向に結合するマクロを作成したい

Question

NETや本を見ながら独学で勉強している者です。

今、複数のcsvファイルの列方向での結合のマクロを組んでいます。

1.filepickerを使用しない。
2.メインフォルダのパスをセルに予め入力しておく（B2セルにフォルダパス）。
3.結合するcsvファイルは全てサブフォルダ直下にあり、A列に数値のみ入力されていて、他の種類のファイルは入っていない。

作りたいのは、一つのサブフォルダにあるcsvファイル全てを列方向に結合するものです。
今考えているのは下記の通りです。あともう一息だと思うのですが、うまく動作してくれません。
アドバイスを頂けたら嬉しいのですが。

Sub merge()

　　　　　Set GFBook = Workbooks.Add

　　　　　　　Do Until cFiles = ""
　　　　　　　Workbooks.Open Filename:=cFiles
　　　　　　　ActiveSheet. UsedRange. Copy GFBook.ActiveSheet.Cells(1, c)
　　　　　　　ActiveWorkbook.Close False
　　　　　　　c = GFBook.ActiveSheet.UsedRange.Columns.Count + 1

　　　　　　　Loop
     
　　　　　GFBook.SaveAs Filename:=Path & GFName, FileFormat:=xlWorkbookDefault

End Sub

Qchan1962 · Accepted Answer

補足読みました
サブフォルダごとにExcelファイルを作るのですね。

For i = 1 To UBound(subFolPath, 1)
　　GFName = subFolPath(i,1)
　　Set GFBook = Workbooks.Add

・
・
　　　　Loop
　　GFBook.SaveAs Filename:=ThisWorkbook.Path & GFName, FileFormat:=xlWorkbookDefault
　　Next
こんな感じかな？

ブックは閉じていません。

Qchan1962 · Answer

こんばんは、
横から失礼します。

GFBook.ActiveSheet.UsedRange.Columns.Count + 1
のUsedRang.Columns.Countは、不要だと思います。なぜなら、Set GFBook = Workbooks.Add　で
新規作成だからシート内は空のはず、、

C=1
Workbooks.Open Filename:=cFiles
・
ActiveWorkbook.Close False
c=c+1　で成立するのではないでしょうか？

ActiveSheet. UsedRange. Copy GFBook.ActiveSheet.Cells(1, c)　についても

GFBookは新規ブックなので、 GFBook.sheets(1).Cells(1, c) インデックス１のシートに貼り付ければ良いと思います。

サブフォルダすべてからCSVを抽出するのであれば、すべてのパスを取得して　
cFiles = Dir(パス＆ファイル名
Do Until cFiles = ""
のような感じになると思います。

＞A列に数値のみ入力されていて　　A列のみコピーすれば良いでしょうか？

サンプルを書きますが、やり方は、色々あります。
掲示されているコードを参考にDirで。変数名は変えました。
csv、Excelで開く形なのでそのまま
あくまでサンプルなので、すでに出来ているところなどは、変更してください。
不具合や解らない所は、補足してください。

Sub Sample()
Dim GFBook As Workbook
Dim subFolPath
Dim FolPath As String
Dim TargetCSV As String, GFName As String
Dim i As Long, c As Long

With ThisWorkbook.Sheets(1)　'添付の画像のシートが不明の為、VBAを実行するブックのインデックス1のシート
　　　　FolPath = .Range("B2").Text & "\"
　　　　subFolPath = .Range("D2:D" & .Cells(Rows.Count, "D").End(xlUp).Row)
　　End With
　　GFName = "CSV集計TEST"
　　Set GFBook = Workbooks.Add
　　For i = 1 To UBound(subFolPath, 1)
　　　　TargetCSV = Dir(FolPath & subFolPath(i, 1) & "*.csv")
　　　　Do Until TargetCSV = ""
　　　　　　c = 1
　　　　　　Workbooks.Open FolPath & subFolPath(i, 1) & TargetCSV
　　　　　　With ActiveSheet
　　　　　　　　.Range("A1:A" & .Cells(Rows.Count, "D").End(xlUp).Row).Copy GFBook.Sheets(1).Cells(1, c)
　　　　　　　　ActiveWorkbook.Close False
　　　　　　End With
　　　　　　c = c + 1
　　　　　　TargetCSV = Dir
　　　　Loop
　　Next
　　GFBook.SaveAs Filename:=ThisWorkbook.Path & GFName, FileFormat:=xlWorkbookDefault

End Sub

fujillin · Answer

こんにちは

他の方のご指摘にもあるように、「添付の図」と「ご説明の文章」と「ご提示のコード」がそれぞれバラバラなので、何がどうなっているのか、どうしたいのかがわかりません。
回答者には質問欄に提示される情報が全てですので、その内容が矛盾していたり、意味不明だったりするとひたすら謎が深まるだけになります。

＞あともう一息だと思うのですが、うまく動作してくれません。
ご提示のコードで気が付くのは、未定義の変数をいきなり使おうとしている部分が多いこと。

＞Workbooks.Open Filename:=cFiles
変数cFilesにはどこで初期値が与えられて、ループではどう変化していくのかまったく見えません。

＞ActiveSheet. UsedRange. Copy GFBook.ActiveSheet.Cells(1, c)
ActiveSheetはひとつのはずなのですが？？
変数cも初期値が与えられていないので、デフォルトの0を期待しているのか？
一方で、セルの行列の番号は1がスタートなので、0ではエラーになるだけ。

Cells(1, c)は、1行目は固定で列番号がcという意味になるけれど、添付の図と合致しているとは到底思えない。

読み込んだファイルの値はA列にだけあるのかも知れないけれど、UsedRangeだと（もしかすると）A列だけとは限らない可能性がありそうですが、問題ないのでしょうか。

＞GFBook.SaveAs Filename:=Path & GFName
いきなり変数GFNameって、どこからでてきたのでしょうね？

・・・ 残念ですがあまり「あと一息」という印象は持てませんでした。

めぐみん_ · Answer

Ｄ列にあるのが『一つのサブフォルダ』って事なのでしょうかね？
そしてＤ列に書かれている分だけ同じ作業を行なう？
それともＡ６：Ｂ７に記載されているサブフォルダだけに絞り込む？

めぐみん_ · Answer

＞複数のcsvファイルの列方向での結合

どう言うデータをどうしたいのか『可能なら』テキストエディタで開いた画像が見たいかな？

あと掲示している画像とコードの関係が良くわからない。
画像のデータは何を意味しているの？

＞一つのサブフォルダにあるcsvファイル全てを

となっているのに画像ではサブフォルダは幾つもあるように感じるし。

複数のcsvファイルをフォルダごと指定して列方向に結合するマクロを作成したい

補足読みました

こんばんは、

こんにちは

Ｄ列にあるのが『一つのサブフォルダ』って事なのでしょうかね？

＞複数のcsvファイルの列方向での結合

似たような質問が見つかりました

このQ&Aを見た人はこんなQ&Aも見ています

関連するカテゴリからQ&Aを探す

このQ&Aを見た人がよく見るQ&A

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング