vba - 将变体数组转换为字符串

Question

我正在尝试获取一个变体变量并将其转换为字符串，以便我可以对数据运行拆分函数。但是，每当我尝试重新定义变体时，都会出现类型不匹配错误。我使用过 CStr()、Str() 和 ToString 函数。没有工作。

我缺少什么吗？

Function FlatLine(ByVal lines As Variant)

Dim flat() As String
ReDim Preserve flat(i)

For i = 0 To UBound(lines)
    flat(UBound(flat)) = lines(i)
    ReDim Preserve flat(LBound(flat) To UBound(flat) + 1)
Next i

Dim flat2 as String
flat2 = Cstr(flat)

^ errors there.

Answer 1

就我所见， for 没用。更好的 ReDim flat 并生成 flat2 如下

ReDim flat(UBound(lines))
flat2 = Join(flat,"|")

事实上，考虑到线路是作为 ByVal 进来的，你可能会

flat2 = Join(lines,"|")