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

在Excel VBA中，你可以使用ADO对象模型从SQL Server查询数据。以下是一个基本的示例，展示了如何连接到SQL Server数据库，执行查询，并处理结果。 ```vba Sub QuerySQLServer() Dim conn As Object Dim rs As Object Dim strSQL As String Dim FirstName As String Dim LastName As String Dim Age As Integer Dim Email As String Dim Address As String ' 创建连接对象 Set conn = CreateObject("ADODB.Connection") ' 连接到SQL Server数据库 conn.Open "Provider=SQLOLEDB;Data Source=ServerName;" & _ "Initial Catalog=DatabaseName;User ID=UserName;Password=Password;" ' 创建记录集对象 Set rs = CreateObject("ADODB.Recordset") ' 构造SQL查询语句 strSQL = "SELECT FirstName, LastName, Age, Email, Address FROM TableName" ' 执行查询 rs.Open strSQL, conn ' 遍历记录集，处理数据 Do While Not rs.EOF FirstName = rs("FirstName") LastName = rs("LastName") Age = rs("Age") Email = rs("Email") Address = rs("Address") ' 在这里你可以使用这些数据做任何事情，比如输出到Excel表格中 Debug.Print FirstName, LastName, Age, Email, Address rs.MoveNext Loop ' 清理资源 rs.Close Set rs = Nothing conn.Close Set conn = Nothing End Sub ``` 你需要将`ServerName`、`DatabaseName`、`UserName`、`Password`、`TableName`以及查询字段名替换为你实际的SQL Server数据库的名称和查询信息。这个示例假设你的SQL Server数据库已经配置了OLE DB提供者，这通常是默认的。如果你遇到连接问题，可能需要检查你的SQL Server配置。 ######[AI写代码神器 | 461点数解答 | 2023-12-14 14:56:20]