フォルダ内の複数のCSVを結合する まとめる
Sub test()
'説明 指定フォルダ内のCSVをすべて結合して、保存するプロシージャ
CRFILE = ActiveWorkbook.Path & "\test.csv" '1*
Dim obj As Object
Dim arg As String
arg = ActiveWorkbook.Path & "\downloads\*.csv " '2*
Set obj = Nothing
Call Shell(Environ("ComSpec") & " /c copy /b " & arg & CRFILE)
End Sub
1*結合したCSVの保存先、ファイル名を指定 上記ではアクティブブックと同じディレクトリにtest.csvというファイル名で保存される
2* フォルダを指定 上記ではアクティブブックの保存されているディレクトリの"downloads"内のフォルダの全てのCSVが結合される
引用元 半角チルダ様
