| |
▼まんぞう さん：
こんにちは
統一.xls が開かれた状態で実行。
統一.xlsの"Sheet1" に集約しています。
集約シートにはあらかじめ、１行目にタイトル行をセットしておいてください。
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
|
|
UO3
- 13/6/5(水) 16:13 -
