MS Access导出子窗体VBA

Sub ExportSubformData()
    Dim rst As DAO.Recordset
    Dim excelApp As Object
    Dim excelWorkbook As Object
    Dim excelWorksheet As Object
    Dim row As Long, col As Long

    ' 打开子窗体的记录集
    Set rst = Me.subformName.Form.RecordsetClone
    rst.MoveFirst
    
    ' 创建Excel应用程序对象
    Set excelApp = CreateObject("Excel.Application")
    
    ' 新建工作簿并获取工作表对象
    Set excelWorkbook = excelApp.Workbooks.Add
    Set excelWorksheet = excelWorkbook.Worksheets(1)
    
    ' 将字段名称写入第一行
    For col = 1 To rst.Fields.Count
        excelWorksheet.Cells(1, col).Value = rst.Fields(col - 1).Name
    Next col
    
    ' 将数据写入Excel
    row = 2
    Do Until rst.EOF
        For col = 1 To rst.Fields.Count
            excelWorksheet.Cells(row, col).Value = rst.Fields(col - 1).Value
        Next col
        row = row + 1
        rst.MoveNext
    Loop
    
    ' 保存并关闭Excel工作簿
    excelWorkbook.SaveAs "导出数据.xlsx"
    excelWorkbook.Close
    
    ' 释放对象资源
    Set rst = Nothing
    Set excelWorksheet = Nothing
    Set excelWorkbook = Nothing
    excelApp.Quit
    Set excelApp = Nothing
    
    MsgBox "导出成功！"
End Sub