Excel VBS Script Problem

[JoeyGaspard]

I am trying to write this script that will open excel, run a macro, then save the specified worksheet as a csv, the process works up to the point of saving the csv. I appreciate any help or insight! Below is the script and also a screenshot of the error I am getting:

Option Explicit

Dim xlApp, xlBook

Set xlApp = CreateObject("Excel.Application")
xlApp.visible=true
Set xlBook = xlApp.Workbooks.Open("c:\adp\UploadV1.xlsm", 0, True)
xlApp.Run "ProcessTime"

Set objWorksheet = objWorkbook.Worksheets("Upload")
objWorksheet.SaveAs "c:\ADP\PunchReport.csv", xlCSV

objExcel.Quit

xlBook.Close
xlApp.Quit

Set xlBook = Nothing
Set xlApp = Nothing

 

[JoeyGaspard]

My apologies, I posted the wrong script, this is the one, and the error is the same:


Set objExcel = CreateObject("Excel.Application")
objexcel.application.Run "'C:\ADP\Uploadv1.xlsm'!Module1.ProcessTime"
objExcel.DisplayAlerts = False

Set objWorksheet = objWorkbook.Worksheets("Upload")
objWorksheet.SaveAs "c:\ADP\PunchReport.csv", xlCSV

objExcel.Application.Quit
Set objExcel = Nothing

 

[JoeyGaspard]

solved.

 

[Fluff]

Good to hear you got the solution.

If you would like to post the solution then it is perfectly fine to mark your post as the solution to help future readers. Otherwise, please do not mark a post that doesn't contain a solution.

 

[JoeyGaspard]

Good to hear you got the solution.

If you would like to post the solution then it is perfectly fine to mark your post as the solution to help future readers. Otherwise, please do not mark a post that doesn't contain a solution.

Well, hate to say it, but I didnt solve it. I researched more and was able to create a standalone script that would save the file, but when I add it to the script to open and run the macro, it wont save the file anymore, not sure what i have done wrong, VBS is very new to me, here is what I have in case you may see the issue? I realize that I am starting and stopping excel twice, but this is just where I am trying to trouble shoot it.

Set objExcel = CreateObject("Excel.Application")
objexcel.application.Run "'C:\ADP\Uploadv1.xlsm'!Module1.ProcessTime"
objExcel.DisplayAlerts = False
objExcel.Application.Quit
Set objExcel = Nothing
Const xlCSV = 6
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open("C:\ADP\UploadV1.xlsm")
objExcel.DisplayAlerts = FALSE
objExcel.Visible = TRUE
objExcel.Quit

 

[JoeyGaspard]

Well, hate to say it, but I didnt solve it. I researched more and was able to create a standalone script that would save the file, but when I add it to the script to open and run the macro, it wont save the file anymore, not sure what i have done wrong, VBS is very new to me, here is what I have in case you may see the issue? I realize that I am starting and stopping excel twice, but this is just where I am trying to trouble shoot it.

Set objExcel = CreateObject("Excel.Application")
objexcel.application.Run "'C:\ADP\Uploadv1.xlsm'!Module1.ProcessTime"
objExcel.DisplayAlerts = False
objExcel.Application.Quit
Set objExcel = Nothing
Const xlCSV = 6
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open("C:\ADP\UploadV1.xlsm")
objExcel.DisplayAlerts = FALSE
objExcel.Visible = TRUE
objExcel.Quit

Sorry, here is the code I am using, I left a line out:
Set objExcel = CreateObject("Excel.Application")
objexcel.application.Run "'C:\ADP\Uploadv1.xlsm'!Module1.ProcessTime"
objExcel.DisplayAlerts = False
objExcel.Application.Quit
Set objExcel = Nothing
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open("C:\ADP\UploadV1.xlsm")
objWorksheet.SaveAs "c:\ADP\PunchReport.csv", xlCSV
objExcel.DisplayAlerts = FALSE
objExcel.Visible = TRUE
objExcel.Quit

And here is the error: