VBScipt convert Xls pages to PDF

Use to convert all sheets in Xls to PDF separately

:arrow_down:

Dim objExcel
Dim objWorkBook
fileName="C:\RobustaWorkspace\out\result.xls"
'Instantiate Excel
Set objExcel = CreateObject("Excel.Application")
'open the xls file
Set objWorkBook=objExcel.Workbooks.Open(fileName)
For Each ws In objWorkBook.Worksheets
ws.ExportAsFixedFormatxlTypePDF,"C:\RobustaWorkspace\out"& ws.Name & ".pdf"
Next
'close workbook
objWorkBook.Close 'False
'quit excel
'objExcel.Quit

'clean up
'Set objWorkBook = Nothing
'Set objExcel = Nothing