|
こんにちは。かみちゃん です。
>AAA(15年).xlsの「一覧表」シートの内容
>
> A B C
>1 あああ 男 神奈川
>2 いいい 女 東京
>3 ううう 女 千葉
>
>AAA(14年).xlsの「一覧表」シートの内容
>
> A B C
>1 qqq 男 埼玉
>2 ppp 男 群馬
>3 kkk 女 長野
>
>
>これを「年度集計.xls」の「全件一覧」シートに
>繋げてコピーしたいのです。
>
> A B C
>1 あああ 男 神奈川
>2 いいい 女 東京
>3 ううう 女 千葉
>4 qqq 男 埼玉
>5 ppp 男 群馬
>6 kkk 女 長野
>
>このような感じです。
「年度集計.xls」に以下のようなコードを記述し、、「D:\年度集計」フォルダに
保存し一度閉じて、そのあと、実行してみてください。
Sub Macro1()
Dim strPath As String
Dim strFileName As String
Dim vntData As Variant
Dim rngResult As Range
strPath = ThisWorkbook.Path & "\"
strFileName = Dir(strPath & "AAA*.xls")
Do Until strFileName = ""
If strFileName <> ThisWorkbook.Name Then
Workbooks.Open Filename:=strPath & strFileName
vntData = Sheets("一覧表").Range("A1").CurrentRegion.Value
With ThisWorkbook.Sheets("全件一覧")
Set rngResult = .Range("A1")
If .Range("A1").Value <> "" Then
Set rngResult = .Cells(Rows.Count, 1).End(xlUp)
End If
rngResult.Resize(UBound(vntData, 1), UBound(vntData, 2)).Value = vntData
End With
Erase vntData
ActiveWorkbook.Close
End If
strFileName = Dir()
Loop
End Sub
|
|