在Excel宏中使用DLookup查询Access数据无返回问题求助

我想在Excel宏里用DLookup，把当前工作表I列的两位代码和Access查询「HasPerMonths」的Offer列匹配，返回对应「Have PerMonths」列的是/否值。这个Access查询包含Offer（两位代码）和「Have PerMonths」（是/否）两列。现在我的DLookup没有返回值，我平时只在Access里用DLookup，不知道在Excel里实现漏了什么，附上代码求帮忙。

原代码 #

Public Sub Test()
Dim ws As Worksheet
Dim lrow As Long
Dim appAccess As Access.Application
Dim PerMonths As DAO.Recordset
Dim db As DAO.Database
Dim varX As Variant

Set db = DBEngine.OpenDatabase("\page\data\NFInventory\groups\CID\CID Database\Test Database\CID DailyChecks.accdb")
Set PerMonths = db.OpenRecordset("HasPerMonths")
Set ws = ActiveWorkbook.Worksheets(1)
varX = DLookup("[Offer]", "HasPerMonths", "[Offer]= '" & ws.Range("I" & i).Value & "'")

'Once I figure out the dlookup I'll update the loop to pull the Yes/No return 
With ws
    For i = 5 To lrow
     If ws.Range("I" & i).Value = PerMonths.Fields("Offer").Value And PerMonths.Fields("Have PerMonths") = "Yes" Then
             ws.Range("AA" & i) = PerMonths.Fields("Have PerMonths").Value
     End If
    Next i
End With

End Sub

问题分析与修复步骤 #

1. 核心错误点 #

• DLookup调用时机错误：原代码中i在DLookup执行时未定义，导致查询条件为空，自然无返回值。
• 循环逻辑失效：lrow变量未赋值，循环没有终止行，根本不会执行；同时遍历记录集时未移动指针，只会停留在第一条记录，无法匹配所有行。
• 是/否字段判断错误：Access的是/否字段在VBA中返回布尔值True/False，不是字符串"Yes"/"No"。

修复后的代码 #

Public Sub Test()
    Dim ws As Worksheet
    Dim lrow As Long
    Dim db As DAO.Database
    Dim varPerMonths As Variant
    Dim i As Long ' 显式定义循环变量

    ' 打开Access数据库
    Set db = DBEngine.OpenDatabase("\page\data\NFInventory\groups\CID\CID Database\Test Database\CID DailyChecks.accdb")
    Set ws = ActiveWorkbook.Worksheets(1)
    
    ' 获取I列最后一行行号
    lrow = ws.Cells(ws.Rows.Count, "I").End(xlUp).Row
    
    ' 循环处理每行数据
    For i = 5 To lrow
        ' 直接查询目标列，匹配当前行的Offer代码
        varPerMonths = DLookup("[Have PerMonths]", "HasPerMonths", "[Offer] = '" & ws.Range("I" & i).Value & "'")
        
        ' 将布尔结果转换为中文是/否写入AA列
        If Not IsNull(varPerMonths) Then
            ws.Range("AA" & i).Value = IIf(varPerMonths, "是", "否")
        Else
            ws.Range("AA" & i).Value = "无匹配" ' 处理无匹配的情况
        End If
    Next i
    
    ' 释放资源
    db.Close
    Set db = Nothing
    Set ws = Nothing
End Sub

关键说明 #

• DLookup正确用法：在Excel中只要通过DBEngine.OpenDatabase打开了Access数据库，就能直接调用DLookup，前提是查询条件格式正确。
• 变量规范：所有变量必须显式定义，避免未初始化变量导致的逻辑错误。
• 资源释放：数据库使用完毕后必须关闭并释放对象，避免内存泄漏。

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