如何在excelvba中使用Join函数克服类型不匹配错误

我一直在尝试解决Join函数上的[runtimeerror'13'：Type mismatch]错误。谁能给我一些指导，让我知道我做错了什么

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添加了一块手表。它似乎是一个一维字符串数组

我尝试过用“，”作为分隔符，但没有更好的结果

---

我完全被难住了。有人能帮忙吗？

沮丧-我没有看到其中一个数组元素中有一个变量错误2029（在最初查看观察表时刚刚脱离屏幕）

---

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

更具体地说，它需要能够被强制为

字符串。