Excel VBA中CurrentDb返回object required错误原因及ADO校验查询存在性方法

报错原因说明 #

CurrentDb是Access VBA的内置方法，仅在Access VBA环境下可直接调用，Excel VBA环境没有该默认对象，所以会触发「object required」错误。

具体实现代码 #

你可以直接用晚绑定版本的ADO代码实现需求，无需提前引用类库，也能避免DAO的DLL冲突问题：

Sub CheckQueryExists_ADO()
    Dim conn As Object
    Dim rs As Object
    Dim targetDbPath As String
    Dim targetQueryName As String
    
    ' 替换为你的实际参数
    targetDbPath = "C:\你的数据库路径\目标数据库.accdb"
    targetQueryName = "QueryName1"
    
    ' 初始化ADO连接（晚绑定无需引用库）
    Set conn = CreateObject("ADODB.Connection")
    conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & targetDbPath & ";"
    
    ' 从Access系统表查询指定查询是否存在，Type=5对应查询对象
    Set rs = conn.Execute("SELECT Name FROM MSysObjects WHERE Name='" & Replace(targetQueryName, "'", "''") & "' AND Type=5")
    
    If Not rs.EOF Then
        MsgBox "query already exists"
    Else
        MsgBox "query does not exist"
    End If
    
    ' 释放资源
    rs.Close
    conn.Close
    Set rs = Nothing
    Set conn = Nothing
End Sub

注意事项 #

• 如果使用的是2003及更早版本的.mdb格式数据库，将连接字符串的Provider改为Microsoft.Jet.OLEDB.4.0即可
• 代码中Replace方法是为了处理查询名包含单引号的场景，避免SQL语法错误
• 如果你已经在其他逻辑中建立了指向目标数据库的ADO连接，直接复用现有连接对象即可，无需重复创建连接

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