回答編集履歴

2

文章が途中だったため再度修正

2017/01/25 05:52

投稿

Batoh33789
Batoh33789

スコア136

test CHANGED
File without changes

1

質問点を踏まえて修正しました。

2017/01/25 05:52

投稿

Batoh33789
Batoh33789

スコア136

test CHANGED
@@ -23,3 +23,21 @@
23
23
  ```
24
24
 
25
25
  にしたら動作しませんか?
26
+
27
+
28
+
29
+ 以下追記
30
+
31
+ すいません一つ見落としてました。
32
+
33
+ ```VBA
34
+
35
+ Set xFile = Workbooks("CAB-Grapf.xls").Worksheets("sheet" & i)
36
+
37
+ ```
38
+
39
+ の部分で、iって宣言されてはいるものの数値は入ってませんよね。
40
+
41
+ それで、インデックスが有効範囲にありません なのでしょう。
42
+
43
+ 的確なところでSetするように修正してみてください。