如何使用 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 添加了一個監視。 它似乎是一個一維的字符串數組。

我試過“,”作為分隔符，但沒有更好的結果。

我完全被難住了。 任何人都可以幫忙嗎？

Answer 1

沮喪 - 我沒有看到其中一個數組元素中存在變體錯誤 2029（在最初查看監視表時剛好在屏幕外）。

因此，解決方案 - 確保數組中的每個元素本身都是正確的類型。 如果任何元素出錯，我認為 Join 將失敗。