将数组写入表 （ListObject） - 内存不足

问：

我在格式化为 ListObject 的表中输入数组时遇到问题。 我使用了以下代码，但这并不适用于所有情况。

有问题的函数嵌入在主 Sub 中，如下所示。

Dim SFH As New SheetFilterhandler

Set SFH.SetTable = loSourceList
SFH.SaveFilters
SFH.DisableFilters
Call UpdateListObject(loSourceList, loImportList)
SFH.EnableFilters

功能可以简化为：

Public Function UpdateListObject(loTarget As ListObject, loSource As ListObject) As Boolean

On Error GoTo CreateErr
Dim PreviousContent As Variant
Dim Export As Variant

Export = loSource.DataBodyRange.value
PreviousContent = loTarget.DataBodyRange.value

Dim CurrentContent As Variant
ReDim CurrentContent(UBound(PreviousContent) + UBound(Export), UBound(PreviousContent, 2))

For ExportIndex = 1 To UBound(Export)
    For PreviousContentIndex = 1 To UBound(PreviousContent)
        'Export and PreviousContent is compared and written into CurrentContent
    Next PreviousContentIndex
    'new items
    If ItemNotExisting Then
        NewContentCounter = NewContentCounter + 1
        loTarget.ListRows.Add
        For i = 1 To UBound(Export, 2)
            CurrentContent(UBound(PreviousContent) + NewContentCounter, i) = Export(ExportIndex, i)
        Next i
    End If
Next ExportIndex

loTarget.DataBodyRange.Value2 = CurrentContent 'problematic line
UpdateListObject = True
Exit Function
CreateErr:
    UpdateListObject = False
    GetErrMsg = Err.Description
    Debug.Print "UpdateListObject: " & GetErrMsg
    Debug.Print PreviousContentIndex & "," & ExportIndex
End Function

此代码适用于：

CurrentContent 变体/变体（1 至 1294、1 至 55）; loTarget.DataBodyRange.Value2（1 到 647,1 到 55）

但对于以下情况，它不起作用：

CurrentContent 变体/变体（1 到 3071,1 到 20）; loTarget.DataBodyRange.Value2（1 到 1543， 1 到 20）

大小不同，因为 ArrayName 只有大于最大行数的行的空条目，可以忽略。ListObject

在本例中，我使用 Debug.Print 来显示错误说明。

GetErrMsg = Err.Description
Debug.Print GetErrMsg

输出是可以翻译的。 如果有任何限制，我不明白，因为。 1294 x 55 = 71170 和 3071 x 20 = 61420Nicht genügend Speichernot enough memory

在没有桌子的情况下也看到了相同的行为。

With ActiveSheet
    .ListObjects(1).Unlist
    .UsedRange.Offset(1, 0).Clear
    .Range(.Cells(2, 1), Cells(UBound(CurrentContent) + 1, UBound(CurrentContent, 2))) = CurrentContent
End With

CurrentContent 示例数据