vba执行sql语句

在VBA中执行SQL语句的一种常见方法是使用ADO（ActiveX Data Objects）库。以下是一个示例代码，演示如何执行SQL语句：

Sub ExecuteSQL()
    Dim conn As Object
    Dim cmd As Object
    Dim strSQL As String
    
    ' 创建连接对象
    Set conn = CreateObject("ADODB.Connection")
    
    ' 设置连接字符串
    conn.ConnectionString = "Provider=SQLOLEDB;Data Source=服务器名称;Initial Catalog=数据库名称;User ID=用户名;Password=密码;"
    
    ' 打开连接
    conn.Open
    
    ' 创建命令对象
    Set cmd = CreateObject("ADODB.Command")
    
    ' 设置命令对象的属性
    cmd.ActiveConnection = conn
    cmd.CommandType = 1 ' adCmdText
    
    ' 设置要执行的SQL语句
    strSQL = "SELECT * FROM 表名"
    
    ' 设置命令对象的SQL文本
    cmd.CommandText = strSQL
    
    ' 执行SQL语句
    cmd.Execute
    
    ' 关闭连接
    conn.Close
    
    ' 释放对象
    Set cmd = Nothing
    Set conn = Nothing
    
End Sub

在上面的代码中，你需要根据实际情况修改连接字符串中的服务器名称、数据库名称、用户名和密码。然后根据需要修改SQL语句，以执行你所需的查询或其他操作。

请注意，这只是VBA中执行SQL语句的一种方法，还有其他方法可供选择，具体取决于你使用的数据库类型和提供的接口。