vba中sql 查询 excel

VBA中可以使用SQL语句来查询Excel中的数据。

首先需要在VBA中添加对Microsoft ActiveX Data Objects库的引用，以便使用ADODB对象。

下面是一个简单的示例代码，用于从Excel中查询数据：

Sub QueryExcel()

    '定义连接和记录集
    Dim cn As ADODB.Connection
    Dim rs As ADODB.Recordset
    
    '连接字符串，指定Excel文件路径和版本信息
    Dim connString As String
    connString = "Provider=Microsoft.ACE.OLEDB.12.0;" _
                & "Data Source=C:\Users\UserName\Documents\ExcelFile.xlsx;" _
                & "Extended Properties=""Excel 12.0 Xml;HDR=YES"";"
    
    '创建连接对象
    Set cn = New ADODB.Connection
    cn.Open connString
    
    '创建记录集对象
    Set rs = New ADODB.Recordset
    
    '执行SQL语句，查询数据
    rs.Open "SELECT * FROM [Sheet1$]", cn
    
    '遍历记录集，输出数据到Debug窗口
    Do While Not rs.EOF
        Debug.Print rs.Fields("Column1").Value & ", " & rs.Fields("Column2").Value
        rs.MoveNext
    Loop
    
    '关闭记录集和连接
    rs.Close
    cn.Close
    
End Sub

在上面的示例中，连接字符串中指定了Excel文件的路径和版本信息，可以根据实际情况进行修改。

执行SQL查询的语句是"SELECT * FROM [Sheet1$]"，其中Sheet1是Excel表格的名称，$符号表示查询整个表格，*表示查询所有列。

遍历记录集的过程中，可以通过rs.Fields("列名").Value来获取每一列的值。