Sub ConnectDB() Dim conn As New ADODB.Connection Dim rs As New ADODB.Recordset conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\data.accdb;" Set rs = conn.Execute("SELECT * FROM table1") Do While Not rs.EOF Cells(i, 1).Value = rs.Fields(0).Value rs.MoveNext Loop rs.Close conn.Close End Sub 这个代码超级简单，几行就连上Access数据库，拉数据到Excel，速度飞快！

网友分享1

我用VBA连SQL Server，关键是连接字符串要对："Provider=SQLOLEDB;Data Source=服务器名;Initial Catalog=数据库名;User ID=用户名;Password=密码;" 然后用conn.Execute("SQL语句")，批量导入导出数据，工作效率提升3倍！以前手动复制粘贴，现在一键搞定。

网友分享2

高效技巧：用晚期绑定避免引用库。Dim conn As Object: Set conn = CreateObject("ADODB.Connection") 不用早绑，兼容性好。处理大数据时，加conn.CursorLocation = 3，服务器端游标，速度up up！

网友分享3

处理Oracle数据库，连接串："Provider=OraOLEDB.Oracle;Data Source=实例名;User Id=用户;Password=密码;" 用rs.Open "SELECT * FROM表", conn, 1, 3 游标类型3正向只读，内存占用低，导入10万行数据只要几秒。

网友分享4

实用一招：错误处理加进去。On Error GoTo ErrHandler conn.Open strConn ErrHandler: If Err.Number <> 0 Then MsgBox Err.Description 这样连不上也不会崩溃，超级稳！每天处理报表必备。

网友分享5

批量更新数据库：用SQL语句直接conn.Execute "UPDATE 表 SET 字段=值 WHERE 条件" 比一行行循环快太多，处理销售数据时，从Excel读条件，一键全更新，老板直呼内行！

网友分享6

连MySQL：Provider=MSDASQL;Driver={MySQL ODBC 驱动};Server=localhost;Database=dbname;Uid=user;Pwd=pwd; VBA里直接拉数据做图表，PPT演示用，同事都惊了，效率max！

FAQ
Q: VBA连数据库需要安装什么？
A: 装MDAC或对应OLEDB驱动，Excel自带ADODB基本够用。
Q: 怎么处理中文乱码？
A: 连接串加Charset=GBK或UTF8，根据数据库设置。
Q: 大数据慢怎么办？
A: 用adCmdText和服务器游标，rs.Open sql, conn, adOpenStatic, adLockReadOnly。
Q: 安全吗，用密码明文？
A: 生产环境用集成安全或加密连接串，测试时无所谓。