使用For循环在Access中选择特定字段并将其粘贴到excel中

Sub ExportToExcel()
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim xlApp As Object
    Dim xlWorkbook As Object
    Dim xlWorksheet As Object
    Dim i As Integer
    
    ' 打开Excel应用程序
    Set xlApp = CreateObject("Excel.Application")
    xlApp.Visible = True
    
    ' 创建一个新的工作簿
    Set xlWorkbook = xlApp.Workbooks.Add
    
    ' 创建一个新的工作表
    Set xlWorksheet = xlWorkbook.Worksheets.Add
    
    ' 获取Access数据库对象
    Set db = CurrentDb
    
    ' 执行查询，选择特定字段的数据
    Set rs = db.OpenRecordset("SELECT 特定字段 FROM 表名")
    
    ' 将字段名写入Excel第一行
    For i = 1 To rs.Fields.Count
        xlWorksheet.Cells(1, i).Value = rs.Fields(i - 1).Name
    Next i
    
    ' 将数据写入Excel
    i = 2 ' 从第二行开始写入数据
    Do Until rs.EOF
        xlWorksheet.Cells(i, 1).Value = rs.Fields("特定字段").Value
        rs.MoveNext
        i = i + 1
    Loop
    
    ' 保存并关闭Excel工作簿
    xlWorkbook.SaveAs "文件路径"
    xlWorkbook.Close
    
    ' 释放对象
    Set xlWorksheet = Nothing
    Set xlWorkbook = Nothing
    Set xlApp = Nothing
    rs.Close
    Set rs = Nothing
    Set db = Nothing
End Sub