上述代码在Windows XP SP3/2003 SP2 + Office2003下测试通过. OraPwd="password"
Dim DBRst As ADODB.Recordset
ErrMsg:
SQLRst = "Select * From TstTab"
Dim DBRst As ADODB.Recordset
'MsgBox "Connect to the oracle database Successful!", vbInformation, "Connect Successful"
SQLRst = "Select * From TstTab"
ConnDB.CursorLocation = adUseServer
可以根据需要调整SQL语句，获取相关数据，并输出到Excel完成数据处理
Public Sub ConOra()

OraUsr="user"
";User;Data Source=" & OraID & _
ConnDB.Open ConnStr
Dim SQLRst As String
Dim SQLRst As String
Set ConnDB = New ADODB.Connection
　　建立连接过程，代码如下：
On Error GoTo ErrMsg:
On Error GoTo ErrMsg:
OraOpen = False
OraOpen = True '成功执行后，数据库即被打开
Set DBRst = New ADODB.Recordset

复制代码 代码如下:

DBRst.CursorLocation = adUseServer
Set DBRst = New ADODB.Recordset
OraUsr="user"
Dim OraOpen As Boolean
Dim ConnDB As ADODB.Connection
OraPwd="password"
";Persist Security Info=True"
DBRst.LockType = adLockBatchOptimistic
";Persist Security Info=True"
";User;Data Source=" & OraID & _
ConnDB.CursorLocation = adUseServer
DBRst.Open SQLRst, ConnDB, adOpenStatic, adLockBatchOptimistic
DBRst.MoveFirst
DBRst.MoveFirst
Dim OraOpen As Boolean
ErrMsg:
Dim ConnDB As ADODB.Connection
DBRst.ActiveConnection = ConnDB
　　1、打开VBA编辑器，在菜单中点选“工具”，“引用”；
MsgBox "Connect to the oracle database fail ,please check!", vbCritical, "Connect fail!"
OraOpen = True '成功执行后，数据库即被打开
DBRst.ActiveConnection = ConnDB
以下是通过Excel 的VBA连接Oracle并操作Oracle相关数据的示例
End Function
MsgBox "Connect to the oracle database fail ,please check!", vbCritical, "Connect fail!"
Excel 通过VBA连接数据库需要安装相应的Oracle客户端工具并引用ADO的相关组件，引用ADO相关组件可按如下步骤操作：
Exit Function
OraID="Orcl" 'Oracle数据库的相关配置
OraID="Orcl" 'Oracle数据库的相关配置
DBRst.Open SQLRst, ConnDB, adOpenStatic, adLockBatchOptimistic
OraOpen = False
OraOpen = False
DBRst.CursorLocation = adUseServer
End Function
ConnStr = "Provider = MSDAORA.1;Password=" & OraPwd & _
'MsgBox "Connect to the oracle database Successful!", vbInformation, "Connect Successful"