excel - 如何使用 Excel VBA 中的 Join 函数克服类型不匹配错误

Question

我一直在尝试解决 Join 函数上的 [Run-time error '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 添加了一个 watch 。它似乎是一个一维的字符串数组。

我已经尝试将“,”作为分隔符，但没有更好的结果。

我完全被难住了。任何人都可以帮忙吗？

Answer 1

沮丧 - 我没有看到其中一个数组元素中存在变体错误 2029(在最初查看监视表时超出屏幕)。

所以，解决方案 - 确保数组中的每个元素本身都是正确的类型。如果任何元素有错误，我假设 Join 将失败。