excel vba从sql server查询数据

在Excel VBA中，你可以使用ADODB库来连接SQL Server并查询数据。以下是一个简单的示例： 1. 首先，确保你已经安装了Microsoft ActiveX Data Objects库。如果没有安装，可以通过以下步骤安装： - 打开“控制面板”>“程序和功能”>“启用或关闭Windows功能”。 - 在弹出的窗口中，找到“Microsoft ActiveX Data Objects x.x Library”，勾选它，然后点击“确定”。 2. 接下来，打开Excel VBA编辑器（快捷键Alt + F11），插入一个新的模块（点击菜单栏的“插入”>“模块”），然后在模块中输入以下代码： ```vba Sub ConnectToSQLServer() Dim conn As ADODB.Connection Dim rs As ADODB.Recordset Dim strSQL As String ' 创建一个新的连接对象 Set conn = New ADODB.Connection ' 设置连接字符串，这里需要根据你的实际情况修改 strSQL = "Provider=SQLOLEDB;Data Source=你的服务器名或IP地址；Initial Catalog=你的数据库名；User ID=你的用户名；Password=你的密码" ' 打开连接 conn.Open strSQL ' 创建一个新的记录集对象 Set rs = New ADODB.Recordset ' 执行SQL查询 strSQL = "SELECT * FROM 你的表名" rs.Open strSQL, conn ' 将查询结果复制到工作表中 If Not rs.EOF Then rs.MoveFirst Do While Not rs.EOF Cells(rs.Row, 1).Value = rs.Fields("列名1").Value Cells(rs.Row, 2).Value = rs.Fields("列名2").Value ' ...根据需要添加更多的列 rs.MoveNext Loop End If ' 关闭记录集和连接 rs.Close conn.Close ' 释放对象 Set rs = Nothing Set conn = Nothing End Sub ``` 3. 修改代码中的服务器名、数据库名、用户名、密码、表名和列名，使其符合你的实际情况。 4. 运行代码（按下F5键），查询结果将被复制到当前工作表中。 [2023-12-14 14:32:38 | AI写代码神器 | 539点数解答]