如何通过Excel VBA查询SAP Oracle数据库并在B1返回结果？

首先，你遇到的Object variable or With block variable not set错误，根源是**dbs变量只声明了但从未初始化**，而且你的代码逻辑存在混淆：你登录了SAP系统，但试图用DAO直接连接Oracle数据库，这两条路径是独立的，不能这么混用。下面给你两种可行的解决方案：

方案1：直接连接SAP的Oracle数据库（无需SAP系统登录） #

如果你的权限允许直接访问Oracle数据库，可以用OLEDB或ODBC直接建立连接，这样不需要通过SAP Logon控件。修改后的代码如下：

Option Explicit

Sub Bouton1_Cliquer()
    Dim conn As Object ' ADODB.Connection
    Dim rsSQL As Object ' ADODB.Recordset
    Dim strSQL As String
    Dim sht As Worksheet
    Dim i As Integer
    Dim tableNames As String
    
    Set sht = ThisWorkbook.ActiveSheet
    
    ' 初始化数据库连接（Oracle OLEDB示例，根据你的环境调整连接字符串）
    Set conn = CreateObject("ADODB.Connection")
    ' 替换为你的Oracle连接字符串，比如使用TNS名称或直接IP
    conn.ConnectionString = "Provider=OraOLEDB.Oracle;Data Source=YourOracleTNS;User Id=yourUID;Password=yourPWD;"
    conn.Open
    
    If conn.State = 1 Then ' 连接成功
        MsgBox "数据库连接成功"
        strSQL = "SELECT TABLE_NAME FROM INFORMATION_SCHEMA.TABLES"
        Set rsSQL = conn.Execute(strSQL)
        
        ' 拼接所有表名到字符串
        tableNames = ""
        Do While Not rsSQL.EOF
            tableNames = tableNames & rsSQL("TABLE_NAME") & ", "
            rsSQL.MoveNext
        Loop
        ' 去掉最后多余的逗号和空格
        If Len(tableNames) > 2 Then tableNames = Left(tableNames, Len(tableNames) - 2)
        
        ' 将结果写入B1单元格
        sht.Cells(1, 2).Value = tableNames
        
        ' 关闭记录集和连接
        rsSQL.Close
        conn.Close
    Else
        MsgBox "数据库连接失败"
    End If
    
    ' 释放对象
    Set rsSQL = Nothing
    Set conn = Nothing
End Sub

方案2：通过SAP系统查询（使用RFC函数） #

如果你必须通过SAP系统的权限控制来查询数据，应该使用SAP的标准RFC函数（比如RFC_READ_TABLE）来获取表信息，而不是直接连数据库。修改后的代码如下：

Option Explicit
Private LogonControl As SAPLogonCtrl.SAPLogonControl
Private ConnexionSAP As SAPLogonCtrl.Connection
Public Functions As SAPFunctionsOCX.SAPFunctions

Sub Bouton1_Cliquer()
    Dim retcd As Boolean
    Dim SilentLogon As Boolean
    Dim objRFCReadTable As Object
    Dim objTableParams As Object
    Dim objData As SAPTableFactoryCtrl.Table
    Dim i As Integer
    Dim tableNames As String
    Dim sht As Worksheet
    
    Set sht = ThisWorkbook.ActiveSheet
    
    ' 初始化SAP登录控件
    Set LogonControl = CreateObject("SAP.LogonControl.1")
    Set ConnexionSAP = LogonControl.NewConnection
    Set Functions = CreateObject("SAP.Functions")
    
    ' 设置SAP连接参数
    ConnexionSAP.Client = "100"
    ConnexionSAP.ApplicationServer = "x.x.x.x"
    ConnexionSAP.Language = "EN"
    ConnexionSAP.User = "uid"
    ConnexionSAP.Password = "pwd"
    ConnexionSAP.System = "xxx"
    ConnexionSAP.SystemNumber = "00"
    ConnexionSAP.UseSAPLogonIni = False
    SilentLogon = False
    
    ' 登录SAP
    retcd = ConnexionSAP.Logon(0, SilentLogon)
    If Not retcd Then
        MsgBox "Logon failed"
        Exit Sub
    End If
    MsgBox "Log OK"
    
    ' 关联SAP连接到Functions对象
    Set Functions.Connection = ConnexionSAP
    
    ' 获取RFC_READ_TABLE函数
    Set objRFCReadTable = Functions.Add("RFC_READ_TABLE")
    ' 设置要查询的SAP系统表（TADIR存储所有对象信息）
    objRFCReadTable.exports("QUERY_TABLE") = "TADIR"
    objRFCReadTable.exports("DELIMITER") = "|"
    
    ' 添加筛选条件：只查询表类型对象
    Set objTableParams = objRFCReadTable.tables("OPTIONS")
    objTableParams.AppendRow
    objTableParams("TEXT") = "OBJECTTYPE = 'TABL'"
    
    ' 指定返回字段：表名（OBJ_NAME）
    Set objTableParams = objRFCReadTable.tables("FIELDS")
    objTableParams.AppendRow
    objTableParams("FIELDNAME") = "OBJ_NAME"
    
    ' 执行RFC函数
    If objRFCReadTable.Call Then
        ' 获取结果表
        Set objData = objRFCReadTable.tables("DATA")
        
        ' 拼接所有表名到字符串
        tableNames = ""
        For i = 1 To objData.RowCount
            tableNames = tableNames & Split(objData(i, "WA"), "|")(0) & ", "
        Next i
        ' 去掉最后多余的逗号和空格
        If Len(tableNames) > 2 Then tableNames = Left(tableNames, Len(tableNames) - 2)
        
        ' 将结果写入B1单元格
        sht.Cells(1, 2).Value = tableNames
    Else
        MsgBox "RFC调用失败: " & Functions.LastError.Message
    End If
    
    ' 登出SAP
    ConnexionSAP.Logoff
    ' 释放对象
    Set objData = Nothing
    Set objTableParams = Nothing
    Set objRFCReadTable = Nothing
    Set Functions = Nothing
    Set ConnexionSAP = Nothing
    Set LogonControl = Nothing
End Sub

关键说明 #

• 方案1需要你拥有Oracle数据库的直接访问权限，连接字符串需根据你的Oracle环境调整（比如用ODBC驱动的话格式会不同）。
• 方案2是SAP标准的查询方式，符合SAP的权限管控要求，适合无法直接访问底层数据库的场景。
• 两种方案都做了调整，把所有表名拼接成字符串写入B1单元格，如果你需要显示完整的表信息（如表类型、创建时间等），可以修改代码把完整结果逐行写入工作表。

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