使用vba脚本从oracle数据库中取数

作为一个数据分析师，每天的取数是必不可少的工作。那么如何快速的，自动的从数据库中取数呢？那当然是使用脚本自动取数，以下将使用VBA加sql的方法取数。

脚本的思路很简单，先连接上数据库，再使用sql查询，然后粘贴数据到excel表中。

Sub 取数脚本()
Dim Conn As Object
Dim Rs As Object
Dim sql, uids, pwds
Dim i
Dim j
Dim Gr
Dim ws As Worksheet

ThisWorkbook.Sheets(1).Range(“A:q”).Clear
清除表1中A列到Q列的所有单元格内容
uids = 用户名
pwds = 密码
Set Conn = CreateObject(“ADODB.Connection”)
创建一个数据库对象

Set Rs = CreateObject(“ADODB.Recordset”)
创建一个存放数据的数据集对象

Conn.Open (“DSN=网络别名 ;UID=” & uids & “;PWD=” & pwds)
连接数据库，将前面的用户名和密码以及网络别名以字符串的形式拼接

Conn.CommandTimeout = 0
sql = 所写的sql语句
Set Rs = Conn.Execute(sql)
执行sql语句，并将数据引用给前面创建的数据集对象

Set ws = ThisWorkbook.Sheets(1)
选取一个可用的表

ws.Cells(2, 1).CopyFromRecordset Rs
以A2格开始，粘贴上所查询的数据

For i = 0 To Rs.Fields.Count - 1
ws.Cells(1, i + 1) = Rs(i).Name
Next i
从A1开始，将数据的列名粘贴上

Set Rs = Nothing
Conn.Close
Set Conn = Nothing

End Sub