1.客户端必须安装对应oracle版本的client
2.excel中按如下操作添加组件
'请先添加引用:工具-引用-Microsoft ActiveX Data Objects 2.8 'Library,Microsoft ActiveX Data Objects Recordset 2.8 Library
Sub OraLink()
Dim conn As Object
Dim rs As Object
Dim strConn As String
Set conn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.recordset")
strConn = "Provider=OraOLEDB.Oracle.1; user id=joe; password=joe; data source = 192.168.0.118:2001/dbap.com.cn; Persist Security Info=True"
conn.Open strConn '打开数据库
Set rs = conn.Execute("select * from joe.test")
For j = 0 To rs.Fields.Count - 1
Cells(1, j + 1) = rs.Fields(j).Name
Next
'粘贴结果
Range("A2").CopyFromRecordset rs
End Sub