|
▼杏子 さん:
おはようございます
CSVファイルが、必ず1行目からデータがあり、その2行目から取り込むという前提です。
最後の、自ブックの保存は割愛しています。
Sub Sample()
Dim myPath As String
Dim myCsv As Variant
Dim sh As Worksheet
Dim z As Long
Application.ScreenUpdating = False
myPath = "H:\形式変換用\"
Set sh = ThisWorkbook.Sheets("Sheet1") '集約シート
sh.Cells.ClearContents
For Each myCsv In Array("売上A.csv", "売上B.csv", "売上C.csv")
Workbooks.Open Filename:=myPath & myCsv
If z = 0 Then
z = 1
Else
z = sh.UsedRange.Rows.Count + 1
End If
ActiveSheet.UsedRange.Offset(1).Copy sh.Cells(z, "A")
ActiveWorkbook.Close False
Next
Application.ScreenUpdating = True
MsgBox "集約が完了しました"
End Sub
|
|