Ｐａｇｅ 560 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼別のブックへのシートのコピーについて ぷるぷる 03/1/17(金) 11:13 ┣Re:別のブックへのシートのコピーについて Jaka 03/1/17(金) 12:37 ┗Re:別のブックへのシートのコピーについて ぷるぷる 03/1/17(金) 13:16 ─────────────────────────────────────── ■題名 ： 別のブックへのシートのコピーについて ■名前 ： ぷるぷる ■日付 ： 03/1/17(金) 11:13 -------------------------------------------------------------------------
| ＶＢＡ初心者なので、本を見てもよくわかりません（>_<) どなたか教えてください。 ブックＡのシート（毎回変わります）を ブックＢの末尾にコピーし、そのときにシート名も 随時変更できるようににしたいのですが、 どうしたらよいのでしょうか？ よろしくお願いします。 |
| こんにちは。 ブックＡとブックＢの２ブック開いて、コピーしたいシートをアクティブにして実行してください。 ブックＢの最後にコピー挿入されます。 尚、コピー先ブックのシートにあるシート名をつけるとエラーになります。その辺りのエラー処理はしていません。 注）ブックＢと言うのを本当の名前にして下さい。できたら拡張子.xls付で。私のEXL97だと無いとエラーになる。 Sub Macro1() ActiveSheet.Copy After:=Workbooks("ブックＢ").Sheets(Workbooks("ブックＢ").Sheets.Count) ActiveSheet.Name = "新しいシート名" ThisWorkbook.Activate End Sub |
| 本当にありがとうございました。 これからもっと、勉強します。 |