Excel Como consertar uma macro que recebe este erro?

[Ygor Ferreira Campos de Sá]

Eu criei uma macro no librecalc, mas quando coloco para executar, uma mensagem de erro é executada como na imagem, eu gostaria de saber por quê isso está acontecendo e como corrigir, posso dar mais informações sobre esta macro se for necessário.

[Midori]

Se quer chamar a outra função é como na primeira linha com Call. Por que está tentando rodar a função execute assim?

[Ygor Ferreira Campos de Sá]

@Midori minha ideia é criar uma função em baixo, chamada execute e, dentro dela, quero chamar a função Main1 e executá-la. Mas este erro está acontecendo, não é assim que eu chamo uma função dentro da outra, usando Call?

[Midori]

35 minutos atrás, Ygor Ferreira Campos de Sá disse:

não é assim que eu chamo uma função dentro da outra, usando Call?

É como você fez em Call Main1. A linha onde acontece o erro deve ser removida.

[Ygor Ferreira Campos de Sá]

@Midori entendi, o problema está em Main1.execute() , mas, o quê há de errado neste comando?

[Midori]

O erro é tentar tratar Main1 como um objeto com o membro execute. O ponto é usado para acessar propriedades e métodos. Se fosse uma função com o retorno de algum objeto poderia fazer isso, p.ex,

 

Function Main1() As Object
	Dim Doc	As Object
	
	Set Doc = ThisComponent
	Set Main1 = Doc.Sheets(0)	
End Function

Sub Executar()
	Msgbox Main1.GetCellRangeByName("A1").String
End Sub

 

Aí Main1 retorna Sheet, por isso é possível fazer o acesso a seus membros.