| |
こんにちは。かみちゃん です。
>AAA(15年).xlsの「一覧表」シートの内容
>
> A B C
>１ あああ 男 神奈川
>２ いいい 女 東京
>３ ううう 女 千葉
>
>AAA(14年).xlsの「一覧表」シートの内容
>
> A B C
>１ ｑｑｑ 男 埼玉
>２ ｐｐｐ 男 群馬
>３ ｋｋｋ 女 長野
>
>
>これを「年度集計.xls」の「全件一覧」シートに
>繋げてコピーしたいのです。
>
> A B C
>１ あああ 男 神奈川
>２ いいい 女 東京
>３ ううう 女 千葉
>４ ｑｑｑ 男 埼玉
>５ ｐｐｐ 男 群馬
>６ ｋｋｋ 女 長野
>
>このような感じです。
「年度集計.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
|
|
かみちゃん
- 06/9/8(金) 23:47 -
