如何通过LotusScript将多值字段导出至Excel的不同行？

我懂你想要的效果——把多值字段里的每个值分别放到Excel的不同行，第一个值在当前记录的起始行，第二个值往下挪一行，以此类推。你之前用Join加换行符的方式是把值塞在同一个单元格里，确实不符合需求，咱们来调整代码逻辑：

核心思路 #

对于每个字段：

• 如果是单值字段，直接写入当前行的对应列
• 如果是多值字段，循环遍历每个值，逐行写入Excel，同时要记得写完一个值就把行号往下加1；处理完这个字段后，要把行号重置回当前记录的起始行，保证下一个字段的第一个值和当前记录的其他字段对齐

修改后的代码 #

' 保存当前记录的起始行号，假设i是你原来的初始行（比如从第2行开始写数据）
Dim currentRow As Integer
currentRow = i

ForAll b In fieldList 
    ' 获取当前字段的所有值，返回的是数组类型
    Dim fieldValues As Variant
    fieldValues = doc.getitemvalue(CStr(b))
    
    ' 判断是否为单值字段：UBound从0开始，单值数组的UBound是0
    If UBound(fieldValues) = 0 Then
        ' 单值直接写入当前行的对应列
        worksheet.cells(currentRow, j).Value = fieldValues(0)
    Else
        ' 多值字段，循环每个值写入不同行
        Dim valIndex As Integer
        For valIndex = 0 To UBound(fieldValues)
            worksheet.cells(currentRow, j).Value = fieldValues(valIndex)
            ' 写完一个值，行号加1，准备写下一个值
            currentRow = currentRow + 1
        Next valIndex
    End If
    
    ' 处理完一个字段，列号右移一位
    j = j + 1
    ' 重置行号到当前记录的起始行，保证下一个字段从同一行开始写
    currentRow = i
End Forall

关键细节说明 #

1. 行号管理：用currentRow临时跟踪写入位置，多值字段每写一个值就递增，处理完字段后重置回起始行i，这样不同字段的第一个值都会对齐在同一行，符合Excel记录的结构。
2. 单值判断：Notes的getitemvalue即使是单值字段也会返回长度为1的数组，所以用UBound(fieldValues) = 0来判断单值更准确（如果有空字段需求，可以额外加空值判断）。
3. 列号递增：每个字段处理完后j += 1，确保下一个字段写入到下一列。

额外注意 #

如果你的多值字段长度比其他字段长，那么后面的行对应的其他列会是空值，这是正常的，正好满足“每个值单独一行”的需求。另外，当你处理完整个文档后，记得把i递增到下一个记录的起始行，比如i = currentRow，这样下一个文档的起始行是当前文档最后一个值的下一行。

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