エクセルマクロで修飾子が不正ですとでてきますが､原因がわかりません｡

Question

どうも変数xFileが悪いみたいなのですが､調べてもどうしていいかわかりませんでした｡
変数を代入せずにそのまま

Workbooks("CAB-Grapf.xls").Worksheets("sheet" & i).Range("A1:AU3100").PasteSpecial Paste:=xlPasteAll

とすると正常に動いてくれます｡
どうすればいいのかご教授願いたいです｡
よろしくお願い致します｡

Sub Graph()
Dim op As Worksheet, cPath As String, xFile As String, i As Integer
Set op = Workbooks("CAB-Grapf.xls").ActiveSheet
xFile = Workbooks("CAB-Grapf.xls").Worksheets("sheet" & i)
cPath = op.Range("B1").Value
Application.ScreenUpdating = False
'シートを追加
Worksheets.Add After:=Sheets("DATA"), Count:=op.Range("K1").Value
'シート追加ここまで
'WorkBookを開く
For i = 1 To op.Range("K1").Value
  If i > 10 Then
    MsgBox "Bookがそんなにありません"
    Exit For
  End If
Workbooks.Open op.Range("C2").Offset(i - 1, 0).Value
Range("A1:AU3100").Copy
xFile.Range("A1:AU3100").PasteSpecial Paste:=xlPasteAll
Next
End Sub

Answer 1

恐らくですが、xFileがString型で宣言されているのが問題かと思われます。

Dim op As Worksheet, cPath As String, xFile As String, i As Integer
Set op = Workbooks("CAB-Grapf.xls").ActiveSheet
xFile = Workbooks("CAB-Grapf.xls").Worksheets("sheet" & i)

の部分を

Dim op As Worksheet, cPath As String, xFile As Worksheet, i As Integer
Set op = Workbooks("CAB-Grapf.xls").ActiveSheet
Set xFile = Workbooks("CAB-Grapf.xls").Worksheets("sheet" & i)

にしたら動作しませんか？

以下追記
すいません一つ見落としてました。

Set xFile = Workbooks("CAB-Grapf.xls").Worksheets("sheet" & i)

の部分で、iって宣言されてはいるものの数値は入ってませんよね。
それで、インデックスが有効範囲にありません　なのでしょう。
的確なところでSetするように修正してみてください。

Comments

[macro-beginner]

直してみたのですが、”インデックスが有効範囲にありません”とでてしまいます。
ちなみに
Workbooks("CAB-Grapf.xls").Worksheets("sheet" & i).Range("A1:AU3100").PasteSpecial Paste:=xlPasteAll
とすると正常に動きだします。
いよいよわかりません・・

[macro-beginner]

できました！;;
そういう事なんですね！
本当に助かりました！ありがとうございます！

Answer 2

xFileはString型で宣言されていますね。Stringなので、当然、Range等は使えません。しいて言えば、op.Rangeとかにすればコンパイルは通りますね。