使用可信连接连接到 SQL（无 UID/PWD）
在 Excel VBA 中，我们可以使用可信连接来连接到 SQL 数据库，并进行数据操作。可信连接是一种无需提供用户名和密码的连接方式，它通过使用 Windows 身份验证来验证用户身份。要使用可信连接连接到 SQL 数据库，我们首先需要确保 SQL Server 已配置为允许可信连接。在 SQL Server Management Studio 中，我们可以通过以下步骤来进行配置：1. 打开 SQL Server Management Studio，并连接到 SQL Server 实例。2. 在对象资源管理器中，右键单击服务器实例，然后选择“属性”。3. 在“安全性”选项卡上，找到“身份验证”部分，并选择“SQL Server 和 Windows 身份验证模式”。4. 单击“确定”保存更改。配置完成后，我们可以开始在 Excel VBA 中使用可信连接来连接到 SQL 数据库。下面是一个案例代码，演示了如何使用可信连接查询 SQL 数据库中的数据，并将结果导入到 Excel 工作表中：vbaSub ConnectToSQL() Dim conn As Object Dim rs As Object Dim strSQL As String Dim i As Integer ' 创建连接对象 Set conn = CreateObject("ADODB.Connection") ' 设置连接字符串 conn.ConnectionString = "Provider=SQLOLEDB;Data Source=服务器名称;Initial Catalog=数据库名称;Integrated Security=SSPI;" ' 打开数据库连接 conn.Open ' 创建记录集对象 Set rs = CreateObject("ADODB.Recordset") ' 设置 SQL 查询语句 strSQL = "SELECT * FROM 表名;" ' 执行查询 rs.Open strSQL, conn ' 将查询结果导入到 Excel 工作表中 For i = 1 To rs.Fields.Count Cells(1, i).Value = rs.Fields(i - 1).Name Next i Range("A2").CopyFromRecordset rs ' 关闭记录集和连接对象 rs.Close conn.Close ' 释放对象变量 Set rs = Nothing Set conn = NothingEnd Sub在上面的案例代码中，我们首先创建了一个连接对象 `conn`，然后设置了连接字符串，其中指定了服务器名称、数据库名称以及使用可信连接的集成安全性选项。通过调用 `Open` 方法，我们打开了数据库连接。接下来，我们创建了一个记录集对象 `rs`，并设置了 SQL 查询语句 `strSQL`。通过调用 `Open` 方法，我们执行了查询，并将查询结果导入到 Excel 工作表中。最后，我们关闭了记录集和连接对象，并释放了对象变量。使用可信连接连接到 SQL 数据库是一种方便且安全的方式，它允许我们在 Excel VBA 中进行 SQL 数据操作而无需提供用户名和密码。通过上述案例代码，我们可以轻松地连接到 SQL 数据库，并将查询结果导入到 Excel 工作表中，方便我们进行数据分析和处理。