如何将字典中类对象的属性批量输出到Excel工作表？

问题根源 #

Dictionary.Items返回的是ClsPortfolioComp类对象的数组，而非普通值类型数组（如数字、字符串）。Excel工作表区域无法直接接收对象，必须先提取对象的属性值转为值数组，才能批量赋值。

方法1：Excel 365+ 无循环批量提取（推荐） #

利用Excel 365新增的MAP+LAMBDA函数，批量遍历对象数组并提取属性，无需手动循环：

Sub OutputPortfolioProps()
    Dim dict As Dictionary
    Set dict = ReadMultiItems() ' 你的字典生成函数
    
    Dim itemsArr As Variant
    itemsArr = dict.Items
    
    ' 批量输出3个属性到对应列
    Range("A1").Resize(dict.Count, 1).Value = Application.Transpose( _
        Application.MAP(itemsArr, LAMBDA(obj, obj.Elig_weight)) _
    )
    Range("B1").Resize(dict.Count, 1).Value = Application.Transpose( _
        Application.MAP(itemsArr, LAMBDA(obj, obj.Moodys)) _
    )
    Range("C1").Resize(dict.Count, 1).Value = Application.Transpose( _
        Application.MAP(itemsArr, LAMBDA(obj, obj.Evest)) _
    )
End Sub

方法2：兼容旧版Excel的高效批量输出（无单元格循环） #

如果使用的是Excel 2019及以下版本，可先将属性值存入二维数组，再一次性赋值到工作表（仅数组内部循环，远快于逐个单元格赋值）：

Sub OutputPortfolioProps_OldExcel()
    Dim dict As Dictionary
    Set dict = ReadMultiItems() ' 你的字典生成函数
    
    Dim objArr As Variant
    Dim outputArr As Variant
    Dim i As Long
    
    objArr = dict.Items
    ' 初始化二维数组：行数=字典元素数，列数=3个属性
    ReDim outputArr(1 To dict.Count, 1 To 3)
    
    ' 数组内循环提取属性（远快于单元格循环）
    For i = LBound(objArr) To UBound(objArr)
        outputArr(i + 1, 1) = objArr(i).Elig_weight
        outputArr(i + 1, 2) = objArr(i).Moodys
        outputArr(i + 1, 3) = objArr(i).Evest
    Next i
    
    ' 一次性输出到工作表
    Range("A1").Resize(UBound(outputArr, 1), 3).Value = outputArr
End Sub

为什么原方法报错？ #

• WorksheetFunction.Transpose仅支持值类型数组，无法处理对象数组，因此抛出“Transpose方法失败”错误。
• 直接将dict.Items赋值给工作表区域时，Excel无法识别对象类型，导致“对象定义或应用程序定义”错误。

内容的提问来源于stack exchange，提问作者pmurphy