Адаптация макросов VBA из Excel в OpenOffice

[Chaikin]

даже не подозреваете дыру какого размера вы создали

чешет бороду... мои бабульки до такого не додумаются. Окуляр хорошо для меня локально...вариант с ЛО подскажите

[bigor]

вариант с ЛО подскажите

самое простое через shell
Но можно и без него, как то так:

Код Выделить Развернуть

Dim Param(0) as new com.sun.star.beans.PropertyValue
Dim Doc As Object



...
If Dir(FullPath) <> "" Then
dfg = Dir(FullPath)
FullPath = iFolder & dfg
Param(0).Name = "FilterName"

Select Case right(FullPath,3)
case "xls"
Param(0).Value = "MS Excel 97"
Case "txt"
Param(0).Value = "Text"
Case "pdf"
Param(0).Value = "Draw_pdf_Import"
end select
oDoc =  StarDesktop.loadComponentFromUrl(ConverttoURL(fullpath),"_blank",0,param())
Else
...


+ еще учесть регистрозависимость линукс и что делать с теми типами файлов расширения которых не прописаны

[Chaikin]

 

самое простое через shell Улыбка

Уважаемый Вы были правы

[bigor]

К сожалению, самый простой путь, не всегда самый правильный