Pergunte aqui
0

Dados de Gravação Macro

perguntadas 2018-03-26 17:17:43 +0200

imagem do gravatar de Camilla Vieira

updated 2019-03-01 19:11:24 +0200

Estou tentando gravar uma Macro no CALC, onde extrai informações de uma guia que contém um formulário e salva em outra guia "base de dados", as informações registradas no formulário, porém alguns campos do formulário na gravação da macro estão ficando exatamente iguais ao que foi inserido durante o processo de gravação. Percebi que os campos que estão ficando assim, são justamente aqueles que não possui uma lista suspensa, e o conteúdo no formulário é de livre escrita. O que faço para corrigir isso na hora de gravar a macro?

editar alterar tag assinalar como ofensivo fechar mesclar Excluir

2 Respostas

0

respondidas 2018-03-26 21:16:59 +0200

updated 2018-03-26 21:54:48 +0200

Bem vinda @Camilla Vieira, basicamente em uma gravação de macro, para a sua finalidade, deve-se seguir este procedimento basico:

Sub RotinaBasicaMacroCopiarColar
   Ir para fonte de informação
   Copiar
   Ir para local de colagem
   Colar
End sub

Uma macro montada exemplo:

sub CopiaCola
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ToPoint"
args1(0).Value = "$Planilha1.$A$1"   '<======== o que copiar
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())
dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array()) 'Comando para copiar.
dim args3(0) as new com.sun.star.beans.PropertyValue
args3(0).Name = "ToPoint"
args3(0).Value = "$Planilha2.$D$1"  '<======== onde colar
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args3()) 
dispatcher.executeDispatch(document, ".uno:Paste", "", 0, Array()) 'Comando para colar.
end sub

Caso a resposta atendeu sua necessidade, por gentileza, click na bolinha Descrição da imagem a esquerda da resposta, para finalizar a pergunta.

editar assinalar como ofensivo Excluir Link mais

Comentários

1

Obs: Se for uma area continua, pode copiar a área, se for varias células descontinuas, deve-se fazer copiar e colar quantas necessárias.

imagem do gravatar de Gilberto SchiavinattoGilberto Schiavinatto ( 2018-03-26 21:19:36 +0200 )editar

Ok, muito obrigada.

imagem do gravatar de Camilla VieiraCamilla Vieira ( 2018-03-28 20:22:07 +0200 )editar
0

respondidas 2018-03-28 14:46:28 +0200

imagem do gravatar de Beto

Veja está resposta também: Vincular texto

editar assinalar como ofensivo Excluir Link mais

Comentários

Obrigada .

imagem do gravatar de Camilla VieiraCamilla Vieira ( 2018-03-28 20:21:48 +0200 )editar
Login/Registrar para responder

Ferramentas de perguntas

1 seguidor

Estatísticas

Perguntadas: 2018-03-26 17:17:43 +0200

Lidas: 34 vezes

Última atualização: Mar 28 '18