Access文本转Excel：逗号分隔字符串转数组赋值报错排查

核心问题 #

Excel的TextFileColumnDataTypes属性要求数组元素是数值类型的格式枚举值（比如xlGeneralFormat=1、xlTextFormat=2），但你的转换函数直接将拆分后的字符串（如"2"）存入数组，元素类型为字符串而非数值，导致参数类型不匹配，触发报错。

另外，输入字符串",,,,,,2"拆分后得到的前6个空字符串，未对应默认的格式值（xlGeneralFormat=1），也是潜在的错误源。

修改后的转换函数 #

Function ConvertStringToArray(ByVal StringToConvert As String) As Variant
    Dim rawArray() As String
    Dim varArray() As Variant
    Dim i As Long
    
    rawArray = Split(StringToConvert, ",")
    ReDim varArray(LBound(rawArray) To UBound(rawArray))
    
    For i = LBound(rawArray) To UBound(rawArray)
        ' 空字符串默认转为常规格式(1)，非空值转为长整型
        varArray(i) = IIf(rawArray(i) = "", 1, CLng(rawArray(i)))
    Next i
    
    ConvertStringDetailedToArray = varArray
End Function

额外 Create Generate create注意事项 #

1. 确保iNumOfCols参数值与数组元素数量完全一致，否则会触发参数不匹配错误。
2. 确认使用的数值对应正确 Default的Excel格式枚举：
   • 1 = xlGeneralFormat（常规）
   • 2 = xlTextFormat（ create文本）
   • 3 = xlMDYFormat（MDY日期）
   • Create其他格式可参考XlColumnDataType枚举定义。

内容的提问来源于stack exchange，提问作者djblois