Excel VBA连接并操作Oracle

下面我会详细讲解“Excel VBA连接并操作Oracle”的完整攻略，包含如何连接Oracle数据库、如何执行SQL语句、如何读取结果集等细节，并提供两条示例说明。

准备工作

在连接Oracle之前，需要确保电脑上已经安装Oracle客户端或Oracle Instant Client。安装后，需要将Oracle client的目录添加到系统环境变量的PATH中。

连接Oracle

连接Oracle需要用到ADODB对象。这个对象可以通过VBA代码来调用。下面是连接Oracle的示例代码：

Dim conn As New ADODB.Connection
conn.CursorLocation = adUseClient
conn.Open "Provider=OraOLEDB.Oracle;Data Source=ORCL;User ID=USERNAME;Password=PASSWORD;"

其中，Data Source是Oracle数据库的服务名，User ID和Password是Oracle数据库的用户名和密码。

执行SQL语句

连接成功后，可以通过conn.Execute方法执行SQL语句。如果需要执行查询语句，可以把查询结果存储在Recordset对象中。下面是示例代码：

Dim rs As ADODB.Recordset
Set rs = conn.Execute("SELECT * FROM emp")

While Not rs.EOF
    Debug.Print rs.Fields("empno").Value, rs.Fields("ename").Value
    rs.MoveNext
Wend

读取结果集

在执行SQL查询后，查询结果可以通过Recordset对象读取。Recordset对象的典型用法是使用MoveNext方法循环访问所有查询结果。下面是读取结果集的示例代码：

Dim rs As ADODB.Recordset
Set rs = conn.Execute("SELECT * FROM emp")

While Not rs.EOF
    Debug.Print rs.Fields("empno").Value, rs.Fields("ename").Value
    rs.MoveNext
Wend

这段代码会将查询结果打印出来，其中每个记录的第一列是empno，第二列是ename。

示例1：将查询结果写入Excel

下面是一个例子，将查询结果写入Excel。代码将查询结果存储在了一个二维数组中，并将这个数组写入了Excel的A1单元格中。

Option Explicit 

Sub WriteRecordsetToExcel()
    Dim conn As New ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim fld As ADODB.Field
    Dim arrData As Variant
    Dim i As Long
    Dim j As Long

    conn.Open "Provider=OraOLEDB.Oracle;Data Source=ORCL;User ID=USERNAME;Password=PASSWORD;"

    Set rs = CreateObject("ADODB.Recordset")
    rs.Open "SELECT * FROM emp", conn

    ' 将字段名称存储在数组中
    ReDim arrData(1 To rs.RecordCount + 1, 1 To rs.Fields.Count)
    For j = 0 To rs.Fields.Count - 1
        arrData(1, j + 1) = rs.Fields.Item(j).Name
    Next j

    ' 将记录存储在数组中
    i = 2
    While Not rs.EOF
        For j = 0 To rs.Fields.Count - 1
            arrData(i, j + 1) = rs.Fields.Item(j).Value
        Next j
        i = i + 1
        rs.MoveNext
    Wend

    ' 将数组写入excel
    With ThisWorkbook.Sheets(1)
        .Range("A1").Resize(rs.RecordCount + 1, rs.Fields.Count).Value = arrData
    End With

    rs.Close
    conn.Close
End Sub

示例2：从Excel中读取数据，执行插入操作

下面是一个例子，演示如何从Excel中读取数据，执行插入操作。代码读取了Excel中的A1:B3区域数据，并将这些数据插入了Oracle表中。

Option Explicit 

Sub InsertRecordsetToOracle()
    Dim conn As New ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim strSQL As String
    Dim i As Long

    conn.Open "Provider=OraOLEDB.Oracle;Data Source=ORCL;User ID=USERNAME;Password=PASSWORD;"

    strSQL = "INSERT INTO emp (empno, ename) VALUES (?, ?)"
    Set rs = New ADODB.Recordset
    rs.Open strSQL, conn, adOpenDynamic, adLockOptimistic

    With ThisWorkbook.Sheets(1)
        For i = 2 To .Cells(.Rows.Count, "A").End(xlUp).Row
            rs.AddNew
            rs.Fields("empno").Value = .Cells(i, 1).Value
            rs.Fields("ename").Value = .Cells(i, 2).Value
            rs.Update
        Next i
    End With

    rs.Close
    conn.Close
End Sub

以上就是Excel VBA连接并操作Oracle的完整攻略，希望对你有所帮助。