Object required in vbscript error

[Prabin_Chand]

Hello everyone !
I am using vbscript for automation but my error is weird. I have already created Excel object but script is throwing error as : Object required
What may be the reason for this ?

Picture is attached below :

This is my code for vbs :

setInputPath = "C:\Users\prabin.chand\Desktop\Laxmi__Bank_Process\Data"
'setInputPath = Wscript.Arguments(0)

'YESTERDAY DATE -------------------------------------------------------------------------
yesterday = DateAdd(“d”, -1, Date())
sp = split(yesterday,“/”)

d = sp(1)
m = sp(0)
y = sp(2)
if Len(d)= 1 Then
d = “0” & d
End if

m = MonthName(m, True)

todayDateAsFolder = d & “-” & m & “-” & y

FileName = setInputPath & "Output" & todayDateAsFolder & “.xlsx”
pathCBS = setInputPath & "Input\Makuri" & todayDateAsFolder & “.xlsx”
pathIB = setInputPath & "Input\iBank" & todayDateAsFolder & “.xlsx”
pathMM = setInputPath & "Input\MobileMoney" & todayDateAsFolder & “.xlsx”
Set xl = CreateObject(“Excel.Application”)

xl.Visible = True
Set wb = xl.Workbooks.Open(FileName)
Set ws = wb.WorkSheets(“CBS”)
Set wsiBank = wb.WorkSheets(“iBank”)
Set wsMobM = wb.WorkSheets(“MM”)

Set zz = xl.Workbooks.Open(pathCBS)
Set wsCBS = zz.Worksheets(1)

Set wbIB = xl.Workbooks.open(pathIB)
Set wsIB = wbIB.worksheets(1)

Set wbMM = xl.Workbooks.open(pathMM)
Set wsMM = wbMM.worksheets(1)

'Count CBS totalRows and totalColumn-------------------------------------------------------------
totalRowsCBS = wsCBS.UsedRange.Rows.Count
totalColCBS = wsCBS.usedRange.Columns.Count
wsCBS.Range(“A1:” & Chr(totalColCBS + 64) & totalRowsCBS).Copy
ws.Range(“A1”).PasteSpecial

'Count IBANK toalRows and totalColumn ----------------------------------------------------------
totalRowsIB = wsIB.UsedRange.Rows.Count
totalColIB = wsIB.usedRange.Columns.Count
wsIB.Range(“A1:” & Chr(totalColIB + 64) & totalRowsIB).Copy
wsiBank.Range(“A1”).PasteSpecial

'Count MM toalRows and totalColumn --------------------------------------------------------------
totalRowsMM = wsMM.UsedRange.Rows.Count
totalColMM = wsMM.usedRange.Columns.Count
wsMM.Range(“A1:” & Chr(totalColMM + 64) & totalRowsMM).Copy
wsMobM.Range(“A1”).PasteSpecial

wb.Save
wb.Close
xl.Quit

'msgbox “Completed 06”

[pavan_kumar5 (pavan kumar)]

Hi @Prabin_Chand,

There is an mistake what i observed as "setInputPath = “C:\Users\prabin.chand\Desktop\Laxmi__Bank_Process\Data” make it to "set InputPath = “C:\Users\prabin.chand\Desktop\Laxmi__Bank_Process\Data” one space is missing which i have highlited in attached snap.

Regards,
Pavan Kumar