excel - 声明包含后期绑定(bind)字典对象的自定义数据类型

Question

自定义类型可以声明为具有后期绑定(bind)的字典对象作为其元素之一吗？例如在标准模块或类模块中:

Private Type InternalData
    sName as String
    cSheets as Collection    'cSheets as New Collection
    wBook as Workbook
    bFiles as CreateObject("Scripting.Dictionary")    'bFiles as New CreateObject("Scripting.Dictionary")
End Type

或者有其他方法吗？请注意，我不想提前绑定(bind)字典。

Answer 1

您将像处理工作簿对象一样处理字典对象。将您的字典声明为类型 Object然后在其他地方初始化它。例如，在表单中，您可以:

Private Type InternalData
    sName As String
    cSheets As Collection
    wBook As Workbook
    bFiles As Object
End Type

Public Sub TryIt()
   Dim id As InternalData
   Set id.bFiles = CreateObject("Scripting.Dictionary")
   id.bFiles.Add Key, Value
End Sub

根据评论，您可以通过以下方式完成类(class)。在类模块中:

Public sName As String
Public cSheets As Collection
Public wBook As WorkBook
Public bFiles As Object

Private Sub Class_Initialize()
   Set bFiles = CreateObject("Scripting.Dictionary")
End Sub

然后像以前一样，也许在一个表格中:

Public Sub TryIt()
   Dim id As InternalData
   id.bFiles.Add Key, Value
End Sub