このコードの修正を、何卒よろしくお願い致します。

質問

EXEL 2002　です。
下記コードの修正を、何卒よろしくお願い致します。
------
Sub コピー()
Dim i As Integer
For i = 1 To 2
Workbooks("コピー元.xls").Activate
Worksheets(i).Range("A1", Range("C65536").End(xlUp).Offset(0, 168)).Copy _
Destination:=Workbooks("コピー先.xls").Worksheets(Workbooks("コピー先.xls").Sheets(1).Range("A1"))
Next i
End Sub

回答No.1

Wendy02 · ベストアンサー

こんにちは。

最初に、そのコードだけでは意味が伝わりませんから、何をしたいのか書いてくださいね。こちらは、想像でしかありません。

>Worksheets(i).Range("A1", Range("C65536").End(xlUp).Offset(0, 168))
このコードが違っています。

Rangeの親と、Rangeの中のRange は、親を合わせないといけません。

>Workbooks("コピー先.xls").Worksheets(Workbooks("コピー先.xls").Sheets(1).Range("A1"))

意味が分かりません。親と子が明示されているのですから、
Workbooks("コピー先.xls").Worksheets

別なオブジェクトを入れたら、Workbooks("コピー先.xls").Sheets(1)　は、ハングします。
それに、それを直して、
Workbooks("コピー先.xls").Worksheets(1) にしても、同じところにコピーしたらヘンです。

こちらの予想サンプル
'----------------------------------
Sub コピー()
Dim i As Integer
Workbooks("コピー元.xls").Activate
For i = 1 To 2
With Workbooks("book1").Worksheets(i)
　 .Range("A1", .Range("C65536").End(xlUp).Offset(0, 168)).Copy _
　 Workbooks("コピー先.xls").Worksheets(i).Range("A1")
End With
Next i
End Sub

お礼

こんばんわ、
ご回答、誠に有難うございました。
予想されたとおりでございました。
私自身、四苦八苦して、もお限界でしたので、あせって投項し、説明が不十分となってしまった次第でございました。