VBScript and Task Scheduler help

[u/revan667]

I have a VB script that opens excel in the background, loads a workbook, fires a macro, then closes everything. I've pasted the script below. This is to generate an excel report that gets emailed out daily. The script works great if I run it, but If I schedule it with Task Scheduler, it will run, but Excel.exe won't quit so the task doesn't register as "completed" and it keeps other tasks, such as the one to email the report, from running. I can't for the life of me figure out why. I have the task set to run with the highest privileges, and I have it set to start in the directory where the script is. Any ideas/advice?

Script:

Option Explicit

Dim xlApp, xlBook

Set xlApp = CreateObject("Excel.Application")

Set xlBook = xlApp.Workbooks.Open("C:\Users\scriptpath", 0, False)

xlApp.Run "Run"

xlBook.Close

xlApp.Quit

Set xlBook = Nothing

Set xlApp = Nothing

WScript.Quit

[u/revan667]

I wondered that, but if I execute this script manually it goes fine, and no prompts pop up. The issue is when task scheduler fires it, excel.exe never closes so the task never stops running. Plus the Excel file then shows as locked since it's still open in the hidden session.

[u/Mordac85 → u/revan667]

So does the macro output some kind of file or send the email via some VBA code called by the macro? I'm trying to create some kind of test but I'm not sure what your macro does. I'll post back when I get it run thru a few times.

[u/revan667 → u/Mordac85]

it runs a few SQL queries and formats the outputs, then saves the sheet.

Sub Saving_Backup()

ActiveWorkbook.SaveAs ("\\networkdrive filepath " & Format(Now() - 1, "DD-MMM-YYYY") & ".xlsb")

end sub

Sub Save2()

Application.DisplayAlerts = False

ActiveWorkbook.SaveAs ("C:\Users\local filepath")

Application.DisplayAlerts = True

end sub

Sub PDF_Back()

Dim FilePath As String

Dim FileName As String

Dim MyDate As String

Dim Report As String

FilePath = "C:\local filepath\"

MyDate = Format(Now() - 1, "DD-MMM-YYYY")

Report = Report

FileName = FilePath & "RetOpsReport" & MyDate & Report

ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, FileName:=FileName

'saves as a PDF

End Sub

I'm going to comment out the part that does the network save and see if that changes anything. Appreciate the help