[5分]将指定记录导出到EXCEL

Private Sub 导出_Click()
    Dim xlApp  As New Excel.Application
    Dim xlBook As Excel.Workbook
    Dim i      As Long
    Dim j      As Long

    xlApp.Application.Visible = True
    xlApp.DisplayAlerts = False
    Set xlBook = xlApp.Workbooks.Open(CurrentProject.Path & "\模板.xls")
    xlBook.Application.Sheets(1).Select
    j = 2
    For i = 1 To Me.子窗体.Form.RecordsetClone.RecordCount
        Me.子窗体.Form.SelTop = i
        If Me.子窗体.Controls("是否打印").Value = True Then
            j = j + 1
            xlBook.Application.Cells(j, 2).Value = Me.子窗体.Controls("姓名").Value
            xlBook.Application.Cells(j, 3).Value = Me.子窗体.Controls("性别").Value
            xlBook.Application.Cells(j, 4).Value = Me.子窗体.Controls("职务").Value
        End If
    Next

    xlBook.SaveAs Filename:=CurrentProject.Path & "\" & "打印员工" & "信息.xls"
   
    Set xlApp = Nothing
    Set xlBook = Nothing

End Sub