VBA字符串数组初始化报错：Run-time Error 13类型不匹配求助

错误原因 #

你遇到的Run-time Error 13: type mismatch，是因为VBA的Array()函数返回的是Variant类型数组，而你声明的MyArray()是String类型数组，两种类型无法直接赋值，导致类型不匹配。

解决方案 #

以下是几种可行的修复方式：

• 方法1：用Split函数快速初始化
  如果数组元素不含指定分隔符（示例用逗号），可以用Split直接生成String数组：

  Dim MyArray() As String
  MyArray = Split("A,B,C", ",")
  

• 方法2：手动转换Variant数组为String数组
  先通过Array()获取Variant数组，再逐个转换赋值到String数组：

  Dim tempArray As Variant
  Dim MyArray() As String
  Dim idx As Long
  
  tempArray = Array("A", "B", "C")
  ReDim MyArray(LBound(tempArray) To UBound(tempArray)) ' 匹配数组长度
  
  For idx = LBound(tempArray) To UBound(tempArray)
      MyArray(idx) = CStr(tempArray(idx)) ' 转换为字符串并赋值
  Next idx
  

• 方法3：直接声明并赋值固定长度数组
  明确数组长度后逐个赋值，适合元素数量固定的场景：

  Dim MyArray(0 To 2) As String
  MyArray(0) = "A"
  MyArray(1) = "B"
  MyArray(2) = "C"
  

内容的提问来源于stack exchange，提问作者Leon van Breugel