字典 d.keys() 出现property let未定义

小牛狂奔

姓名	年龄
张三	24
李四	56
王五	23

Sub t3()
          Set d = CreateObject("scripting.dictionary")
      Dim x As Integer
      For x = 2 To 4
       d.Add Cells(x, 1).Value, Cells(x, 2).Value
      Next x
   
      MsgBox d.keys(1) '运行到此处出现property let 未定义 property get 未返回对象
      MsgBox d.Count
    End Sub   
请问各位大侠是什么原因

shaowu459

1. Private Sub CommandButton1_Click()
   
2.     Set d = CreateObject("scripting.dictionary")
   
3.     Dim x As Integer
   
4.     For x = 2 To 4
   
5.         d.Add Cells(x, 1).Value, Cells(x, 2).Value
   
6.     Next x
   
7.    
   
8.     k = d.keys
   
9.    
   
10.     MsgBox k(0)    '运行到此处出现property let 未定义 property get 未返回对象
    
11.     MsgBox d.Count
    
12. End Sub

复制代码

yiyiyicz

似乎msgbox钱的代码没有问题
d.key(1)应该有问题
改成d.key(cells(2,1))试一下，应该是cells(2,2)的值

小牛狂奔

原来前面要放个变量   如果加载scrrun.dll 可以不放变量 运行d.keys.(1)

zhaogang1960

小牛狂奔 发表于 2012-7-6 17:57
原来前面要放个变量   如果加载scrrun.dll 可以不放变量 运行d.keys.(1)

加载scrrun.dll 就是前期绑定(引用Microsoft Scripting Runtime，Dim d As New Dictionary )，可以使用d.Keys(1)
后期绑定(不引用，Set d = CreateObject("scripting.dictionary")，使用2楼shaowu459 版主的方法

Sub t3()
'    Set d = CreateObject("scripting.dictionary")
    Dim d As New Dictionary '引用Microsoft Scripting Runtime
    Dim x As Integer
    For x = 2 To 4
        d.Add Cells(x, 1).Value, Cells(x, 2).Value
    Next x
   
    MsgBox d.Keys(1)
    MsgBox d.Count
End Sub

lhlh1024

zhaogang1960 发表于 2012-7-6 19:18
加载scrrun.dll 就是前期绑定(引用Microsoft Scripting Runtime，Dim d As New Dictionary )，可以使用 ...

VBA的字典真实高深莫测啊！！！

zjzyj

前期绑定（即 引用scrrun.dll） ： d.keys(1)
后期绑定（即 d = CreateObject("scripting.dictionary")）： d.keys()(1)，要多加一个括号才行

cwygj123

zjzyj 发表于 2021-2-22 00:08
前期绑定（即 引用scrrun.dll） ： d.keys(1)
后期绑定（即 d = CreateObject("scripting.dictionary")） ...

虽然是基础知识点，但是让我恍然大悟，茅塞顿开，不但对前期绑定和后期绑定的区别有了更加深刻的理解，而且对其用法也更加游刃有余了。
真的是听君一席话，胜读十年书，给你点赞！！！

xiaomi123ok

       MsgBox d.keys()(1) '''在这里加个空()就行了
      
亲测，在Excel2010版本上能正常运行。不知道为什么，还请高手指点。


补充内容 (2022-12-14 12:08):
经过高人指点，我有点明白了：d.keys()已经把数据转换成数组了，后面的(1)指第一个元素

xiaomi123ok

7楼zjzyj，老师，能解释一下为什么吗？“在后面加一个空括号”


“前期绑定（即 引用scrrun.dll） ： d.keys(1)
后期绑定（即 d = CreateObject("scripting.dictionary")）： d.keys()(1)，要多加一个括号才行”