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

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

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

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

Сообщений: 28


« Ответ #34070: 27 Январь 2016, 12:37 »

При копировании в новую книгу эти формулы могут просто перестать работать, начать выдавать невнятные ошибки из-за потери связи с исходными данными.

В прайсе формул не будет, там только данные. Но на будущее предупреждение может быть актуальным)

Очень похожую задачу решал очень давно

Я, к сожалению, очень сильно не дружу с английским, но попробую разобраться)

Вот то, что у меня сейчас написано в макросе.
Код:
Sub Main
Dim oDesk as Object
Dim oDoc as Object
Dim oFile as String
Dim oUrl as String
Dim oUrlTemp as String
Dim I as String
Dim NPrice as String
oDesk = createUnoService ("com.sun.star.frame.Desktop")
'Измените имя файла на такое, которое Вы можете написать
I = InputBox ("Введите адресс расположения файла", "Открытие прайса")
NPrice = InputBox ("Введите имя файла", "Открытие прайса")
oFile = I + "\" + NPrice + ".xls"
oUrl = convertToUrl (oFile)
If fileExists (oFile) Then
oUrlTemp = oUrl
Else
MsgBox "Файл не существует"
Exit sub
End If
oDoc = oDesk.loadComponentFromURL (oUrlTemp, "_blank", 0, Array() )
rem _________________________________________________

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!