sql语句填充excel单元格

要使用 SQL 语句填充 Excel 单元格，你可以使用 VBA 中的 ADO（ActiveX Data Objects）连接到数据库，执行 SQL 查询，并将结果加载到 Excel 单元格中。以下是一个示例：

Sub FillExcelCellsWithSQLData()
    Dim conn As Object
    Dim rs As Object
    Dim strConn As String
    Dim strSQL As String
    Dim rng As Range
    Dim i As Integer
    
    ' 创建连接对象
    Set conn = CreateObject("ODB.Connection")
    
    ' 设置连接字符串，这里假设你要连接的数据库是一个 Access 文件，路径为 "C:\path\to\your\database.accdb"
    strConn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\path\to\your\database.accdb;"
    
    ' 打开连接
    conn.Open strConn
    
    ' 构建查询语句
    strSQL = "SELECT Name, Age FROM TableName WHERE Age > 30"
    
    ' 创建记录集对象
    Set rs = CreateObject("ADODB.Recordset")
    
    ' 执行查询操作
    rs.Open strSQL, conn
    
    ' 指定要填充数据的单元格范围，这里假设要填充到 Sheet1 的 A2:Bx 区域
    Set rng = ThisWorkbook.Worksheets("Sheet1").Range("A2:B" & rs.RecordCount + 1)
    
    ' 将查询结果加载到 Excel 单元格中
    i = 1
    Do Until rs.EOF
        rng.Cells(i, 1).Value = rs.Fields("Name").Value
        rng.Cells(i, 2).Value = rs.Fields("Age").Value
        
        rs.MoveNext
        i = i + 1
    Loop
    
    ' 关闭记录集和连接对象
    rs.Close
    conn.Close
    
    ' 释放对象
    Set rs = Nothing
    Set conn = Nothing
End Sub

在上面的示例中，我们使用 ADO 创建了一个连接对象 `conn`，并设置连接字符串 `strConn` 来连接到数据库。然后，我们构建了一个查询语句 `strSQL`，并使用记录集对象 `rs` 执行查询操作。接下来，我们指定要填充数据的单元格范围 `rng`，并使用循环将查询结果逐行填充到 Excel 单元格中。

请注意，你需要根据实际情况修改连接字符串中的数据库路径、查询语句和要填充数据的单元格范围。另外，你还需要在 VBA 编辑器的工具->引用中添加对 "Microsoft ActiveX Data Objects x.x Library" 的引用（x.x 表示版本号）。