从数组 Excel VBA 集合创建 ListObject 表

问题描述

所以，我有一个数组集合（我最初在一个二维数组中，但由于数据大小的可变性，我决定一个集合可能更好），其中的数组是固定长度的。

我想基本上将整个集合转储到 listObject 表中。这在使用带有 table.resize(x,y).value = array 的 2D 数组时很好，但在用集合替换数组时不想玩球；我收到“运行时错误 1004：应用程序定义或对象定义的错误”

这是有效的（非常精简的代码）：

'mailData = array of arrays of email data (sender,date,subject,etc)
Set LO = xlWs.ListObjects("Emails")
Set LR = LO.ListRows.Add.Range
LR.Resize(UBound(mailData),UBound(mailData,2)).value = mailData

这就是 id 喜欢工作但不喜欢的：

'mailData = Collection of arrays of email data (sender,etc)
Set LO = xlWs.ListObjects("Emails")
Set LR = LO.ListRows.Add.Range
LR.Resize(mailData.count,UBound(mailData(1))).value = mailData

我真的想避免为每一行循环和写入 excel，因为有很多行，这将是一个巨大的性能损失。

谢谢。

编辑： 我最终只写了一个“将集合转换为数组”的函数；是唯一似乎可行的简单方法。

Function colToAr(col As collection) As Variant
     Dim outAr(1 To col.Count,7) As Variant
     Dim i,j As Integer
     For i = 1 To col.Count
         For j = 0 To 6
             outAr(i,j) = col(i)(j)
         Next
     Next
     colToAr = outAr
End Function

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）