Excel如何直接连接并查询外部数据库？

在办公场景中,Excel不仅是数据处理工具，还能作为轻量级数据库客户端使用，通过以下三种专业方法，用户可直接在Excel中连接主流数据库（如MySQL、SQL Server、Oracle），实现数据查询与实时同步。

Sub ConnectDB()
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
' MySQL连接示例
conn.ConnectionString = "DRIVER={MySQL ODBC 8.0 Driver};" & _
"SERVER=127.0.0.1;" & _
"DATABASE=testdb;" & _
"UID=root;PWD=123456;"
conn.Open
rs.Open "SELECT * FROM orders WHERE amount>1000", conn
Sheet1.Range("A1").CopyFromRecordset rs
rs.Close
conn.Close
End Sub

注意：需先启用「开发工具」并引用Microsoft ActiveX Data Objects库

引用说明
本文操作指南依据Microsoft Office 365最新版本编写，ODBC配置方法参考自微软官方文档《配置 ODBC 数据源》，VBA代码遵循ADO 2.8对象模型标准，数据库连接参数设置建议遵循各DBMS厂商的安全规范。