excel 写sql vba

在Excel中使用VBA编写SQL语句可以通过ADO对象库来实现。下面是一个简单的示例：

Sub ExecuteSQL()
    Dim conn As Object
    Dim rs As Object
    Dim strSQL As String
    Dim strConn As String
    
    ' 创建一个Connection对象
    Set conn = CreateObject("ADODB.Connection")
    
    ' 设置数据库连接字符串
    strConn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\path\to\your\database.accdb;"
    
    ' 打开数据库连接
    conn.Open strConn
    
    ' 创建一个Recordset对象
    Set rs = CreateObject("ADODB.Recordset")
    
    ' 定义SQL语句
    strSQL = "SELECT * FROM TableName"
    
    ' 执行SQL语句
    rs.Open strSQL, conn
    
    ' 将查询结果输出到单元格
    Sheet1.Range("A1").CopyFromRecordset rs
    
    ' 关闭Recordset对象和数据库连接
    rs.Close
    conn.Close
    
    ' 释放对象
    Set rs = Nothing
    Set conn = Nothing
End Sub

上述代码演示了如何执行一个简单的SELECT语句，并将查询结果输出到Sheet1的A1单元格开始的区域。你需要根据实际情况修改数据库连接字符串和SQL语句