VBA编程之ODBC连接数据库
下⾯的例⼦展⽰了在VBA中使⽤ODBC连接数据库并获取数据，填充⼯作表内容。
使⽤前要先在sheet名字上点右键，选择查看代码，进⼊VBA编辑模式：
第⼀次⽤的时候要在VBA编辑窗⼝点击⼯具–引⽤，勾选：Microsoft ActiveX Data Objects x.x Library。
vba数据库编程
然后输⼊如下代码，即可对Excel的“名字”⼯作表按SQL Server中的test数据库中的user表数据进⾏填充。数据库可⼀⽤SQL Server，也可以⽤MySQL，但是使⽤之前，要先运⾏"odbcad32"回车，配置dsn。
Sub copyDatabaseToSheet()
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim sheet As Object
Set sheet = Sheets("名字")
'配置连接串
conn.ConnectionString ="DSN=test;DB=test;UID=sa;PWD=11;"
conn.Open
' 取出数据
rs.Open "select* from [user]", conn
' 设置表头
sheet.Range("A1:E1").Value =Array("ID", "⽤户名", "密码", "创建时间", "修改时间")
' 拷贝数据,
sheet.Range("A2").CopyFromRecordset rs
'关闭连接
rs.Close:Set rs =Nothing
conn.Close:Set conn =Nothing
End Sub

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。