使用Excel VBA轻松从SQL Server查询数据：附详细示例代码

你可以使用Excel V从SQL Server查询数据以下是一个示例代码： ```ba Sub QueryDataFromSQLServer() ' 设置数据库连接字符串 connStr As String connStr = "Provider=SQLOLEDB;Data Source=服务器名称;Initial Catalog=数据库名称;User ID=用户名;Password=密码;" ' 创建数据库连接对象 Dim conn As Object Set conn = CreateObject("ADODB.Connection") ' 打开数据库连接 conn.Open connStr ' 执行SQL查询语句 Dim sql As String sql = "SELECT * FROM 表名" ' 创建记录集对象 rs As Object Set rs = CreateObject("ADODB.Recordset") ' 执行查询并将结果存储在记录集中 rs.Open sql, conn ' 输出查询结果到Excel Dim rowNum As Long rowNum = 1 Do While Not rs.EOF For i = 1 To rs.Fields.Count Cells(rowNum, i).Value = rs.Fields(i - 1).Value Next i rowNum = rowNum + 1 rs.MoveNext Loop ' 关闭记录集和连接对象 rs.Close conn.Close ' 放对象 Set rs = Nothing Set conn = Nothing End Sub ``` 你需要将上述代码中的"服务器名称"、"数据库名称"、"用户名"和"密码"替换为你实际的SQL Server连接信息，并将"表名"替换为你要查询的表名。这段代码将查询的结果输出到当前活动工作表的单元格中。 ######[AI写代码神器 | 1022点数解答 | 2023-12-14 14:23:41]