Error Object required: 'objExcel.ActiveWorkbook'

[jayasakthi]

Hi,
I'm getting the below error On converting Excel to PDF using vbscript

Object required: 'objExcel.ActiveWorkbook'
Code: 800A01A8

I have given the code below

Const xlTypePDF = 0
Const ppSaveAsPDF = 32

if Wscript.Arguments.Count > 0 Then

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objExcel = CreateObject("Excel.Application")

For i = 0 to wscript.arguments.count - 1
Set objFile = objFSO.GetFile(WScript.Arguments(i))

dirPath = objFSO.GetParentFolderName(objFile)
fileBaseName = objFSO.GetBaseName(objFile)

objExcel.ActiveWorkbook.SaveAs dirPath & "\" & fileBaseName & ".pdf", ppSaveAsPDF

objExcel.ActiveWorkbook.Close(False)
Next

objExcel.Quit
Else
msgbox("Select a file to convert")
End If

[westconn1]

when you create an excel object no work book is opened, you have to open an existing workbook or add a new workbook to the workbooks collection, within your code

for new workbook

set objbook = objexcel.workbooks.add
objbook.SaveAs dirPath & "\" & fileBaseName & ".pdf", ppSaveAsPDF

of course i can not understand why you would want to save an empty workbook, so i would assume you reaaly want to open a workbook first

[jayasakthi]

Thank you so much! The issue is resolved.
I opened the workbook using the below code.
Set objDoc = objExcel.Workbooks.Open("D:\temp\test.xlsx",,TRUE)