LINUX.ORG.RU
Форум — Desktop  

Сохранить значения в таблице убрав формулы LibreOffice

 


1

1

Добрый день. Может знает кто макрос, который уберет все формулы на в документе на листах, и оставит вместо их числовые значения? В Excel это делают вот так: 

Sub Saveasvalue()
'Updateby Extendoffice 20161025
    Dim wsh As Worksheet
    For Each wsh In ThisWorkbook.Worksheets
        wsh.Cells.Copy
        wsh.Cells.PasteSpecial xlPasteValues
    Next
    Application.CutCopyMode = False
End Sub
В LibreOffice ясное дело не работает, как переписать понятия не имею(( Крайне не хочу устанавливать MS Office. Может кто знает макрос или как его написать?

← Нет звука через 3.5mm разъемы
Заикание при проигрывнии музыки или видео →

1. Сохраняешь как csv. 2. Profit.

anonymous
()

Название книги: OpenOffice.org: Автоматизация работы., Macros Explained/Объяснение Макросов

grem ★★★★★
()

Если разово, то через copy-paste.

Если таки нужен макрос, то на forumooo.ru (или на подобный), там скорее помогут. Код сильно не меняется.

greenman ★★★★★
()

А цель-то какая? Есть вариант со скрытием формул + защиты ячеек. Тогда содержимое ячеек будет только в виде значений, но не формул, однако, при этом нельзя менять эти значения.

Yorween ★
()
Ответ на: комментарий от Yorween

Есть вариант со скрытием формул + защиты ячеек.

Если есть вариант со скрытием, то есть и вариант открытия этого скрытия. И коварные враги узнают все ваши формулы!

Einstok_Fair ★★☆
()
Ответ на: комментарий от Yorween

А цель-то какая? Есть вариант со скрытием формул + защиты ячеек. Тогда содержимое ячеек будет только в виде значений, но не формул, однако, при этом нельзя менять эти значения.

Цель - выгрузить данные в БД сайта, это нужно делать переодически, копипаст и блокировка не в тему, самое оптимальное это макрос.

TheLinuxUser ★★
() автор топика
Последнее исправление: TheLinuxUser (всего исправлений: 1)
Ответ на: комментарий от TheLinuxUser

Я спросил аналог макрос, а не книгу по макросам.

А кто тогда первый пост написал:

Может кто знает макрос или как его написать?

Deleted
()

Попробуй

https://www.business-spreadsheets.com/vba2oo.asp

Sub Saveasvalue()
'Updateby Extendoffice 20161025
    Dim wsh As Worksheet
    For Each wsh In ThisWorkbook.ThisComponent.Sheets.getByName()
        wsh.Cells.Copy
        wsh.Cells.PasteSpecial xlPasteValues
    Next
    Application.CutCopyMode = False
End Sub

Либо добавить перед твоим макросом две строчки

Option VBASupport 1
Option Compatible

https://forumooo.ru/index.php?topic=6673.0

greenman ★★★★★
()
Последнее исправление: greenman (всего исправлений: 1)
Ответ на: комментарий от greenman

Пишет «Неизвестный тип данных Worksheet, а когда 2 строчки добавляю перед моим/твоим, то компилирует, но формулы не убираются.

TheLinuxUser ★★
() автор топика
Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.
← Нет звука через 3.5mm разъемы
Desktop
Заикание при проигрывнии музыки или видео →