Как получить значение этой ячейки без формул в макросах LibreOffice - PullRequest
Новая
       38

Как получить значение этой ячейки без формул в макросах LibreOffice

0 голосов
/ 28 ноября 2018

Я работаю над макросом LibreOffice, я работаю над макросом копирования-вставки.Я мог бы написать свой макрос, но у меня возникла проблема.

Когда я писал его, он вставлял его формулы, но я не хочу копировать с формулами.

Я должен написать это с их координатами из-за моего цикла for.

Вот мой код: 

REM  *****  BASIC  *****

Sub CopyPaste

rA = CreateUnoStruct("com.sun.star.table.CellRangeAddress")
cA = CreateUnoStruct("com.sun.star.table.CellAddress")  

For iCount6 = 1 to 5


With rA
  .Sheet       = 0
  .StartColumn = 1
  .StartRow    = iCount6
  .EndColumn   = 1
  .EndRow      = iCount6

End With
With cA
  .Sheet       = 0
  .Column      = 3
  .Row         = iCount6
End With
ThisComponent.Sheets(0).CopyRange(cA, rA)

next iCount6

End Sub

Как я могу это сделать?Вы можете мне помочь?

1 Ответ

0 голосов
/ 20 января 2019

для копирования диапазона попробуйте этот код 

sub copyRange
    Dim arr()
    Doc = ThisComponent
    sh = Doc.currentcontroller.activesheet
    RangeToCopy = sh.getCellRangeByName("A3:D7")
    arr = RangeToCopy.getDataArray
    RangeTarget = sh.getCellRangeByName("A10:D14")
    RangeTarget.setDataArray(arr)
End Sub
...