Вот что я пытаюсь сделать: мне нужно добавить 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