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将失败。

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

1 个答案: