如何使用 Excel VBA 中的联接函数克服类型不匹配错误

Question

我试图解决 Join 函数上的 [运行时错误'13'：类型不匹配] 错误。 谁能给我一些方向，告诉我如何弄清楚我做错了什么？

Sub subWriteListObject(shtXer As Worksheet, strListObjectName As String, fileFileOut As Integer)
Dim varRangeArray As Variant
Dim varRowArray As Variant
Dim lRowIterate As Long
Dim strStringWrite As String
Print #fileFileOut, "%T" & vbTab & strListObjectName
varRangeArray = shtXer.ListObjects(strListObjectName).Range.Value
For lRowIterate = 1 To UBound(varRangeArray)
varRowArray = Application.Index(varRangeArray, lRowIterate, 0)
strStringWrite = Join(varRowArray, vbTab)
Print #fileFileOut, strStringWrite
Next
Set varRangeArray = Nothing
Set varRowArray = Nothing
End Sub

我为 varRowArray 添加了一个手表。 它似乎是一个一维字符串数组。

我尝试过"，"作为分隔符，但没有更好的结果。

我完全被难住了。 谁能帮忙？

Answer 1

挫败感 - 我没有看到其中一个数组元素中存在变体错误 2029(只是在最初查看监视表时不在屏幕上(。

因此，解决方案 - 确保数组中的每个元素本身都是正确的类型。 如果任何元素出错，我认为 Join 将失败。