回答編集履歴
2
コメントによる追記指摘あり、追記しました。
test
CHANGED
@@ -1,9 +1,11 @@
|
|
1
|
-
|
1
|
+
Set bk = oXlsApp.Application.Workbooks.Open("C:\work\TEST.xlsm")とbkにセットする部分をご指摘通りに変えたところ、問題なく稼働するようになりました。
|
2
2
|
|
3
|
-
別の方に流れを説明する為にスクリプトを分けていました。
|
4
3
|
|
5
|
-
繋げてみたところ、何回目かで2回ほど成功しましたが
|
6
4
|
|
7
|
-
|
5
|
+
スクリプトを繋げた時点で、bkにセットするbookがどこかで重複してしまっていたのかもしれません。
|
8
6
|
|
9
|
-
|
7
|
+
また別のご指摘通り、bkを最後に閉じるようにもしました。
|
8
|
+
|
9
|
+
|
10
|
+
|
11
|
+
その2点が改善点でした。
|
1
追記事項あり。
test
CHANGED
@@ -1,21 +1,9 @@
|
|
1
1
|
申し訳ありませんでした。
|
2
2
|
|
3
|
-
別の方に
|
3
|
+
別の方に流れを説明する為にスクリプトを分けていました。
|
4
4
|
|
5
|
-
|
5
|
+
繋げてみたところ、何回目かで2回ほど成功しましたが
|
6
6
|
|
7
|
-
|
7
|
+
また同じエラーコード9のインデックスが有効範囲にありません。と言うエラーが出ます。
|
8
8
|
|
9
|
-
|
9
|
+
出来たり、出来なかったりの違いが分からなくて困り果てています。
|
10
|
-
|
11
|
-
皆様のご指摘にて分かり、
|
12
|
-
|
13
|
-
くっつけてみたところ
|
14
|
-
|
15
|
-
何度目かで正常に動きました。
|
16
|
-
|
17
|
-
|
18
|
-
|
19
|
-
まだまだ学習が足りないのだと身にしみました。
|
20
|
-
|
21
|
-
ありがとうございました!!
|