Pergunte aqui
0

Macro para fechar documento calc sem erro

perguntadas 2020-08-15 15:20:07 +0100

imagem do gravatar de Júnio Vieira

Pessoal para fechar a planilha via macro sempre utilizei o comando: ThisComponent.Close(True) false também funciona ou o comando ThisComponent.CurrentController.Frame.Close(True) porém tanto um quanto o outro fecha, mas apresenta erro e pede para recuperar o arquivo, já testei com dispatcher utilizando Uno:CloseWin, funciona excelente, mas não gostaria de utilizar o dispatcher. Alguém conhece ou forma que não seja o dispatcher e não apresente erro?

editar alterar tag assinalar como ofensivo fechar mesclar Excluir

Comentários

Ola @Júnio Vieira, tenho esta macro que chamo de SubMacro:

Sub Execute ( oQue$ )
CreateUnoService("com.sun.star.frame.DispatchHelper") _
.executeDispatch(ThisComponent.CurrentController.Frame, ".uno:" & oQue & "", "", 0, Array())
End Sub

E nas macros utilizo o comando Execute "CloseWin"

E serve para todos os comandos que não necessite de mais parâmetro, exemplo: "Copy", "Paste", "Cut", "DataSelect" e já identifique uns 60 comandos.

Desta maneira toda informação da macro Execute não preciso repetir em outros comando...

Não resolve o seu problema, mas para mim facilita a montagem de macros, visto que não sou programador.

imagem do gravatar de SchiavinattoSchiavinatto ( 2020-08-15 20:47:24 +0100 )editar

1 Resposta

1

respondidas 2020-08-22 09:29:38 +0100

imagem do gravatar de Ronaldo Elias

updated 2020-08-22 16:58:39 +0100

imagem do gravatar de Schiavinatto

Tente usar a seguinte expressão em um módulo separado dos demais:

Option VBASupport 1' Opção compatibilidade com o VBA

Private Sub FecharSemSalvar

    ThisWorkBook.Close SaveChanges:=False 'Fechar o documento sem a informação de salvar antes

        Stop ' termina o código
End Sub

.

editar assinalar como ofensivo Excluir Link mais
Login/Registrar para responder

Ferramentas de perguntas

1 seguidor

Estatísticas

Perguntadas: 2020-08-15 15:20:07 +0100

Lidas: 61 vezes

Última atualização: Aug 22 '20