excel - 公共(public)词典 - 如何访问数据

Question

我正在 VBA 中的 Workbook_Open() 上设置公共(public)词典。我想在电子表格中创建的任何模块中访问此词典中的项目。

我在 ThisWorkbook 中的代码是:

Option Explicit
Public Dic As Scripting.Dictionary

Private Sub Workbook_Open()
    Set Dic = New Scripting.Dictionary
    Dic.Add Key:="cat", item:="Database"
    Dic.Add Key:="pwd", item:="Password"
    Dic.Add Key:="col", item:="Server"  
End Sub

当我转到任何模块并使用 msgbox 函数调用某个项目时，它不起作用:

MsgBox (Dic("col"))

请问有什么技巧可以让这项工作发挥作用吗？

我们的想法是在电子表格的开头设置此字典，并在任何后续模块中需要访问它。

干杯

Answer 1

我可以看到您已在私有(private) ThisWorkbook 代码表中对 Dic 脚本字典进行了“公共(public)”声明。这使得它可用于私有(private) ThisWorkbook 代码表中的任何子过程。

要使其可用于任何代码表中的任何子过程，请将其放入任何一个公共(public)模块代码表的声明区域(即顶部)。这将允许您仍然从私有(private) Workbook_Open 填充字典对象，并保留填充的值以在项目中的任何位置使用。