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

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

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

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

Сообщений: 8


« Ответ #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 - просмотрено 8 раз.)
Записан
Bigor
Опытный пользователь
***
Offline Offline

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


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

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

Сообщений: 8


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

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

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


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

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

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

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

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

Сообщений: 8


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

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

Сообщений: 8


« Ответ #20: 16 Февраль 2020, 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
Записан
Bigor
Опытный пользователь
***
Offline Offline

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


« Ответ #21: 17 Февраль 2020, 10:48 »

Берет текст из А1 первого листа
Код:
iName = "d:\Документы\Акты\" & iDate & " - " & iName & ThisComponent.Sheets(0).getCellByPosition(0,0).string & ".xls" 'полное имя файла
Записан
SHip
Участник
**
Offline Offline

Сообщений: 8


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

Bigor Спасибо.
Записан
Chaikin
Участник
**
Offline Offline

Сообщений: 16


« Ответ #23: 25 Февраль 2020, 07:34 »

Здравствуйте... Помогите адаптировать макрос "открытия файла", при нажатии на ячейку "А" на просмотр выводится файл, под линукс (Компонент: Calc
Версия продукта: 5.x
Сборка: Версия: 5.3.6.1 ID сборки: 5.3.6.1-10.el7
ОС: Linux 3.10 CentOS) в Windows работает без нареканий.

* OpinFil.ods (12.49 Кб - загружено 8 раз.)
Записан
Bigor
Опытный пользователь
***
Offline Offline

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


« Ответ #24: 25 Февраль 2020, 09:28 »

в Windows работает без нареканий.
Потому что линукс не знает где вам виндовую библиотеку взять Private Declare Function ShellExecute Lib "shell32"...

Я только не понимаю, зачем вам ShellExecute?

« Последнее редактирование: 25 Февраль 2020, 09:43 от Bigor » Записан
Chaikin
Участник
**
Offline Offline

Сообщений: 16


« Ответ #25: 25 Февраль 2020, 11:07 »

Уважаемый Bigor, в винде щелкнув ПКМ по ячейке ( допустим А4), открывается файл "с:/НоваяПапка/5831284.*", потому ShellExecute ... а в линуксе как реализовать Непонимающий Спасибо
 
Записан
Bigor
Опытный пользователь
***
Offline Offline

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


« Ответ #26: 25 Февраль 2020, 11:47 »

Открывается где? Точнее в чем? Блокноте? Или программе которая привязана к расширению файла? На каждом компьютере получается все по разному.
Записан
Chaikin
Участник
**
Offline Offline

Сообщений: 16


« Ответ #27: 25 Февраль 2020, 12:07 »

Уважаемый Bigor, под Win если *.jpg,png, открывается в просмотрщике изображений, *.pdf в адобе, *.txt в блокноте...получается "Или программе которая привязана к расширению файла" (с)
Записан
Bigor
Опытный пользователь
***
Offline Offline

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


« Ответ #28: 25 Февраль 2020, 12:10 »

Вы даже не подозреваете дыру какого размера вы создали в системе. Если к примеру вам в папку положить файлик Дата_из_ячейки.cmd с содержимым типа rd *.* или format c:
Записан
Bigor
Опытный пользователь
***
Offline Offline

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


« Ответ #29: 25 Февраль 2020, 20:14 »

Посмотрел linux, для открытия вышеперечисленных типов файлов достаточно приложения Okular. С учетом встроенной в SB функции shell у вас будет что-то типа:
Код:
Shell("okular " & FullPath)
еще вариант открывать найденные файлы в LO
Записан
Страниц: « 1 2 3 »   Вверх
  Печать  
 
Перейти в:  

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