arrays - 修改现有函数以处理不同维度/结构的数组

Question

我在处理 VBA 中的某些数组时遇到了麻烦，或者更具体地说，我在尝试有效地利用某些现有的子例程/方法来处理不同大小/维度的数组时遇到了麻烦。

这些数组是从 COM 对象中检索的，并且它们以可预测的、一致的结构到达，该结构基于返回数组的例程，we have had trouble getting all of the functions to return the data in the same structure .

因此，我正在处理不同的结构，有时是二维数组，但有时是一维数组，其中每个数组项都是一个变体/数组。

例如，如果我有一个现有函数需要像 arr(0,0) 这样的 2D 结构，我需要修改它以接受 1D 数组，其中每个项目的类型都是 Variant (结构类似于arr(0)(0))。

我目前在做什么

我禁用错误，并测试第二维的 Ubound，知道如果它是一维数组，则会引发错误。然后我可以根据数组的结构进行稍微不同的迭代。

• 如果可以避免的话，我讨厌使用On Error Resume Next，但看起来在这种情况下，这样可能是最有效的。

• 我也不喜欢依赖 Excel.Application.Transpose 但不喜欢找到任何可以在 PowerPoint 中本地执行此操作的方法。

示例:

Function GetSmallFromBar(counts As Variant, banner As Variant, categories As Variant) As Variant
Dim small As Object
Dim arrSizeErr As Variant
Dim i As Long
Set small = CreateObject("Scripting.Dictionary")

On Error Resume Next
arrSizeErr = UBound(counts, 2)
arrSizeErr = (Err.Number <> 0)
Err.Clear
On Error GoTo 0

'Array is structured like arr(0)(0) instead of arr(0,1)
If arrSizeErr Then
    counts = Excel.Application.Transpose(counts)
    ReDim Preserve counts(0 To UBound(counts) - 1)
    'Modify for unique array structure
    For i = LBound(categories) To UBound(categories)
        If counts(i) < 100 Then
            small(i) = categories(i)
        End If
    Next
    GoTo EarlyExit
End If

'This works for the expected array structure, arr(0,0)
For i = LBound(categories) To UBound(categories)
    If counts(i, 0) < 100 Then
        small(i) = categories(i)
    End If
Next
EarlyExit:
GetSmallFromBar = small.Items()

Set small = Nothing
End Function

注意:我重新调整了数组，因为我需要使用 0 基数组。

我的代码中可能有六个地方遇到了类似的情况，每个地方都依赖于类似但可能不相同的方法。

我很乐意在其他地方修复我的代码，我只是想知道这是否是一种好方法，然后我可以将其标准化为函数并从其他模块调用，这是一个潜在的错误，或者是否有其他方法可以做到这样效率更高。

其他信息和屏幕截图

我专门处理一维和二维数组。但有时我会得到一个一维数组，其中每个项目也是 Variant 类型。这让我很适合，因为我希望我可以修改在二维数组上使用的一些函数和方法来处理“数组的数组”结构。

预期的二维数组

有问题的变体数组

Answer 1

只要您的代码当前可以工作，我认为就可以了。如果有任何事情，您可能希望将子例程中的某些函数包装到它们自己的函数中，以便可以重用。

Chip Pearson 在他的数组网站上有一个可用函数，可以为您提供数组的维数，然后您可以使用它来确定需要执行的操作:

Public Function NumberOfArrayDimensions(Arr As Variant) As Integer
Dim Ndx As Integer
Dim Res As Integer
On Error Resume Next
    Do
        Ndx = Ndx + 1
        Res = UBound(Arr, Ndx)
    Loop Until Err.Number <> 0
NumberOfArrayDimensions = Ndx - 1
End Function

来源:Chip Pearson, VBA Arrays