Форум поддержки пользователей. LibreOffice, Apache OpenOffice, OpenOffice.org

Форум поддержки пользователей. LibreOffice, Apache OpenOffice, OpenOffice.org

16 Апрель 2021, 19:34 *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

Войти
Новости: Часто задаваемые вопросы по LibreOffice и Apache OpenOffice.org
 
   Начало   Помощь Поиск Войти Регистрация    задать вопрос  
Страниц: 1   Вниз
  Печать  
Автор Тема: Ошибка при вызове GlobalScope.BasicLibraries.LoadLibrary("Tools")  (Прочитано 480 раз)
0 Пользователей и 1 Гость смотрят эту тему.
Ammaretto
Участник
**
Offline Offline

Сообщений: 12


« Ответ #57446: 11 Февраль 2021, 04:34 »

Здравствуйте!
Прошу прощения, нечаянно стерла букву в строчке oFilePicker.Title . Поправила, ругалась на OpenDocument
Открыла файл с помощью Loadcomponentfromurl-все заработало.
Но всё равно интересно, почему перестало работать...

Option VBASupport 1
Option Explicit
Option Compatible
sub openfiles
Dim PFolderName As String
Dim oFilePicker, oCtl, oSheet as object
Dim FileName, i, j, oDeskTop

'   GlobalScope.BasicLibraries.LoadLibrary("Tools")

   oFilePicker = createUnoService("com.sun.star.ui.dialogs.FilePicker")
   oFilePicker.Title = "Выберите файл"

   If oFilePicker.execute = com.sun.star.ui.dialogs.ExecutableDialogResults.OK Then
      FileName = oFilePicker.Files(0)

      PFolderName = ConvertFromURL(FileName)
   End If   
   
        'определяем имя файла и открывае книгу
   
    Dim pBook As String
    Dim wb As object
    Dim ot As Boolean

    ot = False
   
    i = InStrRev (PFolderName,"\")
    pBook = Right(PFolderName, Len(PFolderName) - i)
    Dim mArgs(0) as New com.sun.star.beans.PropertyValue
 
    mArgs(0).Name = "MacroExecutionMode"
    mArgs(0).Value = 0

      oDeskTop=CreateUnoService("com.sun.star.frame.Desktop")
'   wb = OpenDocument(ConvertToURL(PFolderName), mArgs() )
   wb =  oDeskTop.Loadcomponentfromurl(ConvertToURL(PFolderName),"_blank",0,mArgs())

    ot = True
 
end sub
Записан
Страниц: 1   Вверх
  Печать  
 
Перейти в:  

Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2006-2009, Simple Machines Valid XHTML 1.0! Valid CSS!