Excel VBA中比对Access记录集时如何标记无匹配情况

报错原因 #

FindFirst是VBA记录集的无返回值方法（Sub），无法直接通过链式调用.NoMatch属性，必须先执行FindFirst，再检查记录集对象的NoMatch属性。

修正后的代码 #

For i = 2 To lrow
    Dim packNum As String
    packNum = Trim(Adds.Range("A" & i).Value)
    
    ' 先处理空值情况
    If packNum = "" Then
        Adds.Range("C" & i).Value = ""
        Adds.Range("D" & i).Value = ""
        GoTo NextRow ' 跳过当前循环
    End If
    
    ' 转义单引号，避免SQL语法错误（比如PackNum包含单引号时）
    packNum = Replace(packNum, "'", "''")
    
    ' 执行查找
    UpSAddPool.FindFirst "[Packnum] = '" & packNum & "'"
    
    ' 根据匹配结果处理
    If UpSAddPool.NoMatch Then
        Adds.Range("C" & i).Value = "无匹配"
        Adds.Range("D" & i).Value = "无匹配"
    Else
        Adds.Range("C" & i).Value = UpSAddPool.Fields("[Year]").Value
        Adds.Range("D" & i).Value = UpSAddPool.Fields("[Catid]").Value
    End If
    
NextRow:
Next i

关键优化说明 #

• 修复报错核心：先执行FindFirst，再通过UpSAddPool.NoMatch判断是否匹配，而非链式调用。
• 空值提前处理：避免空值进入查找逻辑，减少无效操作。
• 单引号转义：用Replace处理PackNum中的单引号，防止SQL语句语法错误（比如PackNum为AB'123时，原代码会导致SQL字符串断裂）。
• 避免重复查找：原代码在Else分支重复调用FindFirst，修正后只调用一次，提升效率。
• 统一无匹配标注：同时设置C、D列为“无匹配”，符合需求。

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