excel VBA 连数据库 oracle

Sub connect_数据库()

Dim strconnt As String

Set connt = New ADODB.Connection

Dim rs As Object

Set rs = New ADODB.Recordset

Dim sevip, Db, user, pwd As String

'设服务器地址、所连数据，及登录用户密码

sevip = "****"

Db = "****"

user = "****"

pwd = "****"

strconnt = "DRIVER={Microsoft ODBC for Oracle}Password=appsUser ID=appsData Source=demo" '

connt.ConnectionString = strconnt

connt.Open

End Sub

如果你不需要用户名和密码控制，那非常简单，excel可以直接实现。

你在oracle服务器上搭建一个web服务器，用asp写好相应调取数据的语句呈现成网页形式，然后再excel中选择数据--导入外部数据--新建web查询，如果excel是2007以上版本，选择数据--自网站。

这么做有很大的优点就是客户端不需要安装任何oracle客户端软件，但缺点是你需要一点点asp编程基础。

---