2D阵列帮助

Public Sub SheetCount()
    Dim oSheet As AcSmSheet
    Dim nSheetCount As Integer
    Dim oEnumDB As IAcSmEnumDatabase
    Dim oItem As IAcSmPersist
    
    Dim oSheetSetMgr As AcSmSheetSetMgr
    Set oSheetSetMgr = New AcSmSheetSetMgr
    
    Set oEnumDB = oSheetSetMgr.GetDatabaseEnumerator
    Set oItem = oEnumDB.Next
    
    Dim oSheetDb As AcSmDatabase
    Dim strFileInfo() As String
    ReDim strFileInfo(nSheetCount, 2)
    
    Do While Not oItem Is Nothing
        Set oSheetDb = oItem
        Dim oEnum As IAcSmEnumPersist
        Dim oItemSh As IAcSmPersist
        
        Set oEnum = oSheetDb.GetEnumerator
        Set oItemSh = oEnum.Next
        Do While Not oItemSh Is Nothing
            If oItemSh.GetTypeName = "AcSmSheet" Then
                Set oSheet = oItemSh
                nSheetCount = nSheetCount + 1
                strFileInfo(nSheetCount, 1) = oSheet.GetLayout.ResolveFileName
                strFileInfo(nSheetCount, 2) = oSheet.GetNumber
                ReDim Preserve strFileInfo(1, UBound(strFileInfo) + 1)
            End If
            
            Set oItemSh = oEnum.Next
        Loop
        MsgBox nSheetCount
        Set oItem = oEnumDB.Next
    Loop
End Sub

Sub test()
' define the first dimension of array approximately
Dim ar(9999, 1)
Dim i As Long, j As Long
' here you'll populate an array at runtime,
' as many as you need (of course you don't know how much)
' just for example
For i = 0 To 333
ar(i, 0) = i + 1: ar(i, 1) = i + 3
Next
' declare the new hard bounded array instead
ReDim newar(i - 1, 1)
While Not IsEmpty(ar(j, 0))
newar(j, 0) = ar(j, 0): newar(j, 1) = ar(j, 1)
j = j + 1
Wend
' return new array
End Sub