一、主要流程
1.进入VBA编辑器，引用ADO（Microsoft ActiveX Date Objects 6.1 Library）
2.声明对象类型
3.配置Excel数据源连接串（‘Provider：ace版本’，'connectionstring：地址路径'等）
4.连接成功
二、图例示范
第一步：进入VBA编辑器.png
第二步：引用ADO.png
第三步：配置数据源连接串.png
第四步：连接成功.png
三、VBA源码
Sub 连接数据库()
Dim con As New ADODB.Connection '声明对象
'------------------------------连接数据库
With con
.Provider = "microsoft.ace.oledb.12.0"
.ConnectionString = ThisWorkbook.Path & "\测试数据库.accdb"
.Open
End With
MsgBox "数据库连接成功"
End Sub
四、注意事项
1.本次工程在office365环境下测试，wps未知；
2.注意需要先引用ADO才能继续进行后续操作
网友评论