Pergunte aqui
0

Copiar para Área de Transferência

perguntadas 2019-09-22 19:18:40 +0200

imagem do gravatar de vitor alves

updated 2019-09-27 13:28:13 +0200

Minha dúvida parece simples, mas ainda não encontrei algo que a resolvesse. Possuo uma planilha ALFA com uma listagem que utilizo e colo em diversas outras planilhas. Queria apenas uma macro que copiasse essa listagem para a Área de Transferência APENAS, sem colar, para que, assim, possa colar onde bem entender. Como a listagem é extensa, eis o motivo de querer uma macro para isso.

Segue abaixo a macro que tentei fazer, porém, quando vou colar, não cola nada:

sub COPIARALFA
Dim oCurs As object
Dim LastRow&

oCurs = ThisComponent.Sheets.GetByName("ALFA").createCursor()
oCurs.gotoEndOfUsedArea(False)
LastRow = oCurs.getRangeAddress().EndRow + 1

dim document   as object
dim dispatcher as object

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 = "A7:K" & LastRow & ""
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())
dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array())

dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "ToPoint"
args2(0).Value = "B7"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args2())

end sub

Grato desde já!

C:\fakepath\CÓPIA GRADE.ods

Coloquei a planilha que fiz para visualização. Nela há o botão copiar. Quando aperto não há nada na área de transferência.

editar alterar tag assinalar como ofensivo fechar mesclar Excluir

Comentários

Ola @vitor alves, simulei seu arquivo e rodei a macro, fechei o arquivo e consegui colar no Notepad++, então esta funcionando.

Descreva como fez.

-----------------------------------------------------------------------------

ATENÇÂO:: Para dar mais detalhes a sua pergunta, use Descrição da imagem na pergunta ou Descrição da imagem abaixo. Grato.

imagem do gravatar de Gilberto SchiavinattoGilberto Schiavinatto ( 2019-09-22 21:01:01 +0200 )editar

Obrigado pelo retorno Gilberto. Depois que vc falou, fiz o teste em outra planilha também e funcionou, porém, na planilha que preciso não funciona. Muito estranho. Estava com esperança de ter uma macro que não use dispatcher pra colocar o intervalo na área de transferência pra ver se resolve, mas não encontrei nada ainda.

Atualizei a pergunta e anexei minha planilha.

imagem do gravatar de vitor alvesvitor alves ( 2019-09-23 05:06:34 +0200 )editar

Gilberto, aproveitando sua boa vontade, creio que vi uma planilha que vc anexou, salvo engano, onde havia uma caixa de texto a qual o conteúdo se movia como se fosse um letreiro. Isso seria ótimo para avisos que uso nesta mesma planilha que anexei neste tópico. Tentei formatar objeto/ texto/animação de texto, mas não sei como utilizar. Caso tenha um link que explique isso fico grato, ou, se for de fácil explicação, peço ajuda por aqui mesmo.

Fiz um tópico para isso:

Vincular texto

imagem do gravatar de vitor alvesvitor alves ( 2019-09-23 05:31:22 +0200 )editar
1

O seu arquivo, esta funcionando normal, testei em 6.2.5.2 e 6.3.2.1 em Win10.

Sobre o texto vide Tópico.

imagem do gravatar de Gilberto SchiavinattoGilberto Schiavinatto ( 2019-09-23 15:42:54 +0200 )editar

Engraçado. Testei aqui agora. Quando seleciono uma célula dentro do intervalo a copiar e clico em Copiar não funciona, mas quando seleciono uma célula fora do intervalo e clico em Copiar funciona. Coloquei na macro para selecionar a célula A1 antes de iniciar o procedimento e resolveu. Obrigado mesmo assim!

imagem do gravatar de vitor alvesvitor alves ( 2019-09-23 22:27:54 +0200 )editar

1 Resposta

0

respondidas 2019-09-26 17:26:12 +0200

imagem do gravatar de vitor alves

Meu erro se resolveu incluindo esse comandos no início da macro:

dim SelCel as object
SelCel = ThisComponent.Sheets.getByName("ALFA").getCellRangeByName("A1")
ThisComponent.CurrentController.select(Selcel)

Ou seja, mandar selecionar uma célula fora do intervalo a copiar, ates de copiar.

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

Ferramentas de perguntas

1 seguidor

Estatísticas

Perguntadas: 2019-09-22 19:18:40 +0200

Lidas: 21 vezes

Última atualização: Sep 26