将变量数组转换为字符串

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是无用的。最好重新定义flat并生成flat2，如下所示

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

实际上，考虑到行是作为ByVal输入的你可能可以

flat2 = Join(lines,"|")