Заполните значения из Active Directory в массив в VBA

Question

Мой код определяется следующим образом:

Dim objGroups As Object 
Dim arrMemberDN As Variant 
Dim arrList() As Variant 
Dim i As Integer 

Set objGroups = GetObject("LDAP://" & strGroupDN) 

For Each arrMemberDN In objGroups.member 
    arrMemberDN = Mid(arrMemberDN, 4, 7) 
    arrList(i) = arrMemberDN 
    i = i + 1 
Next arrMemberDN 

Но я всегда получаю ошибки во время выполнения

9: Индекс вне диапазона

на arrList(i) = arrMemberDN

Как заполнить мой массив arrList со значением от arrMemberDN?

Answer 1

Сначала вам нужно создать размеры для вашего массива, вот он для массива 1D.

Затем вы получите Redim Preserve, чтобы сохранить содержимое, которое у вас было в нем.

ПРИМЕЧАНИЕ: Redim Preserve может использоваться только для изменения измерения LAST!

Dim objGroups As Object 
Dim arrMemberDN As Variant 
Dim arrList() As Variant 
ReDim arrList(1 To 1) 


Set objGroups = GetObject("LDAP://" & strGroupDN) 

For Each arrMemberDN In objGroups.member 
    arrMemberDN = Mid(arrMemberDN, 4, 7) 
    arrList(UBound(arrList)) = arrMemberDN 
    ReDim Preserve arrList(LBound(arrList) To UBound(arrList) + 1) 
Next arrMemberDN 
ReDim Preserve arrList(LBound(arrList) To UBound(arrList) - 1) 

Answer 2

Чтобы добавить к предложению @ R3uK. Вы были близки, если вы можете получить количество объектов в objGroups, прежде чем вы начнете цикл, вы можете установить пределы arrList только один раз, что будет быстрее.

Dim objGroups As Object 
Dim arrMemberDN As Variant 
Dim arrList() As Variant 
Dim i As Integer 

Set objGroups = GetObject("LDAP://" & strGroupDN) 
ReDim arrList(1 to 'count of items in objGroups) 

For Each arrMemberDN In objGroups.member 
    i = i + 1   
    arrMemberDN = Mid(arrMemberDN, 4, 7) 
    arrList(i) = arrMemberDN 
Next arrMemberDN