Исходное сообщение
"рендер html в jpg  pdf  ps  doc  xls" Отправлено dgv, 21-Мрт-12 13:45
Я использую 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> ============================= Конечно, можно намного короче, но я взял его где-то готовый, подправил и все уже несколько лет работает в автоматическом режиме..

Ваше сообщение
Имя*:
EMail:	Для отправки новых сообщений в текущей нити на email укажите знак ! перед адресом, например, !user@host.ru (!! - не показывать email). Более тонкая настройка отправки ответов производится в профиле зарегистрированного участника форума.
Заголовок*:
Сообщение*:	> Я использую 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> > ============================= > Конечно, можно намного короче, но я взял его где-то готовый, подправил и > все уже несколько лет работает в автоматическом режиме..
	Введите код, изображенный на картинке: