excel vba sql

可以使用 VBA 编写 SQL 查询语句来操作 Excel 中的数据。以下是一个示例：

首先，请确保已经安装了 Microsoft ActiveX 数据对象库（ADO）。

然后，在 VBA 中添加以下代码：

Sub SQLQuery()
    Dim conn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    Dim strSQL As String
 
    '连接到 Excel 工作簿
    conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
                            "Data Source=" & ThisWorkbook.FullName & ";" & _
                            "Extended Properties=""Excel 12.0;HDR=YES"";"
 
    '打开连接
    conn.Open
 
    '编写 SQL 查询语句
    strSQL = "SELECT * FROM [Sheet1$]"
 
    '执行查询
    rs.Open strSQL, conn
 
    '将查询结果输出到单元格
    Range("A2").CopyFromRecordset rs
 
    '关闭记录集和连接
    rs.Close
    conn.Close
End Sub

在此示例中，我们连接到当前打开的工作簿，并从名为“Sheet1”的工作表中检索所有数据。查询结果将从单元格 A2 开始输出。

请注意，此代码仅演示了如何执行简单的查询。如果需要执行更复杂的查询，例如联接多个表或使用参数化查询，请参考 ADO 文档和 SQL 语法。