[[20140725105038]]　『VBA　シートのコピー』（ぶどう）　ページの最後に飛ぶ

『VBA　シートのコピー』（ぶどう）

VBAでシートを、別ブックのシートにコピーしたい。

・コピー元は、マクロ有効ブックで、こちらにコードを記載する。
・コピー先ブック（Book3)は、マクロ有効ではなく（拡張子はxlsx）、ブックは開いていない。

下記のコードを実行すると、「インデックスが有効範囲にありません」のエラーになります。
どこを修正すれば良いのか、お知恵を貸して下さい。
よろしくお願い致します！

Sub CopySamp1()

    Dim mySheet As Worksheet

    Set mySheet = ActiveWorkbook.Worksheets("sheet1")
      mySheet.Copy Before:=Workbooks("Book3").Sheets("sheet1")

End Sub

＜使用 Excel：Excel2007、使用 OS：Windows7 ＞

 ＞ブックは開いていない。

 だとすると、処理に先立って、Book3.xlsxを開けばいいんじゃないですか？

（半平太） 2014/07/25(金) 12:26

半平太さん、コメントありがとうございます。
Book3を開いたところ、うまく処理できました！

（ぶどう） 2014/07/25(金) 17:36

コメント返信：