scheduling to export xls file

sub CopyToXL2
set XLApp = CreateObject("Excel.Application")
XLApp.Visible = FALSE
set XLDoc = XLApp.Workbooks.Add
XLDoc.Sheets(1).name = "Supervisor Report"
set XLSheet = XLDoc.Worksheets(1)
set MyTable = ActiveDocument.GetSheetObject("TB01")
set XLSheet = XLDoc.Worksheets(1)
MyTable.CopyTableToClipboard true
XLSheet.Paste XLSheet.Range("A1")
XLDoc.SaveAs "C:\Users\igal\Documents\BU\MyRep.xlsx"


XLApp.Visible = False
XLApp.Quit
Set XLApp = Nothing
Set Table = Nothing
end sub

sub CopyToXL2

set XLApp = CreateObject("Excel.Application")
XLApp.Visible = FALSE
set XLDoc = XLApp.Workbooks.Add
XLDoc.Sheets(1).name = "Supervisor Report"
set XLSheet = XLDoc.Worksheets(1)
set MyTable = ActiveDocument.GetSheetObject("TB01")
set XLSheet = XLDoc.Worksheets(1)
MyTable.CopyTableToClipboard true
XLSheet.Paste XLSheet.Range("A1")
XLDoc.SaveAs "C:\Users\igal\Documents\BU\MyRep.xlsx"

XLApp.Visible = False
XLApp.Quit
Set XLApp = Nothing
Set Table = Nothing

end sub

Sub SendGMail()

' Object creation
Set objMsg = CreateObject("CDO.Message")
Set msgConf = CreateObject("CDO.Configuration")

' Server Configuration

msgConf.Fields.Item(" schemas.microsoft.com/cdo/configuration/sendusing ") = 2
msgConf.Fields.Item(" schemas.microsoft.com/cdo/configuration/smtpserver ") = "smtp.gmail.com"
msgConf.Fields.Item(" schemas.microsoft.com/cdo/configuration/smtpserverport ") = 465
msgConf.Fields.Item(" schemas.microsoft.com/cdo/configuration/smtpauthenticate ") = 1
msgConf.Fields.Item(" schemas.microsoft.com/cdo/configuration/sendusername ") = "From@gmail.com"
msgConf.Fields.Item(" schemas.microsoft.com/cdo/configuration/sendpassword ") = "mailPasseord"
msgConf.Fields.Item(" schemas.microsoft.com/cdo/configuration/smtpusessl ") = 1

msgConf.Fields.Update

' Email
objMsg.To = "SendTo@gmail.com"
objMsg.From = "From@gmail.com"
objMsg.Subject = "Subject You Want"
objMsg.HTMLBody = "Body Of The Mail"
objMsg.Sender = "YourName"

' If you have attachment
Path ="C:\Users\igal\Documents\BU\"
FileName="MyRep.xlsx"
objMsg.AddAttachment Path&FileName


Set objMsg.Configuration = msgConf

' Send
objMsg.Send
' Clear
Set objMsg = nothing
Set msgConf = nothing
End Sub

msgConf.Fields.Item(" schemas.microsoft.com/cdo/configuration/sendusername ") = "From@gmail.com"
msgConf.Fields.Item(" schemas.microsoft.com/cdo/configuration/sendpassword ") = "mailPasseord"

' Email
objMsg.To = "SendTo@gmail.com"
objMsg.From = "From@gmail.com"
objMsg.Subject = "Subject You Want"
objMsg.HTMLBody = "Body Of The Mail"
objMsg.Sender = "YourName"

' If you have attachment
Path ="C:\Users\igal\Documents\BU\"
FileName="MyRep.xlsx"
objMsg.AddAttachment Path&FileName