Dictionaryで「451:Property Letプロシージャが定義されておらず、Property Getプロシージャからオブジェクトが返されませんでした」の回避方法

451:Property Letプロシージャが定義されておらず、Property Getプロシージャからオブジェクトが返されませんでした

CreateObject(“Scripting.Dictionary”)でDictionaryを実行するとエラーが発生する場合があります。

ユーザー定義型変数はDictionaryに格納不可のサンプルコード

下記コードを実行するとコンパイルエラーが発生します。

実行時エラー451:
Property Letプロシージャが定義されておらず、Property Getプロシージャからオブジェクトが返されませんでした

Public Sub sample()
    Dim dic As Object
    Set dic = CreateObject("Scripting.Dictionary")
     
    dic.Add "test", 1

    Dim sKey As Variant    
    '■実行時エラー451:Property Let プロシージャが定義されておらず、Property Get プロシージャからオブジェクトが返されませんでした。
    sKey = dic.Keys(0)
        
End Sub

Microsoft Scripting.Runtimeを事前に参照設定で回避可能です

'要事前設定　Microsoft Scripting Runtime
Public Sub sample()
    Dim dic As Dictionary
    Set dic = New Dictionary
     
    dic.Add "test", 1
    
    Debug.Print dic.Keys(0)
End Sub

関連記事

• 一次元配列/二次元配列のまとめ(逆引き目次)
• Dictionary（連想配列）のまとめ(逆引き目次)
• Existsが動作しないのはValueで入れてない為
• 「実行時エラー457 このキーは既にこのコレクションの要素に割り当てられています」が出た場合
• ユーザー定義型変数はDictionaryに代入不可【ExcelVBA】