質問編集履歴
2
エラーメッセージを追記しました
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -22,13 +22,13 @@
|
|
|
22
22
|
Next key
|
|
23
23
|
```
|
|
24
24
|
|
|
25
|
-
このコードの、MsgBox(key)でエラーが出ます。
|
|
25
|
+
このコードの、MsgBox(key)でエラーが出ます。 エラーメッセージは、**タイトルが「Microsoft Excel」で本文はまったくの空白**というものです。
|
|
26
26
|
dicBasicには100近くのレコードが入っているのは確実です。（dicBasic.Countで確認）
|
|
27
27
|
dicBasicにレコードを追加する部分を、
|
|
28
28
|
```
|
|
29
29
|
dicBasic.ADD(rs.fields("ID")), rs.fields("氏名")
|
|
30
30
|
```
|
|
31
|
-
とすると、今度はMsgBox dicBasic(key)でエラーが出ます。
|
|
31
|
+
とすると、今度はMsgBox dicBasic(key)で同じエラーが出ます。
|
|
32
32
|
|
|
33
33
|
同ブックの他のモジュールでは、Dictionaryを用いた集計が問題なくできているので、ブックの参照設定のあたりに問題があるとは思えないです。
|
|
34
34
|
また、for eachの部分を、
|
1
変数の宣言の部分に改行を入れました
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -1,6 +1,7 @@
|
|
|
1
1
|
Dictionaryの挙動が不可解で、原因を知りたいです。
|
|
2
2
|
```
|
|
3
|
-
Dim dicBasic as object
|
|
3
|
+
Dim dicBasic as object
|
|
4
|
+
Dim key
|
|
4
5
|
Set dicBasic = CreateObject("Scripting.Dictionary")
|
|
5
6
|
|
|
6
7
|
strQ = "SELECT * FROM tblBasic"
|
|
@@ -25,7 +26,7 @@
|
|
|
25
26
|
dicBasicには100近くのレコードが入っているのは確実です。（dicBasic.Countで確認）
|
|
26
27
|
dicBasicにレコードを追加する部分を、
|
|
27
28
|
```
|
|
28
|
-
dicBasic(rs.fields("ID"))
|
|
29
|
+
dicBasic.ADD(rs.fields("ID")), rs.fields("氏名")
|
|
29
30
|
```
|
|
30
31
|
とすると、今度はMsgBox dicBasic(key)でエラーが出ます。
|
|
31
32
|
|