使用Lotus脚本，需要将多价值导出到不同行

Question

我试图导出多价值领域，但无法实现它。我尝试了UBOUND的导出，但是情况是我需要第一行中的第一值，反之亦然。请帮助我解决这个问题。我正在使用Excel应用程序导出数据。

提前致谢。

ForAll b In fieldList 
If UBound(doc.getitemvalue(b)) <1 Then 

worksheet.cells(i,j).value =doc.getitemvalue(CStr(b)) 

Else 

'Join(doc.getitemvalue(CStr(b)),Chr(10)) 

worksheet.cells(i,j).value =Join(doc.getitemvalue(CStr(b)),Chr(10)) 

End If 
End Forall

Answer 1

创建一个循环，通过索引遍历每个字段的所有值（我的代码示例中的“ x ”）。再次使用 x 再次抵消行值。

您会遇到一个问题，每个 fieldName 的值都会在电子表格中覆盖，因为 i 和 j 始终是相同的，因此您在 fieldlist 中有多个 fieldname ，您也需要对此做些事情。在我的示例中，我已经为每个 fieldname 增加了 j ，以便它们将在不同的电子表格列中

ForAll fieldName In fieldList

    For x = LBound(doc.getitemvalue(fieldName)) to Ubound(doc.getitemvalue(fieldName))
        worksheet.cells(i + x, j).value = doc.getitemvalue(fieldName)(x)
    Next

    j = j + 1
End Forall

替代版本，以实现您在评论中提出的内容：

ForAll fieldName In fieldList

    For x = LBound(doc.getitemvalue(fieldName)) to Ubound(doc.getitemvalue(fieldName))
        worksheet.cells(i, j + x).value = doc.getitemvalue(fieldName)(x)
    Next

    i = i + 1
End Forall

Answer 2

假设以下文档：

字段名称	值0	值1	值2
first field	valition toers toerst
二次字段	值0秒value1	秒	value2秒秒
第三场	vality0	-third valit

解决方案1：
如果您希望结果看起来像这个

第一场	Field Field	Thirdfield
value0-fort	valuer0-ecd	value0-third
	value1-second	value1-third
	value2秒2秒，

则使用以下代码：

cellY = 2
cellX = 1
Forall fieldName in fieldNameList
  For y = 0 to ubound( doc.GetitemValue( fieldName ) )
    worksheet.cells(cellY + y, cellX).value = doc.GetitemValue( fieldName )(y)
  Next
  cellX = cellX + 1
End Forall

solution 2 ：如果您想要the result to look like this

Fieldname	Value 0	Value 1	Value 2
FirstField	Value0-First
SecondField	Value0-Second	Value1-Second	Value2-Second
ThirdField	Value0-Third	Value1-Third

Then you use the following code:

cellY = 1
cellX = 2
Forall fieldName in fieldNameList
  For x = 0 to ubound( doc.GetitemValue( fieldName ) )
    worksheet.cells(cellY, cellX+x).value = doc.GetitemValue( fieldName )(x)
  Next
  cellY = cellY + 1
End Forall

Solution 3:
如果您希望结果看起来像这样的

所有字段
first first
valit valie0 first
个秒
第二
value 1秒value2 value2-second second
virate0-third value1-third
value1
-
third third third third third third third third third third third third third third third third

thirp

cellY = 1
cellX = 1
Forall fieldName in fieldNameList
  worksheet.cells(cellY, cellX).value = fieldName
  For y = 0 to ubound( doc.GetitemValue( fieldName ) )
    cellY = cellY + 1
    worksheet.cells(cellY, cellX).value = doc.GetitemValue( fieldName )(y)
  Next
  cellY = cellY + 1
End Forall

Answer 3

doc.getItemvalue（cstr（b））始终返回变体数组，即使ubound少于一个。

然后，您的中的代码然后条款需要放置数组的0个条目：

worksheet.cells(i,j).value =doc.getitemvalue(CStr(b))(0)