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

Автор Kosh, 12 мая 2016, 12:40

0 Пользователи и 1 гость просматривают эту тему.

Chaikin

Цитата: Bigor от 25 февраля 2020, 12:10даже не подозреваете дыру какого размера вы создали
чешет бороду... мои бабульки до такого не додумаются. Окуляр хорошо для меня локально...вариант с ЛО подскажите

Bigor

#31
Цитата: Chaikin от 26 февраля 2020, 06:00вариант с ЛО подскажите
самое простое через 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
...


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

Chaikin

 :beer:
Цитата: Bigor от 26 февраля 2020, 09:47самое простое через shell Улыбка
Уважаемый Вы были правы :beer:

Bigor

К сожалению, самый простой путь, не всегда самый правильный
Поддержать разработчиков LibreOffice можно можно тут, а наш форум вот тут