Estou seguindo a explicação do “PDF: http://www.openoffice.org/documentation/HOW_TO/various_topics/VbaStarBasicXref.pdf - página 23” e adicionando os elementos aos poucos para compreender a execução.
Quando chego no código abaixo tenho a seguinte mensagem de erro:
“Erro de Execução BASIC: 35 - MoveCursorToEnd”
Alguém pode me explicar se é bug no LibreOffice ou falha no meu código?
*LibreOffice Versão: 6.2.5.2 (x64)
Dim oSheet as Object, oCell as Object
'''get some useful objects
oSheet = ThisComponent.CurrentController.ActiveSheet
'''go to upper slef corner of range
oCell = oSheet.getCellRangeByName("H3")
ThisComponent.CurrentController.select(oCell)
'Find the last cell in the current row
'this takes cursor to cell E3
oCell = MoveCursorToEnd(oCell,"xlToRight")
ThisComponent.CurrentController.select(oCell)