excel通过VBA与数据库连接。需要安装相应的Oracle客户机工具，并引用ADO的相关组件。ADO的相关组件可以通过以下步骤引用。
1，打开VBA编辑器，在菜单中选择工具，参考；
2、确保微软activitex数据对象2.8图书馆和微软activitex数据对象的记录集2.8库选择。
要建立连接过程，代码如下所示：
复制代码代码如下所示：
市民Sub ConOra（）
错误错误信息串：
昏暗的conndb ADODB连接等。
conndb =新的ADODB连接设置。
昏暗的connstr作为字符串
昏暗的dbrst作为数据集。
dbrst =新的数据记录集。
朦胧的SQLRst As String
昏暗的OraOpen布尔
oraopen = false
的OracleORAID = 'oracle数据库相关的配置
orausr =用户
orapwd =密码
connstr =商= msdaora。1；密码= orapwd _
用户；id=orausr _
数据；源=ORAID _
；持久安全性信息
conndb.cursorlocation = aduseserver
Open ConnStr conndb。
oraopen =真正的成功实施后，打开数据库
MsgBox连接到Oracle数据库成功！
dbrst.activeconnection = conndb
dbrst.cursorlocation = aduseserver
dbrst.locktype = adlockbatchoptimistic
对象=SELECT * FROM tsttab
DBRst。Open SQLRst，conndb，adopenstatic，adlockbatchoptimistic
dbrst.movefirst
退出功能
ErrMsg：
oraopen = false
MsgBox连接到Oracle数据库失败，请检查！
端功能
市民Sub ConOra（）
错误错误信息串：
昏暗的conndb ADODB连接等。
conndb =新的ADODB连接设置。
昏暗的connstr作为字符串
昏暗的dbrst作为数据集。
dbrst =新的数据记录集。
朦胧的SQLRst As String
昏暗的OraOpen布尔
oraopen = false
的OracleORAID = 'oracle数据库相关的配置
orausr =用户
orapwd =密码
connstr =商= msdaora。1；密码= orapwd _
用户；id=orausr _
数据；源=ORAID _
；持久安全性信息
conndb.cursorlocation = aduseserver
Open ConnStr conndb。
oraopen =真正的成功实施后，打开数据库
MsgBox连接到Oracle数据库成功！
dbrst.activeconnection = conndb
dbrst.cursorlocation = aduseserver
dbrst.locktype = adlockbatchoptimistic
对象=SELECT * FROM tsttab
DBRst。Open SQLRst，conndb，adopenstatic，adlockbatchoptimistic
dbrst.movefirst
退出功能
ErrMsg：
oraopen = false
MsgBox连接到Oracle数据库失败，请检查！
端功能
可以根据需要调整SQL语句以获取相关数据，并输出到Excel以完成数据处理。
上面的代码是Windows XP SP3 / 2003 SP2 + Office2003下测试。
