pythonもしくはvbaで別ブックから別ブックへのデータコピーを繰り返す方法を教えてください

Question

日付別で整理しているExcelデータを1つのExcelに整理する方法を教えてください。

4月1日.csv ～ 4月30日.csv のExcelが30個あり、
そのデータを1つのExcelに整理したいです。
（4月1日のデータを代入したあと、次の行に4月2日のデータを代入していく。また、タイトル行は2日目から抜かしたいです…）

下記のような流れで作ればというイメージはあるのですが、コードが書けず、ご教示お願い致します。
1、日付の部分を1～30で繰り返す。
2、Excelをセット、開きデータを代入。
3、Excelを閉じる
4、繰り返し機能で次の日にちで2番の作業に移行。

Comments

[meg_]

Pythonであればpandasを使うのが楽だと思います。

[udon-ken]

> コードが書けず
1行も書けないのでしょうか？
せめて、1,4のループ部分程度は書けないといろいろ困難かと思いますが…

[kirara0048]

https://www.relief.jp/docs/python-merge-files.html

Answer 1

Sub sample()

    Dim fso 'As Scripting.FileSystemObject
    Set fso = CreateObject("Scripting.FileSystemObject")
    Dim ws As Worksheet, r As Long
    Set ws = ActiveSheet
    r = 1
    
    Dim fn As String, wb As Workbook, rng As Range
    Dim y, m, d
    y = 2021
    m = 4
    For d = 1 To 31
        fn = Format(DateSerial(y, m, d), "m月d日") & ".csv"
        If fso.FileExists(fn) Then
            Set wb = Workbooks.Open(fn)
            Set rng = wb.Worksheets(1).UsedRange
            If r > 1 Then Set rng = rng.Resize(rng.Rows.Count - 1).Offset(1)
            
            ws.Range("A" & r).Resize(rng.Rows.Count, rng.Columns.Count).Value = rng.Value
            r = r + rng.Rows.Count
            wb.Close False
        End If
    Next
End Sub