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

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

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

Войти
Новости: Доступно и просто о работе в офисных пакетах
 
   Начало   Помощь Поиск Войти Регистрация    задать вопрос  
Страниц: 1   Вниз
  Печать  
Автор Тема: Ошибка в работе макроса  (Прочитано 259 раз)
0 Пользователей и 1 Гость смотрят эту тему.
AbandonedLight
Новичок
*
Offline Offline

Сообщений: 2


« Стартовое сообщение: 26 Март 2020, 19:32 »

Добрый день, уважаемые форумчане!
Столкнулся с необходимостью перевода Excel на OpenOffice Calc.
Первая же проблема, которая возникла - ошибка при выполнении макросов
На первой же строчке возникает ошибка BASIC '423' FormulaLocal
Вот строка:
Sub InsertData(j As Integer)
Range("A" & j).FormulaLocal = "=если(" & list_data & "!E" & (i + 1 - iNum) & "="""";"""";" & list_data & "!E" & (i + 1 - iNum) & ")"

Можете, пожалуйста, подсказать, на что идёт ошибка?
Заранее благодарен!
Записан
Bigor
Опытный пользователь
***
Offline Offline

Пол: Мужской
Сообщений: 865


« Ответ #1: 26 Март 2020, 21:31 »

А что подразумевается под
необходимостью перевода Excel на OpenOffice Calc.
если OpenOffice, то скорее всего нужно переписывать все на StarBasic. Если LibreOffice, то может помочь
Код:
Option VbaSupport 1
, но с ним как то интересно все работает, при
Код:
Range("j" & j).FormulaLocal
ругается как вы написали, а если
Код:
ThisComponent.Sheets(0).getCellByPosition(2,J).FormulaLocal,
  то работает
 
Записан
rami
Гуру
*******
Offline Offline

Пол: Мужской
Сообщений: 2 885


MacBook Pro, LibreOffice и Apache OpenOffice


« Ответ #2: 26 Март 2020, 21:58 »

У вас где-нибудь определены переменные list_data, i и iNum?


Попробуйте заменить FormulaLocal на Formula
Код:
Range("A" & j).Formula = "=ЕСЛИ(" & list_data & "!E" & (i + 1 - iNum) & "="""";"""";" & list_data & "!E" & (i + 1 - iNum) & ")"
Записан

AbandonedLight
Новичок
*
Offline Offline

Сообщений: 2


« Ответ #3: 27 Март 2020, 12:55 »

Спасибо, помогло!
Заменил FormulaLocal на Formula.
Ещё на всякий случай попробую поставить LibreOffice и выполнить в нём.
Записан
Страниц: 1   Вверх
  Печать  
 
Перейти в:  

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