paulsmith

Помогите пожалуйста.

Имею следующее..

В Oo 3.3 под Windows XP_Pro SP3 создаем библиотеку myLib
- в ней создаем модуль myModule
- в нем пишем функцию myFunc

Function myFunc(param as string)
myFunc = param
end function

в листе Calc в любой ячейке набираем =myFunc("Привет Мир") и вместо "Привет Мир" получаем #ЗНАЧЕНИЕ!
Если переместить модуль myModule в библиотеку Standard, то все работает - пишет в ячейке "Привет Мир"

Проверяем загрузку библиотеки...

В модуль myModule добавляем еще одну функцию

Sub Main
oLibs = GlobalScope.BasicLibraries
LibName="myLib"
If oLibs.HasByName (LibName) and (Not oLibs.isLibraryLoaded(LibName)) Then
oLibs.LoadLibrary(LibName)
end if
End Sub

Ставим ее на событие (запуск приложения) и на всякий случай (открытие документа)

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

Условие if не выполняется, из чего можно сделать вывод, что библиотека myLib действительно есть и она уже загружена. Однако результат все тот-же #ЗНАЧЕНИЕ!

Принудительно oLibs.LoadLibrary(LibName) тоже не помогает

Как добиться вызова функции myFunc из библиотеки myLib?

Добавлено через 19 часов 23 минуты
Ура. Решение найдено тут http://forumooo.ru/index.php/topic,2349.new.html