Конвертация из xls в xlsx при помощи скрипта

Set XL = CreateObject("Excel.Application")
XL.Visible = False
 
XL.Workbooks.Open "d:\Name\misha\Price_nc.xls"
XL.ActiveWorkbook.SaveAs "d:\Name\misha\Price_nc.xlsx",6
XL.ActiveWorkbook.Saved = True
 
XL.ActiveWindow.Close(6)
XL.Quit

sub ConvertXLStoXLSX
Rem Макрос конвертирует файлы с известными расширениями *.xls в
rem файлы с известными расширениями *.xlsx (по одному за раз)
 
dim urlXls as string ' Переменная пути файла *.xls
dim urlXlsx as string ' Переменная пути файла *.xlsx
dim oFilePicker as object ' Модель диалога открытия файла
dim PropXls(2) as new com.sun.star.beans.PropertyValue
dim PropXlsx(1) as new com.sun.star.beans.PropertyValue
oFilePicker=CreateUnoService("com.sun.star.ui.dialogs.FilePicker")
oFilePicker.AppendFilter("Microsoft Excel 97/2000/XP (.xls)","*.xls")
if oFilePicker.execute() then
    urlXls=oFilePicker.Files(0)
endif
if urlXls="" then
    msgbox "Файл не выбран.",0,"Message."
    exit sub
elseif right(urlXls,3)="xls" then
    urlXlsx=(left(urlXls,len(urlXls)-3)&"xlsx")
else
    msgbox "Выбран неверный файл.",0,"Message."
    exit sub
endif
PropXls(0).name="FilterName"
PropXls(0).value="MS Excel 97" ' Microsoft Excel 97/2000/XP (.xls)
PropXls(1).name="Hidden"
PropXls(1).value=true
PropXls(2).name="ReadOnly"
PropXls(2).value=true
oShDoc=StarDesktop.LoadComponentFromUrl(urlXls,"_blank",0,PropXls())
PropXlsx(0).name="FilterName"
PropXlsx(0).value="Calc MS Excel 2007 XML" ' Microsoft Excel 2007 XML (.xlsx)
PropXlsx(1).name="Overwrite"
PropXlsx(1).value=true
oShDoc.storeAsUrl(urlXlsx,PropXlsx())
oShDoc.close(true)
msgbox "Конвертирование завершено.",0,"Complete."
end sub