EXCEL 別シートのコピー

質問

こんにちわ。
営業の予定表を作成するんですが、どんな感じで作ったらいいのか迷ってます。
例えば営業さんが５人いて、他の営業所にいるとします。
定型シートを作成して各自に配布。記入してもらい、メールで返信。
それを１ブックにまとめ、売上予定金額を合計シートへ算出できるようにしたいのです。
マクロなどで、同じ名前のシートから別ブックの同じ名前のシートへ上書きはできるのでしょうか？
毎月のことなので、なるべく手間がかからないようにしたいのです。
よろしくお願いします。

回答No.2

watabe007 · ベストアンサー

Sub Test()
　　Dim myBook As Workbook

　　'集計ファイルと同じパスに有る"A君.xls"を開く
　　Set myBook = Workbooks.Open(ThisWorkbook.Path & "\A君.xls")
　　'A君.xls"の１枚目のシートをコピー、集計ファイルの"A君"シートに貼付
　　myBook.Worksheets(1).Cells.Copy ThisWorkbook.Worksheets("A君").Range("A1")
　　'"A君.xls"を閉じる
　　myBook.Close False
End Sub

お礼

早速のお返事ありがとうございます。
１回目のテスト中に２回目の返事をいただきました。こちらも早速ためしてみます。
１回目の方法で、コマンドボタンにセットし押したところ、おお～っ出来た～。
感動しました。Excelももっと勉強します。ありがとうございました。

回答No.1

watabe007

>マクロなどで、同じ名前のシートから別ブックの同じ名前のシートへ上書きはできるのでしょうか？
できますよ、どちらも開いた状態で
Workbooks("Book1.xls").Worksheets("A君").Cells.Copy Workbooks("Book2.xls").Worksheets("A君").Range("A1")