vba - VBA Dictionary オブジェクトを Excel に保存する

Question

Excel ワークブック テンプレートの一部として、辞書オブジェクト (スクリプト ランタイム ライブラリから) が作成され、追加されます。これをワークブックと共に何らかの方法で保存して、ワークブックの起動時に使用できるようにすることはできますか?それとも、データをワークシートにエクスポートして保存し、次回に再ロードする必要がありますか?

Answer 1

ワークシートが最善の策だと思います。非常に非表示のオプションを使用することをお勧めします。これは、シートをコードでのみ表示できることを意味します。

例えば：

 Worksheets("System").Visible = xlVeryHidden

Answer 2

ファイルに保存しないのはなぜですか？

    Sub Save_Dict(aDict As Scripting.Dictionary, FileitAs As String, Data_ID As String)  
    Dim one, SaveStr() As String, s As Long  
    ReDim SaveStr(aDict.Count)  
    SaveStr(0) = Data_ID  
    s = 0  
    For Each one In aDict  
          s = s + 1  
          SaveStr(s) = one & vbBack & aDict(one)  
     Next one  

     Write Join(SaveStr, vbCrLf)) to FileitAs 'Method of choice  
    End Sub  

'~~~~~~~~~~~~~~~~

    sub Get_Dict(aDict as Scripting.Dictionary, FiledAs as String, Data_ID as String) as Long  
    Dim one, SavedString, nLng as long, i as integer  
    Read SavedString from FiledAs - 'Method of choice  
    SavedString = split(SavedString, vbCrLf)  
    If Ubound(SavedString) =>0 then  
       Data_ID = SavedString(0)  
       For nLng = 1 to ubound(SavedString)  
         i = instr(SavedString(nLng),vbBack)  
         adict.add left(SavedString(nLng),i-1, Mid(SavedString(nLng),i+1)  
       next Nlng  
     End If  
    End Sub