Excel VBA从excel表中注销数据的SQL查询。

Sub ExecuteSQLQuery()
    Dim conn As Object
    Dim rs As Object
    Dim sql As String
    Dim filePath As String
    
    ' 设置Excel文件路径
    filePath = ThisWorkbook.FullName
    
    ' 创建ADODB连接对象
    Set conn = CreateObject("ADODB.Connection")
    
    ' 设置连接字符串
    conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & filePath & ";Extended Properties=""Excel 12.0;HDR=YES;"";"
    
    ' 定义SQL查询
    sql = "SELECT * FROM [Sheet1$] WHERE Column1 = 'Value1'"
    
    ' 创建ADODB记录集对象
    Set rs = CreateObject("ADODB.Recordset")
    
    ' 执行SQL查询
    rs.Open sql, conn
    
    ' 将查询结果输出到新的工作表
    ThisWorkbook.Sheets.Add(After:=Sheets(Sheets.Count)).Name = "QueryResult"
    With Sheets("QueryResult").Range("A1")
        .CopyFromRecordset rs
    End With
    
    ' 关闭记录集和连接
    rs.Close
    conn.Close
    
    Set rs = Nothing
    Set conn = Nothing
End Sub