|
▼まんぞう さん:
こんにちは
統一.xls が開かれた状態で実行。
統一.xlsの"Sheet1" に集約しています。
集約シートにはあらかじめ、1行目にタイトル行をセットしておいてください。
Sub Sample()
Dim myPath As String
Dim fName As String
Dim tSh As Worksheet
Dim fSh As Worksheet
Dim wb As Workbook
Application.ScreenUpdating = False
myPath = "c:\TEST\" '県別ブックが入っているフォルダパス。★実際のものに。
Set tSh = Workbooks("統一.xls").Sheets("Sheet1") '集約シート名 ★実際のものに
With tSh.Range("A1").CurrentRegion
Intersect(.Cells, .Offset(1)).ClearContents
End With
fName = Dir(myPath & "*.xls")
Do While Len(fName) > 0
Set wb = Workbooks.Open(myPath & fName)
Set fSh = Nothing
On Error Resume Next
Set fSh = wb.Sheets("売上")
On Error GoTo 0
If Not fSh Is Nothing Then
With fSh.Range("A2", fSh.Range("A" & fSh.Rows.Count).End(xlUp))
tSh.Range("A" & tSh.Rows.Count).End(xlUp).Offset(1).Resize(.Rows.Count, 2).Value = .Value
End With
End If
wb.Close False
fName = Dir()
Loop
Application.ScreenUpdating = True
MsgBox "終了"
End Sub
|
|