Excel VBA - 如何从 SQL 查询填充数组

使用Excel VBA可以很方便地从SQL查询中填充数组。这对于需要将数据库中的数据导入到Excel表格中进行处理和分析的用户来说非常有用。在本文中，我们将介绍如何使用Excel VBA从SQL查询中填充数组，并提供一个案例代码来帮助读者更好地理解。

vba
Sub FillArrayFromSQLQuery()
    Dim conn As Object
    Dim rs As Object
    Dim arrData() As Variant
    Dim strSQL As String
    Dim i As Long
    
    ' 创建连接对象
    Set conn = CreateObject("ADODB.Connection")
    
    ' 设置连接字符串
    conn.ConnectionString = "Provider=SQLOLEDB;Data Source=数据库服务器;Initial Catalog=数据库名称;User ID=用户名;Password=密码;"
    
    ' 打开连接
    conn.Open
    
    ' 设置SQL查询语句
    strSQL = "SELECT * FROM 表名;"
    
    ' 创建记录集对象
    Set rs = CreateObject("ADODB.Recordset")
    
    ' 执行SQL查询
    rs.Open strSQL, conn
    
    ' 将查询结果填充到数组中
    arrData = rs.GetRows
    
    ' 关闭记录集
    rs.Close
    
    ' 关闭连接
    conn.Close
    
    ' 输出数组数据到Excel工作表
    For i = 0 To UBound(arrData, 2)
        Sheet1.Cells(1, i + 1).Value = arrData(0, i)
    Next i
End Sub