Я использую libreoffice (раньше OO)
/usr/lib/libreoffice/program/soffice.bin --invisible Macro:///"Standard.Module1.SaveAsXLS(/[путь к файлу]/$fn)"Он хорошо конвертирует в любой формат
на васике пишется простенький скрипт (SaveAsXLS или любой другой формат доступный в soffice
)
Примерный текст скрипта:
====================
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Module1" script:language="StarBasic">REM ***** BASIC *****
' Сохранить документ в формате Microsoft Word.
Sub SaveAsXLS( cFile )
' практически совпадает с SaveAsPDF
cURL = ConvertToURL( cFile )
oDoc = StarDesktop.loadComponentFromURL(cURL,"_blank",0,Array(MakePropertyValue( "Hidden", True ),))
cFile = Left( cFile, Len( cFile ) - 4 ) + ".xls"
cURL = ConvertToURL( cFile )
oDoc.storeToURL( cURL, Array(_
MakePropertyValue( "FilterName", "MS Excel 97" ),)
oDoc.close( True )
End Sub
Sub SaveAsODS( cFile )
cURL = ConvertToURL( cFile )
oDoc = StarDesktop.loadComponentFromURL(cURL,"_blank",0,Array(MakePropertyValue( "Hidden", True ),))
cFile = Left( cFile, Len( cFile ) - 4 ) + ".ods"
cURL = ConvertToURL( cFile )
oDoc.storeToURL( cURL, Array(_
MakePropertyValue( "FilterName", "" ),)
oDoc.close( True )
End Sub
Function MakePropertyValue(Optional cName As String, Optional uValue) As com.sun.star.beans.PropertyValue
Dim oPropertyValue As New com.sun.star.beans.PropertyValue
If Not IsMissing( cName ) Then
oPropertyValue.Name = cName
EndIf
If Not IsMissing( uValue ) Then
oPropertyValue.Value = uValue
EndIf
MakePropertyValue() = oPropertyValue
End Function
Sub Main
End Sub
Sub Macro1
End Sub
</script:module>
=============================
Конечно, можно намного короче, но я взял его где-то готовый, подправил и все уже несколько лет работает в автоматическом режиме..
Вариант для распечатки
