ExcelでVBA辞書オブジェクトを保存します
-
28-10-2019 - |
質問
Excelワークブックテンプレートの一部として、辞書オブジェクト(スクリプトランタイムライブラリから)が作成されて追加されます。ワークブックの起動時に利用できるように、ワークブックとともにこれを何らかの方法で保存することは可能ですか、それともワークシートにデータをエクスポートして保存してから次回にリロードする必要がありますか?
解決
ワークシートが最善の策だと思います。非常に隠されたオプションを使用することをお勧めします。つまり、シートはコードによってのみ表示されることを意味します。
例えば:
Worksheets("System").Visible = xlVeryHidden
他のヒント
ファイルに保存してみませんか?
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
所属していません StackOverflow