Tenho este comando:
Dim oData As Variant
oData = ThisComponent.getSheets.getByName( "Planilha1" ).getCellRangeByName( "D6:D7" ).getDataArray()
Que pega os valores do Range sem ir ao local ( Visualmente as planilhas não Navegam com o cursor )
Os valores, pegos, tem como referencia oData(0)(0) e oData(1)(0)
Alguém conhece o comando que cola em outra planilha sem a tela se mover ?
Se quiser apenas passar os dados sem formatação
A fonte e o destino devem ter o mesmo tamanho.
doc = ThisComponent
origen = doc.Sheets.getByName(Sheet1).getCellRangeByName(D6:D7)
destino = doc.Sheets.getByName(Sheet2).getCellRangeByName(D6:D7)
destino.DataArray = origen.DataArray|Ola @elmau, solução perfeita para fonte e destino de áreas iguais.
Mas o meu caso a copia é na vertical ( um formulário ) e a colagem na horizontal ( Banco de dados ), tem como Transpor ?
Com um exemplo claro do que se tem e do que se espera obter, evitamos adivinhar.
Gostaria de COPIAR de uma planilha Formulário
e COLAR em outra planilha para arquivar informações,
Sem que a tela fique “piscando”.
Conheço o comando, para colocar no inicio da macro:
ThisComponent.CurrentController.Frame.ComponentWindow.Visible = False
que desliga a atualização de tela e no final volta a ligar:
ThisComponent.CurrentController.Frame.ComponentWindow.Visible = True
Porem ainda a tela pisca.
Gostaria que o procedimento fosse imperceptível para o usuário.
Grato pela atenção Mauricio.
mas… você ainda me força a começar do zero…
se você anexar o arquivo, eu lhe colocarei o código que você precisa… Sou bastante preguiçoso
Segue o arquivo exemplo, copiar da planilha CAD_Contas e colar na Contas, consegui montar uma que esta funcionando, não é “bonita” mas funcionou.
Ao preencher o Formulário em CAD_Contas, clicar no botão [Salvar].
Não disponível
Link corrigido.
Há várias soluções, mas dada a pequena quantidade de dados, esta funciona bem.
Sub SalvarContas()
doc = ThisComponent
sheet = doc.CurrentController.ActiveSheet
sheet_target = doc.Sheets.getByName("Contas")
source = sheet.getCellRangeByName("D6:D15")
data = source.DataArray
cell = sheet_target.getCellRangeByName("B6")
row_free = siguiente_fila_libre(cell)
c = 1
For Each row In data
cell = sheet_target.getCellByPosition(c, row_free)
cell.String = row(0)
c = c + 1
Next
clear_contents(source)
End Sub
Function siguiente_fila_libre(celda_origen)
sheet = celda_origen.SpreadSheet
cursor = sheet.createCursorByRange(celda_origen)
cursor.collapseToCurrentRegion()
ra = cursor.RangeAddress
siguiente_fila_libre = ra.EndRow + 1
End Function
Function clear_contents(range)
range.clearContents( _
com.sun.star.sheet.CellFlags.VALUE + _
com.sun.star.sheet.CellFlags.STRING)
End FunctionPerfeito @elmau, para quem sabe fazer é simples.
Sobre seu comentário, “Sou bastante preguiçoso”, fico imaginando se é preguiçoso e já fez tanto pelo OpenOffce/LibreOffice, o que teria feito se não fosse.
Abraço, muita saúde, obrigado.
Gilberto.
Estou usando o tradutor (DeepL) porque não conheço nenhum português, além de duas palavras importantes: obrigado e mulher.
Não sei se a palavra: “preguiçoso”, está bem traduzida, em espanhol é “perezoso”.