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

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

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

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

Сообщений: 8


« Ответ #53694: 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
Записан
Страниц: « 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!