用Excel VBA实现SQL查询

基础概念

Excel VBA（Visual Basic for Applications）是微软Office套件中的VBA编程语言，允许用户自定义宏和自动化任务。通过VBA，可以在Excel中执行SQL查询，从而与外部数据库进行交互，获取和处理数据。

类型

Excel VBA实现SQL查询主要涉及以下类型：

连接数据库：使用ADODB或DAO对象连接外部数据库（如SQL Server、MySQL等）。
执行SQL查询：编写SQL语句并通过VBA执行，获取查询结果。
处理查询结果：将查询结果导入Excel，进行进一步的数据处理和分析。

应用场景

数据导入：从外部数据库批量导入数据到Excel。
数据分析：利用SQL查询对数据进行筛选、排序、汇总等操作。
报表生成：根据查询结果自动生成Excel报表。

示例代码

以下是一个简单的示例，展示如何使用Excel VBA连接SQL Server数据库并执行查询：

Sub ExecuteSQLQuery()
    Dim conn As Object
    Dim rs As Object
    Dim sql As String
    Dim i As Integer
    
    ' 设置连接字符串
    Dim connectionString As String
    connectionString = "Provider=SQLOLEDB;Data Source=YourServerName;Initial Catalog=YourDatabaseName;Integrated Security=SSPI;"
    
    ' 创建ADODB连接对象
    Set conn = CreateObject("ADODB.Connection")
    conn.Open connectionString
    
    ' 编写SQL查询语句
    sql = "SELECT * FROM YourTableName"
    
    ' 创建ADODB记录集对象
    Set rs = CreateObject("ADODB.Recordset")
    rs.Open sql, conn
    
    ' 将查询结果导入Excel
    For i = 0 To rs.Fields.Count - 1
        Cells(1, i + 1) = rs.Fields(i).Name
    Next i
    
    Range("A2").CopyFromRecordset rs
    
    ' 关闭连接和记录集
    rs.Close
    conn.Close
End Sub