エクセル マクロで別シートのフォームをコピーしたいのですが。

質問

マクロの初心者です。
毎月送られてきますデータファイルに、定型フォーム（計算式の入った２０行程度のもの）を追加したいと思っています。
毎月のデータが入っているファイルを開いておいて、
次に定型フォームのファイルを開き、コピーしたい行を選択・コピーするところまで出来たのですが、毎月のデータファイルが名前が毎月変更されるため、どのように指定をしてアクティブにしたらよいのかわかりません。
定型フォームのファイルをアクティブでなくする方法などがあるのでしょうか。よろしくお願いいたします。

回答No.2

n-jun · ベストアンサー

ANo.1です。

＞貼り付けるブックのシート名＝ファイル名となっており、
r.Copy wb.Worksheets("Sheet1").Range("A1")
を
r.Copy wb.Worksheets(Replace(wb.Name, ".xls", "")).Range("A1")
で。
セル番地は修正して下さい。

お礼

大変助かりました。
勉強不足でしたが、丁寧にご回答いただきありがとうございました。

回答No.1

n-jun

定型フォームのブックにコードを書き込む。

貼り付けるブックのシート名・セルが同じであればSheet１・Range("A1")を適宜修正。
貼り付けたい範囲を選択してから実行。

Sub test()
Dim wb As Workbook
Dim r As Range

Set r = Selection

For Each wb In Workbooks
If wb.Name <> ThisWorkbook.Name Then
r.Copy wb.Worksheets("Sheet1").Range("A1")
End If
Next
End Sub
ご参考まで。

お礼

迅速なご回答をいただきましてありがとうございます。
貼り付けるブックのシート名＝ファイル名となっており、毎回変わります。このような場合はどのように指定したらよろしいでしょうか。
初心者で申し訳ありません。