'
'Конвертация из XLSX в XLS
'
Public Function convertXLSX(fullNameXLSX As String) As String
Dim inXLSX As String
Dim outXLS As String

Dim tStr As String

On Error GoTo errExit

'проверка на необходимость конвертации

inXLSX = Trim(fullNameXLSX)
tStr = Right(inXLSX, 3)

If tStr = "XLS" Then
    convertXLSX = inXLSX
    GoTo normExit
End If

outXLS = Left(inXLSX, Len(inXLSX) - 1)

Set objXLApp = CreateObject("Excel.Application")
If objXLApp Is Nothing Then
    Err.Raise 999, , "ошибка создания объекта Excel"
End If
objXLApp.DisplayAlerts = False
objXLApp.Workbooks.Open (inXLSX)

objXLApp.ActiveWorkbook.SaveAs fileName:=outXLS, FileFormat:=xlExcel8

objXLApp.ActiveWorkbook.Close SaveChanges:=False
objXLApp.DisplayAlerts = True

convertXLSX = outXLS
normExit:
    Set objXLApp = Nothing
    Exit Function

errExit:

    convertXLSX = ""

        GoTo normExit

End Function