如何解决从数组 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 举报,一经查实,本站将立刻删除。