VBA从SQL记录集中复制整列

Sub CopyColumnFromSQLRecordset()
    Dim conn As Object
    Dim rs As Object
    Dim strSQL As String
    Dim i As Long
    Dim columnData As Variant
    
    ' 创建数据库连接
    Set conn = CreateObject("ADODB.Connection")
    conn.Open "Provider=SQLOLEDB;Data Source=数据库服务器地址;Initial Catalog=数据库名称;User ID=用户名;Password=密码;"
    
    ' 执行SQL查询语句
    strSQL = "SELECT 列名 FROM 表名"
    Set rs = conn.Execute(strSQL)
    
    ' 将整列数据存储到数组中
    columnData = rs.GetRows
    
    ' 关闭数据库连接
    rs.Close
    conn.Close
    
    ' 将数组中的数据复制到另一个位置
    For i = LBound(columnData, 2) To UBound(columnData, 2)
        ' 在这里编写将数据复制到的目标位置的代码
        ' 例如，将数据复制到Excel工作表的某一列
        ThisWorkbook.Sheets("Sheet1").Cells(i, 1).Value = columnData(0, i)
    Next i
End Sub