错误：ActiveX 组件无法创建 object

Question

Run-Time error '91':
Object variable or With block variable not set

帮我解决这个问题。

我不知道为什么会发生这种情况，因为我只是按照说明进行操作。

    Sub QueryExcel(ByVal SQL_Statement As String)
    On Error GoTo errHandle
    Dim conn As ADODB.Connection
    Dim rst As ADODB.Recordset
    
    Dim sConnection As String, sSQL As String
    Dim ws As Worksheet, i As Integer, iCheck As Integer
    Dim num_records As Long
    
    sConnection = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ActiveWorkbook.FullName & _
                  ";Extended Properties=""Excel 12.0;HDR=Yes;IMEX=0;ReadOnly=False"""
    
    Set conn = CreateObject("ADOBD.Connection")
    Set rst = CreateObject("ADOBD.Recordset")
    
    sSQL = UCase(SQL_Statement)
    
    conn.Open sConnection
    
    If Left(sSQL, 6) = "UPDATE" Or InStr(sSQL, "INSERT INTO") > 0 Then
    
        conn.Execute sSQL, num_records
        MsgBox num_records & "records affected.", vbInformation
    Else
    
        rst.Open sSQL, conn, adOpenDynamic, adLockOptimistic
        
        Set ws = Worksheets.Add
        With ws
            .Move ThisWorkbook.Worksheets(Sheets.Count)
            
            '// Paste Record Set
            .Range("A2").CopyFromRecordset rst
            
            For i = 0 To rst.Fields.Count - 1
                .Cells(1, i + 1) = rst.Fields(i).Name
            Next i
            
        End With
    
    End If
     
    Door:
    If rst.State <> 0 Then rst.Close
    If conn.State <> 0 Then conn.Close
    
    Set rst = Nothing
    Set conn = Nothing
    Set ws = Nothing
    
    Exit Sub
    
    errHandle:
    MsgBox "Error: " & Err.Description, vbInformation, "JJ Excel SQL.Application"
    GoTo Door
    End Sub

此文本上方的代码
此代码： If rst.State <> 0 Then
使所有这些长代码出错

Answer 1

快速浏览一下，它可能永远不会正确加载第一个 object。

检查您的 IF ELSE。 声明，我想你会发现它从不执行这个命令

rst.Open sSQL, conn, adOpenDynamic, adLockOptimistic

您可以通过在错误之前暂停来检查。 然后在中间window打字。

?typename(rst)

它不会返回任何您知道问题所在的信息。

Answer 2

Set conn = CreateObject("ADOBD.Connection")
    Set rst = CreateObject("ADOBD.Recordset")

在上面的行ADOBD更改为ADODB