- ベストアンサー
※ ChatGPTを利用し、要約された質問です（原文：エクセルのVBAを使用し、別のBookの情報をコピーしたい）
エクセルVBAで別のBookの情報をコピーする方法について
このQ&Aのポイント
- エクセルVBAを使用して別のBookの情報をコピーする方法についてご教授ください。
- VBA初心者の方が、エクセルのVBAを利用して別のBookのSheet1とSheet2をコピーし、自身のBookに貼り付けたい場合、どのような方法がありますか？
- また、毎回作業するたびにファイル名が変わるBookをVBAでコントロールする方法についても教えてください。
- Vinegarman
- お礼率85% (23/27)
- オフィス系ソフト
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
ActiveWorkook を 変数に入れておけば可能です こんなかんじです Sub aaa() '今開いている Bookを 記憶します Set Mbook = ActiveWorkbook Application.Dialogs(xlDialogOpen).Show '新しく開いた Bookを 記憶します Set tgtbook = ActiveWorkbook 'Copy します Sheets("Sheet1").Select Range("B5:E10").Select Selection.Copy '最初開いたBookを開きます Mbook.Activate Sheets("Sheet1").Select Range("B5").Select ActiveSheet.Paste 'あとはこの繰り返し tgtbook.Activate Sheets("Sheet2").Select Range("B5:E10").Select Selection.Copy Mbook.Activate Sheets("Sheet2").Select Range("B5").Select ActiveSheet.Paste End Sub
お礼
まさに捜し求めていたものです!!本当に助かります！ 回答ありがとうございました。