回答編集履歴
2
文章が途中だったため再度修正
answer
CHANGED
|
File without changes
|
1
質問点を踏まえて修正しました。
answer
CHANGED
|
@@ -10,4 +10,13 @@
|
|
|
10
10
|
Set op = Workbooks("CAB-Grapf.xls").ActiveSheet
|
|
11
11
|
Set xFile = Workbooks("CAB-Grapf.xls").Worksheets("sheet" & i)
|
|
12
12
|
```
|
|
13
|
-
にしたら動作しませんか？
|
|
13
|
+
にしたら動作しませんか？
|
|
14
|
+
|
|
15
|
+
以下追記
|
|
16
|
+
すいません一つ見落としてました。
|
|
17
|
+
```VBA
|
|
18
|
+
Set xFile = Workbooks("CAB-Grapf.xls").Worksheets("sheet" & i)
|
|
19
|
+
```
|
|
20
|
+
の部分で、iって宣言されてはいるものの数値は入ってませんよね。
|
|
21
|
+
それで、インデックスが有効範囲にありません なのでしょう。
|
|
22
|
+
的確なところでSetするように修正してみてください。
|