将ListObject添加到集合

Question

这是我要完成的工作：我需要将工作簿中的表中的DataBodyRange（贷款代码）添加到新集合中，因为我需要在多个用户窗体中多次引用该表。一个单独的工作簿。我认为一旦我将DataBodyRange添加到集合中，就可以了。我应该能够找出其余的东西。

我要避免的是：每当我需要参考上述工作簿中的表格时，都必须打开工作簿（贷款代码）。

我的理解是ListObject是一个集合，那么我该如何将DataBodyRange中的ListObject添加到新集合中？我需要先创建一个类模块吗？

编辑代码

Sub loanCodesColl()
    Dim wbCodes As Workbook
    Dim lTypeLO As ListObject
    Dim CodeColl As New Collection

    Set lTypeLO = Workbooks.Open("L:\MIS\Excel Workgroup\In-Process Projects\Loan codes update - Zack.xlsx"). _
                  Sheets("Master LIst").ListObjects("lTypeCodes")

    CodeColl.Add lTypeLO.DataBodyRange.Value, LTCode

    Debug.Print CodeColl(LTCode)

End Sub