Не работает VB script XLS в XML

'VBScript
' https://msdn.microsoft.com/en-us/library/bb241279(v=office.12).aspx
 
Function Main(inputs, outputFolder, params)
 
set xlapp = CreateObject("Excel.Application")
set fso = CreateObject("scripting.filesystemobject")
xlapp.DisplayAlerts = FALSE
xlapp.Visible = False
 
For Each inFile In inputs
    inFile = Wscript.Arguments(0)
    FName = Left(inFile,InStrRev(inFile,".")-1)
    set mybook = xlapp.Workbooks.Open(inFile)
    mybook.SaveAs FName & ".xml", 46
Next
 
xlapp.Quit
Main = "OK"
End Function
 
Dim inputs()
Dim outputFolder
Dim params()
 
Main inputs, outputFolder, params

Function Main(inputs, outputFolder, params) ' входящие параметры приложения
set xlapp = CreateObject("Excel.Application")
xlapp.DisplayAlerts = False
xlapp.Visible = False
set fso = CreateObject("scripting.filesystemobject")
 
For Each input In inputs
FName = fso.GetBaseName(input)
set mybook = xlapp.Workbooks.Open(input,,TRUE)
 
xlapp.VBE.ActiveVBProject.VBComponents.Import "\\Server-esko\ae_base\bas\SPUSK_XLS2XML_CAD.bas" 'внедряем VBA в xls файл
xlapp.Application.Run "SPUSK_XLS2XML_CAD" ' запускаем VBA скрипт
 
xlapp.DisplayAlerts = False
xlapp.Application.Quit
 Next
 xlapp.Quit
 Main = "OK"
End function
 
Dim inputs()
Dim outputFolder
Dim params()
 
Main inputs, outputFolder, params