Question

上下文

我在excel VBA中有一个应用程序，用于在远程数据库上进行只读查询。

查询从UDF执行。我的应用程序将记录集对象中的数据数组传递给函数，并调用Excel将数组写入单元格范围的快速过程。

挑战

应用必须能够选择性地返回数据集顶部的字段名称。这给我带来了巨大的性能挑战。我知道在VBA中附加或前置到2D数组的唯一方法是遍历整个数组。通常，我通过将recordset.getRows()对象直接传递给我的UDF来避免这样的循环。但是，当将字段列表和查询结果与循环方法（我知道的唯一方法）组合时，我将计算时间增加一倍或三倍，以便进行大量查询。

我对此进行了基准测试：对于2k行和5个字段的查询，包含字段名称的平均计算时间 4.3秒，而 9.8秒，字段名称< / p>

我的第一个尝试是在我的select语句中使用UNION子句组合服务器上的字段名称和记录集（我的服务器是MySQL）。但是，这不起作用，因为UNION强制数据类型相等，隐式地将我的数字数据转换为字符串。要将它们转换回来，我必须遍历数组，否定所获得的效率。

我的问题

是否有记录集对象或VBA数组的对象方法可以被调用以将行添加到大型数组而不循环遍历整个大型数组？字段名称都是已知的在执行MySQL查询之前。

我加入数组的循环如下。定义记录集长度为+ 1的新数组arr，然后遍历它，首先添加字段，然后记录集数组的每一行：

For r = LBound(arr, 1) To UBound(arr, 1)
            If r = LBound(arr, 1) Then
                arr(r) = fieldArray
            Else                    
                arr(r) = Application.Index(rs_array, r - 1, 0)
            End If           
Next

Answer 1

使用Application.Index可能是组合数组的最慢方法：使用常规嵌套循环，你甚至不会注意到任何命中 -

Sub TT()

    Dim a(1 To 2000, 1 To 10)

    Dim b(1 To 2000, 1 To 10)
    Dim cc(1 To 2000)

    Dim r, c, t

    t = Timer
    For r = 1 To 2000
        For c = 1 To 10
            b(r, c) = a(r, c)
        Next c
    Next r
    Debug.Print "Loop", Timer - t '>> 0.015625 sec

    t = Timer
    For r = 1 To 2000
        cc(r) = Application.Index(a, r, 0)
    Next r
    Debug.Print "Index", Timer - t '>> 4.195313 sec

End Sub

excel vba：记录集加入和性能

上下文

挑战

我的问题

1 个答案: