|
▼杏子 さん:
一応、指定フォルダ内のCSVファイルをすべて扱うという前提でDo/Loop処理で書きました。
Sub Sample2()
Dim myPath As String
Dim myCsv As String
Dim sh As Worksheet
Dim z As Long
Application.ScreenUpdating = False
myPath = "H:\形式変換用\"
Set sh = ThisWorkbook.Sheets("Sheet1") '集約シート
sh.Cells.ClearContents
myCsv = Dir(myPath & "*.csv")
Do While Len(myCsv) > 0
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
myCsv = Dir()
Loop
Application.ScreenUpdating = True
MsgBox "集約が完了しました"
End Sub
|
|