用Excel VBA实现SQL查询

Sub ExecuteSQLQuery()
    Dim conn As Object
    Dim rs As Object
    Dim sql As String
    Dim i As Integer
    
    ' 设置连接字符串
    Dim connectionString As String
    connectionString = "Provider=SQLOLEDB;Data Source=YourServerName;Initial Catalog=YourDatabaseName;Integrated Security=SSPI;"
    
    ' 创建ADODB连接对象
    Set conn = CreateObject("ADODB.Connection")
    conn.Open connectionString
    
    ' 编写SQL查询语句
    sql = "SELECT * FROM YourTableName"
    
    ' 创建ADODB记录集对象
    Set rs = CreateObject("ADODB.Recordset")
    rs.Open sql, conn
    
    ' 将查询结果导入Excel
    For i = 0 To rs.Fields.Count - 1
        Cells(1, i + 1) = rs.Fields(i).Name
    Next i
    
    Range("A2").CopyFromRecordset rs
    
    ' 关闭连接和记录集
    rs.Close
    conn.Close
End Sub