Access - EXPORTAR CONSULTA A EXCEL

Private Sub email_Click()

Dim RS As DAO.Recordset

If Nz(Me.FMA, 0) = 0 Or Len(Me.FMA) = 0 Then

MsgBox "NO HA INGRESADO EL NUMERO DEL FMA"

Else

Set RS = CurrentDb.OpenRecordset("SELECT * FROM DIA WHERE N°FMA= " & Me.FMA & ";")

RS.MoveFirst

RS.MoveLast

If RS.RecordCount > 1 Then

    MsgBox "EXISTEN " & RS.RecordCount & " CREADOS CON EL MISMO NUMERO, REVISAR"

Else

Dim correos As String

If Len(Me.d1) <> 0 Then

    correos = Me.d1

End If

If Len(Me.d2) <> 0 Then

    correos = correos & ";" & Me.d2

End If

If Len(Me.d3) <> 0 Then

    correos = correos & ";" & Me.d3

End If

If Len(Me.d4) <> 0 Then

    correos = correos & ";" & Me.d4

End If

If Len(Me.d5) <> 0 Then

    correos = correos & ";" & Me.d5

End If

If Len(Me.d6) <> 0 Then

    correos = correos & ";" & Me.d6

End If

DoCmd.SendObject acQuery, "informe", "MicrosoftExcelBiff5(*.xls)", correos, , , "Resumen FMA " & Me.FMA, , False, ""

End If

DoCmd.Close

End If

End Sub

Private Sub CrearCodigo()

Set objForm = ThisWorkbook.VBProject.VBComponents("este es el nombre de tu Projecto VBA")

With objForm.CodeModule

        .InsertLines Line + 1, "Private Sub Cerrar1_Click()"

        .InsertLines Line + 2, "Msgbox "Cerrando automáticamente""

        .InsertLines Line + 3, "End Sub"

    End With

End Sub