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

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

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

Войти
Новости: Часто задаваемые вопросы по LibreOffice и Apache OpenOffice.org
 
   Начало   Помощь Поиск Войти Регистрация    задать вопрос  
Страниц: « 1 2   Вниз
  Печать  
Автор Тема: Адаптация макросов VBA из Excel в OpenOffice  (Прочитано 8962 раз)
0 Пользователей и 1 Гость смотрят эту тему.
SHip
Участник
**
Offline Offline

Сообщений: 7


« Ответ #15: 5 Февраль 2020, 09:58 »

Теперь выдает:
Ошибка времени выполнения Basic.
Вызвано исключение
Type: com.sun.star.io.IOException
Message: SfxBaseModel::impl_store <file:///~/Inst/%D0%9F%D0%95%D0%A0%D0%95%D0%A7%D0%95%D0%9D%D0%AC%20%D0%A0%D0%90%D0%91%D0%9E%D0%A2_05.02.2020%2009.49.25.xls> failed: 0x507(Error Area:Io Class:Access Code:7).

Вы уж не судите строго. Просто для меня программирование дремучий лес.


* 123.png (125.85 Кб, 1920x1080 - просмотрено 6 раз.)
Записан
Bigor
Опытный пользователь
***
Offline Offline

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


« Ответ #16: 5 Февраль 2020, 10:53 »

Укажите в iName вместо "~/Inst/", то что вам нужно (по первоначальному примеру "C:\temp\")
Записан
SHip
Участник
**
Offline Offline

Сообщений: 7


« Ответ #17: 5 Февраль 2020, 11:08 »

Bigor большое спасибо. Всё заработало как надо.
Записан
economist
Форумчанин
***
Offline Offline

Сообщений: 1 126


« Ответ #18: 5 Февраль 2020, 13:14 »

SHip - обновите LibreOffice, у вас какая-то промежуточная версия. 

Работающий файл с макросом,  все ОК в Calc 5472 6332 6334 - вложен.

* VBA в Calc работает.ods (9.04 Кб - загружено 5 раз.)
Записан

Руб. за сто, что Питоньяк
Любит водку и коньяк!
Потому что мне, без оных, -
Не понять его никак...
SHip
Участник
**
Offline Offline

Сообщений: 7


« Ответ #19: 6 Февраль 2020, 10:52 »

economist спасибо за совет.
Версия действительно старая. Обновил.
Записан
SHip
Участник
**
Offline Offline

Сообщений: 7


« Ответ #20: Вчера в 15:27 »

Доброго дня.

Подскажите, как в название добавить еще и значение из ячейки ?

Сейчас: 16.02.2020 15.20.54 - Документ
Нужно:  16.02.2020 15.20.54 "значение из ячейки" - Документ

Sub Macro1()
    Dim iName$, iDate$
   dim args1(0) as new com.sun.star.beans.PropertyValue
   args1(0).Name = "FilterName"
    args1(0).Value = "MS Excel 97"
    iDate = Now 'узнаем текущую дату и время
    iDate = Replace(iDate, ":", ".") 'заменяем двоеточия на точку
    iName = ThisComponent.Title 'узнаём имя файла
    iName = Left(iName, Len(iName) - 4) 'убираем расширение файла
    iName = "d:\Документы\Акты\" & iDate & " - " & iName &  ".xls" 'полное имя файла
    ThisComponent.StoretoURL(ConverttoURL(iName),args1())
End Sub
Записан
Страниц: « 1 2   Вверх
  Печать  
 
Перейти в:  

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