0

我在将数据写入表（listobject）时遇到了低性能

我有一组对象，想将它们逐行写入表中

For Each msrecord In mls.mlRecords
    Dim oNewRow As ListRow
    Set oNewRow = Sheets(mls.name).ListObjects(1).ListRows.Add(AlwaysInsert:=True)
    oNewRow.Range.Cells(1, 1).Value = msrecord.id
Next msrecord

然而这太慢了。我试过 Application.ScreenUpdating = False 没有成功。

我的想法是先填充一个数组，然后一次将其全部写入表中。

Dim outputArray As Variant

Dim counter As Long
For counter = 1 To mls.mlRecords.Count

    outputArray(counter, 1).Value = msrecord.id
    outputArray(counter, 2).Value = msrecord.name
    outputArray(counter, 3).Value = msrecord.morefields

 Next

 Sheets(mls.name).ListObjects(1).DataBodyRange.Value = outputArray

但是，我现在在变量数组中分配值时遇到类型不匹配错误。我不能真正重新调整数组，因为我有一个集合开始。

有什么想法吗？首先建立阵列有意义吗？如何有效地将数据写入表（listobjects）？

4

1 回答 1

0

在您调用 Redim 之前，您的变量不是数组。在此之前，它是 Empty，它是 Variant 的默认值。尝试在循环之前添加它。

ReDim outputArray(1 to mls.mlRecords.Count, 1 to 3)
于 2015-08-03T20:58:05.580 回答