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

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

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

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

Сообщений: 12


« Ответ #57436: 10 Февраль 2021, 06:33 »

Здравствуйте, друзья!
На моем ноутбуке перестали работать макросы по открытию файла:
Ругается на строку GlobalScope.BasicLibraries.LoadLibrary("Tools") , если закомментировать , то на OpenDocument(ConvertToURL(PFolderName), mArgs() )

Просила проверить коллег-макросы работают.
Может кто сталкивался с такой проблемой. Прилагаю скриншот ошибки и файл с макросом


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

   GlobalScope.BasicLibraries.LoadLibrary("Tools")
   oFilePicker = createUnoService("com.sun.star.ui.dialogs.FilePicker")
   oFlePicker.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
    wb = OpenDocument(ConvertToURL(PFolderName), mArgs() )
    ot = True
 
end sub

* test.ods (9.98 Кб - загружено 4 раз.)

* тест.png (52.02 Кб, 1107x445 - просмотрено 8 раз.)
Записан
Страниц: 1   Вверх
  Печать  
 
Перейти в:  

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