VBA连接SQL SEVER通用壳子（vba中sql查找的数据不显示单元格颜色）

Sub ConnectToSQLServer()

' 定义变量

Dim conn As Object ' ADODB 连接对象

Dim rs As Object ' ADODB 记录集对象

Dim serverName As String ' SQL Server 实例名称

Dim dbName As String ' 数据库名称

Dim sqlQuery As String ' SQL 查询语句

Dim outputSheet As Worksheet ' 目标工作表

Dim rowCounter As Long ' 字段计数器

' 设置连接参数

serverName = "localhost" ' SQL Server 实例名（本地默认）

dbName = "AdventureWorks" ' 数据库名称

sqlQuery = "SELECT TOP 100 * FROM Sales.SalesOrderHeader" ' 查询前100行数据

' 创建对象实例

Set conn = CreateObject("ADODB.Connection") ' 创建数据库连接

Set rs = CreateObject("ADODB.Recordset") ' 创建记录集（用于存储查询结果）

Set outputSheet = ThisWorkbook.Sheets("Sheet1") ' 指定数据输出的工作表

' 构建连接字符串（使用 Windows 集成身份验证）

conn.ConnectionString = _

"Provider=SQLOLEDB;" & _ ' 指定 OLEDB 驱动

"Data Source=" & serverName & ";" & _ ' 服务器地址

"Initial Catalog=" & dbName & ";" & _ ' 数据库名称

"Integrated Security=SSPI;" ' 使用 Windows 账户验证

' 打开数据库连接

conn.Open

' 执行 SQL 查询

rs.Open sqlQuery, conn ' 将查询结果存入记录集

' 清空目标工作表

outputSheet.Cells.Clear

' 写入字段名称（表头）

For rowCounter = 0 To rs.Fields.Count - 1

outputSheet.Cells(1, rowCounter + 1).Value = rs.Fields(rowCounter).Name

Next rowCounter

' 将记录集数据写入工作表（从 A2 开始）

outputSheet.Range("A2").CopyFromRecordset rs

' 关闭连接与释放资源

rs.Close

conn.Close

Set rs = Nothing ' 释放记录集对象

Set conn = Nothing ' 释放连接对象

MsgBox "数据导入完成！"

End Sub

说明. 关于连接字符串（Connection String）

conn.ConnectionString = "Provider=SQLOLEDB;Data Source=localhost;Initial Catalog=AdventureWorks;Integrated Security=SSPI;"

```

- **`Provider=SQLOLEDB`**：

指定使用 SQL Server 的 OLEDB 驱动程序（需确保系统已安装）。

- **`Data Source`**：

SQL Server 实例名，格式为 `服务器名\实例名`（默认实例可简写为服务器名）。

- **`Initial Catalog`**：

目标数据库名称。

- **`Integrated Security=SSPI`**：

使用 Windows 账户身份验证（无需输入用户名密码）。

- 若用 SQL 账号验证，替换为：

`User ID=用户名;Password=密码;`