Добавление объекта ListObject в коллекцию - PullRequest
0 голосов
/ 21 ноября 2018

Вот что я пытаюсь сделать: мне нужно добавить 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
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...