Excelマクロでデータ集計

質問

エクセルマクロの初心者です。昨日はじめてマクロを勉強したばかりなので分からないことばかりなので教えてください。

毎月集計データをエクセルで入手するのですが、月ごとにエクセルファイルが作成されているために過去の集計データを見返す必要があるときには月ごとのエクセルファイルを開いて確認することになるため非常に手間となります。

そこで、毎月入手する集計データを新たにまとめファイルとして、例えばボタン１つでそのまとめファイルにどんどん追記する自動マクロを作成したいと思っています。

一応、今考えている仕様は次の通りです。

【ボタン１】
ある特定のフォルダを指定して、エクセルを開きます。特定フォルダには過去に入手したエクセルファイルをすべて格納しているものとし、最新のエクセルファイルのみを自動で開きたい（機能としてできるか分からないので、今はボタンを押すことによってその特定フォルダにアクセスできるマクロまでは作成しました）

Sub ファイルを選択して開く() '←後述の時点の本を引用しています。
With Application.FileDialog(msoFileDialogOpen)
.AllowMultiSelect = False
.FilterIndex = 2
.InitialFileName = "C:\"
If .Show = -1 Then .Execute
End With
End Sub

【ボタン２】
仮に毎月送付されてくる月ごとのファイルを各月ファイル.xls、過去の集計ファイルを全て載せているファイルを集計ファイル.xlsとします（データは各月ファイル.xls、集計ファイル.xlsともsheet1にのみあるものとします）
各月ファイルには表があり、例えば４月は(B2:H20)、5月は（B2:H30)と月ごとの表内容は異なるものとします。
４月ファイル、５月ファイルを集約ファイル.xlsにボタン２を押すことでどんどん追加できるようなマクロを作成したいと思っています（上書きはしないようにする）

なお、(B2:B20)は表タイトルのため、５月以降のデータをボタンを押して自動貼り付けする際にはタイトル行を削除して貼り付けしたいと考えています。

ボタン２の仕様は上記のようになりますが、今私が苦戦しているのは、同じファイルの同じシート上ならボタンで貼り付けられたのですが、別ファイルで作成するとなるとさっぱりわかりません。

因みに昨日初めてマクロを勉強したと言いましたが、初心者向けマクロみたいな本でマクロを約１０時間作成しながら形だけでも慣れることをはじめました。またマクロ辞典（分厚い本）を昨日購入して色々機能を調べているのですが、調べ方が悪いのかまだ分からないことがたくさんあるレベルです。

長文になりましたが、ボタン２のマクロの作成方法についてエクセルマクロの得意な方がいましたらご教授頂けたらと思いますので、宜しくお願い致します。

回答No.1

snowsan062 · ベストアンサー

以下のサンプルの「転記部分。ここ変える」って所を
「同じファイルの同じシート上ならボタンで貼り付けられたのですが」って機能に変えて
Range又はCellの前に「shRead」や「shWrite」をつける。

流れ的には、ファイルを選択させた後に
選択ファイルを開いて、コピー＆ペーストした後に
選択ファイルを閉じるって感じ。
サンプルではわからないって言ってる転記の部分だけ書いてて
色々省略してる。

Sub test()
Dim bkRead As Workbook
Dim shRead As Worksheet
Dim shWrite As Worksheet
Dim x As Long
Dim y As Long
Dim strBookPath As String

' ボタン１と似たような機能
strBookPath = Application.GetOpenFilename("Excel ブック,*.xls")
If strBookPath = "False" Then Exit Sub

Application.ScreenUpdating = False
Set bkRead = Workbooks.Open(strBookPath)
Set shRead = bkRead.Worksheets("Sheet1") ' "Sheet1"の部分を変える
Set shWrite = ThisWorkbook.Worksheets("Sheet1") ' "Sheet1"の部分を変える

' ↓↓↓↓↓↓↓↓　転記部分。ここ変える　↓↓↓↓↓↓↓↓↓
For x = 1 To 10
For y = 1 To 5
shRead.Cells(x, y).Copy
shWrite.Cells(x, y).PasteSpecial Paste:=xlPasteAll
Next
Next
' ↑↑↑↑↑↑↑↑　転記部分。ここ変える　↑↑↑↑↑↑↑↑↑

bkRead.Close
Set shRead = Nothing
Set bkRead = Nothing
Set shWrite = Nothing
Application.ScreenUpdating = True
End Sub

お礼

御回答ありがとうございます。
書いてある内容を確認しながら、今から早速試してみたいと思います。