VBA将Access表字段转数组触发类型不匹配错误如何解决

你的代码有两处明确错误，是触发类型不匹配的直接原因：

• SQL查询字段写法错误：你在SELECT语句中用单引号包裹了Account ID，单引号在Jet SQL中是字符串常量的界定符，这行查询不会读取Lookup表中对应字段的值，只会为每一行返回固定的字符串"Account ID"。Access中如果字段名包含空格，应该用方括号[]包裹标识符，不能用单引号。
• 调用赋值语句错误：GetRows()方法返回的是普通二维Variant数组，不属于对象类型，不能使用Set关键字赋值。Set仅用于给COM对象类型变量（如Recordset、窗体、控件实例）赋值，给非对象类型的数组加Set会直接抛出类型不匹配错误。

函数部分 #

Public Function GetFieldToArray() As Variant
    Dim rst As DAO.Recordset
    ' 带空格的字段名用方括号包裹
    Set rst = CurrentDb.OpenRecordset("SELECT [Account ID] FROM Lookup")
    rst.MoveLast
    rst.MoveFirst
    GetFieldToArray = rst.GetRows(rst.RecordCount)
    ' 显式回收记录集资源
    rst.Close
    Set rst = Nothing
End Function

调用部分 #

Dim pk As Variant
' 数组为值类型，直接赋值即可，不要加Set
pk = GetFieldToArray()

注意：GetRows返回的是二维数组，下标默认从0开始：第一维对应查询的字段序号（本次仅查询1个字段，固定取索引0即可），第二维对应行序号。例如读取第2行的账户ID，写法为pk(0, 1)。

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