ถ้าต้องการแก้ไข code ด้านล่างให้สามารถส่งเป็น excel file แทนการส่ง pdf file ต้องแก้ไขอย่างไรค่ะ

Dim strSql As String
Dim Rs As Recordset
dbConnect.dbConnect
strSql = "SELECT P_FAC.DEAL_FAC, P_FAC.DEAL_ID, P_FAC.Email " & _
FROM P_FAC INNER JOIN qry_contract_other ON (P_FAC.DEAL_ID = qry_contract_other.DEAL_ID) AND & _
(P_FAC.DEAL_FAC = qry_contract_other.DEAL_FAC) GROUP BY P_FAC.DEAL_FAC, P_FAC.DEAL_ID, P_FAC.Email & _
HAVING (((P_FAC.DEAL_FAC)=' & Me.Combo13 & "') AND ((P_FAC.Email)<>''));"

Set Rs = db.OpenRecordset(strSql)
If Rs.RecordCount > 0 Then
    Do While Not Rs.EOF
        If PrintReportToPDF("rpt_contact_other", "c:\qc_program\", "CDDPsum" & Rs("DEAL_FAC") & Rs("DEAL_ID") & ".pdf", "[DEAL_FAC]='" & Rs("DEAL_FAC") & "' and [DEAL_ID]=" & Rs("DEAL_ID") & "") = True Then
               If SendNotesMail(Rs("email"), "Book Part 1/2", "Book", , , "c:\qc_program\CDDPsum" & Rs("DEAL_FAC") & Rs("DEAL_ID") & ".pdf") = False Then
                    MsgBox "err - 1"
               Else
                    Kill "c:\qc_program\CDDPsum" & Rs("DEAL_FAC") & Rs("DEAL_ID") & ".pdf"
               End If
        Else
            MsgBox "err - 2"
        End If
    Rs.MoveNext
    Loop
Else
    MsgBox "error"
End If
    MsgBox "Finish"
    Rs.Close
    Set Rs = Nothing

ขอบคุณค่ะ