Благодарю за ссылки. java боюсь не осилю
Немного ввел в заблуждение сообщество. Речь идет о
экспорте в Excel текстовой инфы с форматирование и пр.
ODS еще не все понимают.
В общем действительно необходимо найти замену для suse без COM или другим способом
пример следующего кода
filename = "C:\order_"+ Cstr(orderID) + ".xls"
Set xlApp = CreateObject("Excel.Application.11")
xlApp.Visible = False
Set xlWB = xlApp.Workbooks.Add 'создаем новую книгу
Set xlSheet = xlWB.Sheets(1) ' выбираем первую "страницу"
xlsheet.Activate
xlsheet.Name = "Order"
ARangeValue = xlsheet.Range("A1").Activate
...
''тут заполнение строк
Set itemdoc = order.GetFirstDocument
Do While Not itemdoc Is Nothing
i = i+1 '' счетчик строк excel
Call agentLog.LogAction( " qty = " + Cstr(itemdoc.Qty(0)))
With xlsheet
.Range("A" & Trim(Str(i + 1))).Value = Cstr(i-n+1) ' номер по порядку
.Range("B" & Trim(Str(i + 1))).Value = itemdoc.Title(0)
.Range("C" & Trim(Str(i + 1))).Value = itemdoc.CatalogNumber(0)
.Range("D" & Trim(Str(i + 1))).Value = itemdoc.Qty(0)
.Range("E" & Trim(Str(i + 1))).Value = itemdoc.Price(0)
.Range("F" & Trim(Str(i + 1))).Value = itemdoc.qty(0) * itemdoc.Price(0)
.Range("G" & Trim(Str(i + 1))).Value = itemdoc.Packing(0)
'' .Range("H" & Trim(Str(i + 1))).Value = itemdoc.PageName(0)
'' .Range("I" & Trim(Str(i + 1))).Value = itemdoc.UserName(0)
End With
Set itemdoc = order.GetNextDocument(itemdoc)
Loop
...
xlapp.activeworkbook.saveas filename
xlapp.activeworkbook.close
xlapp.quit
Set xlSheet = Nothing
Set xlWB = Nothing
Set xlapp = Nothing
Понятно, что на Linux такое работать не будет. отсюда и ищу замену. Однако выходной фай должен быть .xls