Como atribuir um valor a uma célula pelo Libreoffice Basic

[rpereira78]

Boa Noite

Em uma macro no VBA no Excel para atribuir um valor a uma célula bastava usar

cells(1,1) = valor
a célula A1 da planilha receberia o valor

como fazer o mesmo no libreoffice basic?

[PcPop-Paulo]

muito bom agora que achei esse forum ou aprender mais sobre o uno. vb do calc, tava dificel

[Conras]

Olá, @rpereira78

Para referenciar célua

.getCellByPosition(Col, Lin)

Diferente do Excel, onde a célula A1 inicia na coordenada Col=1 e Lin = 1, o Libreoffice inicia suas coordenadas em 0,0

Para definir a WorkSheet

Dim oSheet as Object

oSheet = ThisComponent.Sheets.getByname("Nome_da_sua_Planilha")

Código completo inserindo um texto na célula A1

Sub Teste

Dim oSheet as Object
Dim Texto as String

Texto = "Conteúdo"
oSheet = ThisComponent.Sheets.getByName("NomePlanilha")

oSheet.getCellByPosition(0, 0).string = Texto

oSheet.getCellRangeByName("A1").string = Texto

End Sub

Para entender melhor, o VBA para libre office precisa definir as variáveis de objetos (planilhas, documentos, imagens etc), algo que no excel não há a necessidade na maioria dos casos.