エクセル 特定のシートを異なるブックの指定したシートにコピーするマクロ

質問

エクセルの"貼り付け先.xls"の(シート名＝"集計")を開いている状態で、

別の異なるブックの"貼り付け元.xls"の（シート名＝"sheet1"）の内容を全部コピーして

"貼り付け先.xls"の(シート名＝"集計元データ")へ貼り付けるマクロは
どのようになりますでしょうか？

いろいろ調べて下記のように書きましたが、
インデックスが有効範囲にありませんというメッセージが出て、
デバッグを確認すると
Workbooks("貼り付け元.xls").Worksheets("Sheet1").Range("A1").Copy_の部分が黄色く表示されてきます。

(１)　"貼り付け先.xls"と"貼り付け元.xls"は同じパソコンのマイドキュメントに保存されています。
(２)"貼り付け元.xls"の"Sheet1"はセルA1から入力されていて、
内容は毎日変わります。
(３)Range("A1")や("A1:IV65536")のセル番地をいろいろ変えたりしても同じでした。

Sub クリップボードを経由せずにコピー貼り付けする_異なるブック()
Workbooks("貼り付け元.xls").Worksheets("Sheet1").Range("A1").Copy_
Workbooks("貼り付け先.xls").Worksheets("集計元データ.xls").Range ("A1:IV65536")
End Sub

回答No.5

onlyrom

NO４、onlyromです。

＞Workbooks("貼り付け元.xls").Worksheets("Sheet1").Cells.Copy_
が黄色くマーキングされています

Cells.Copy_　この最後の　＿　の前にスペースが必要です。
＿　の意味がお分かりではないようですね？
＿　は、１行のステートメントの途中から改行するためのものです。

シート名.Cells.Copy　　スペース１個　＿
シート名.Range ("A1")

お試しください。

回答No.4

onlyrom

貼り付け先.xls　だけではなく、
貼り付け元.xls　も開いた状態でないとエラーになります。

要するに両方とも開いた状態でないと

Workbooks("貼り付け元.xls").Worksheets("Sheet1").Range("A1").Copy_
Workbooks("貼り付け先.xls").Worksheets("集計元データ").Range ("A1:IV65536")

コードの間違いは別にして、このようなCopyはできないということです。

全セルコピーなら、
Range("A1").Copyではなくて、Cells.Copyです。
そして貼り付け先には、Range("A1")を使います

Sub Test()
Workbooks("貼り付け元.xls").Worksheets("Sheet1").Cells.Copy_
Workbooks("貼り付け先.xls").Worksheets("集計元データ").Range ("A1")
End Sub

両方開いた状態で上記を実行してみてください。

それから開いてないブックを使いたいときは、
　　WorkBooks.Open "開きたいブック.xls"
としてコードで開いてから処理します。

補足

早速のご回答ありがとうございます。

今、２つのブックを開いた状態でためしたのですが、

実行時エラー４３８
オブジェクトは、このプロパティまたはメソッドをサポートしていません。
と出て、デバッグをクリックすると
Workbooks("貼り付け元.xls").Worksheets("Sheet1").Cells.Copy_
が黄色くマーキングされています。

また、上記の作業とは別に
WorkBooks.Open "貼り付け元.xls"を行うとファイルはきちんと開きましたので”貼り付け元.xls”のファイルがおかしいわけではないと思います。

回答No.3

fish-rd

＃２の補足を拝見したのですが、
やりたいことって、
貼り付け元のシートのデータを
貼り付け元とは異なるＢＯＯＫで
シートを指定して貼り付けるということですよね？

だとするとセル番号指定するコードは
（"A1")のところは("A1:IV65536")となって↓のようになるのでは？

Sub クリップボードを経由せずにコピー貼り付けする_異なるブック()
Workbooks("貼り付け元.xls").Worksheets("Sheet1").Range("A1:IV65536").Copy_
Workbooks("貼り付け先.xls").Worksheets("集計元データ").Range ("A1:IV65536")
End Sub

補足

仰るとうりです。

何度もすみません。

ただ、このコードでも同じ結果なのです。

回答No.2

imogasi

＃１でご指摘の問題と
下記では
Copy_のCopyのあとのアンダースコア？を訂正してます。
ここはおかしいのでは。
同一ブック内の別シートに変えてのテストですが
Sub test01()
Worksheets("Sheet1").Range("A1").Copy Worksheets("Sheet2").Range("A1:IV65536")
End Sub
を実行すると、実行はうまくいきました。
Sheet1のA1にAAと入れて実行すると、Sheet2の全セルの値ががAAになりましたが、そういうので内容は良いのかな。
そんなことすることはまず無いように思うが。」

補足

早速のアドバイスありがとうございます。

＞Sheet1のA1にAAと入れて実行すると、Sheet2の全セルの値ががAAになりましたが

やりたいことは上記のようなことを同一ではなく異なるブックにコピーしたいのです。
また、Copy_のCopyのあとのアンダースコアはいらないのでしょうか？
アンダースコアをはずして異なるブックへのコピーを実行してみましたが、結果は同じでした。

なにぶんにもVBA初心者なもので下記のサイトの
http://www.geocities.jp/happy_ngi/YNxv209.html
１）すべてコピー、切り取りするの項目の
Sub クリップボードを経由せずにコピー貼り付けする_異なるブック()
を参考にしたのですが、なにかご指摘がございましたら
よろしくお願いいたします。

回答No.1

fish-rd

マクロ文
Worksheets("集計元データ.xls")の部分は
Worksheets("集計元データ")では？

補足

早速のご指摘ありがとうございます。
そのとうりです。すみませんでした。

Sub クリップボードを経由せずにコピー貼り付けする_異なるブック()
Workbooks("貼り付け元.xls").Worksheets("Sheet1").Range("A1").Copy_
Workbooks("貼り付け先.xls").Worksheets("集計元データ").Range ("A1:IV65536")
End Sub