コピーの方法

質問

エクセルのある部分をコピーしてその下に貼り付けたりするやつで
やってみたんですけどエラーがでるんです（￣□￣；）！！
For i = 2 To Page
g = (i - 2) * 34 + 1
objExcel.Sheets("Sheet1").Range("A1:P34").Select
objExcel.Sheets("Sheet1").Selection.Copy
objExcel.Sheets("Sheet1").Range("A" & Format(g)).Select
objExcel.Sheets("Sheet1").ActiveSheet.Paste
Next
ってやつで
objExcel.Sheets("Sheet1").Selection.Copy
だけエラーがでるんです。
エラーの内容は
オブジェクトは、このプロパティまたはメソッドをサポートしていません。 (438)
なんです。
「Selection」をかえればいいんでしょうけど
何にかえればいいんでしょうか？？？
困ってます。
教えてくださいっ！

回答No.1

hana-hana3 · ベストアンサー

objExcel.Sheets("Sheet1").Range("A1:P34").Copy

ではダメなのですか？

お礼

あぁぁ！
そうですね。（￣□￣；）！！
前にもそんなこと言われたんです。。。
ありがとうございましたっ。
結構悩んでたんです(^-^;
ホントにありがとうございましたぁ～☆彡