Apache OpenOffice: Foro oficial de la comunidad

Código: Seleccionar todo

Sub CopiaRango(RangOrx As String, RangoDestino As String, Optional TipoDatos As String )
'Copia de RangOrx a RangoDestino solo los tipos de datos indicados en TipoDatos (ausente → todos)
'SVDFNT  S=texto V=valores D=fecha F=formulas N=comentarios T=formatos ex.: DF= fechas + formulas
	If IsMissing(TipoDatos) Then TipoDatos = "SVDFN"	'Por defecto pega todo menos formatos
	Dim Document As Object
	Dim Dispatcher As Object

	Document = ThisComponent.CurrentController.Frame
	Dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
	
	rem ----------------------------------------------------------------------
	Dim args1(0) as new com.sun.star.beans.PropertyValue
	args1(0).Name = "ToPoint"
	args1(0).Value = RangOrx	'"$D$8:$J$8"
	
	Dispatcher.executeDispatch(Document, ".uno:GoToCell", "", 0, args1())
	Dispatcher.executeDispatch(Document, ".uno:Copy", "", 0, Array())
	
	rem ----------------------------------------------------------------------
	Dim args3(0) as new com.sun.star.beans.PropertyValue
	args3(0).Name = "ToPoint"
	args3(0).Value = RangoDestino
	
	Dispatcher.executeDispatch(Document, ".uno:GoToCell", "", 0, args3())

	rem ----------------------------------------------------------------------
	Dim args5(5) as new com.sun.star.beans.PropertyValue
	args5(0).Name = "Flags"
	args5(0).Value = TipoDatos		'"F"
	args5(1).Name = "FormulaCommand"
	args5(1).Value = 0
	args5(2).Name = "SkipEmptyCells"
	args5(2).Value = false
	args5(3).Name = "Transpose"
	args5(3).Value = false
	args5(4).Name = "AsLink"
	args5(4).Value = false
	args5(5).Name = "MoveMode"
	args5(5).Value = 4	'4→ApacheOpenOffice 6-LibreOffice??INSERTA COL  NO ME VA BIEN EN LibO
	
	Dispatcher.executeDispatch(Document, ".uno:InsertContents", "", 0, args5())

End Sub 

Código: Seleccionar todo

Sub PegadoEspecial(RangOrx As String, RangoDestino As String, Optional TipoPegado As String )
'Para LibreOffice (sin probar en AOO)
'Copia de RangOrx a RangoDestino solo los tipos de datos indicados en TipoPegado (ausente → todo)
' S=texto V=valores F=formulas 

	Dim Document As Object
	Dim Dispatcher As Object
		
	Select Case TipoPegado
		Case "F": 	TipoPegado = ".uno:PasteOnlyFormula"	'formulas
		Case "S": 	TipoPegado = ".uno:PasteOnlyText"		'string-texto o texto dev.por formula
		Case "V": 	TipoPegado = ".uno:PasteOnlyValue"		'valores o resultados que son un valor
		Case Else:	TipoPegado = ".uno:Paste"				'todo-todo
	End Select 
	
	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 = RangOrx
	
	Dispatcher.executeDispatch(Document, ".uno:GoToCell", "", 0, args1())
	Dispatcher.executeDispatch(Document, ".uno:Copy", "", 0, Array())
	
	Dim args3(0) as new com.sun.star.beans.PropertyValue
	args3(0).Name = "ToPoint"
	args3(0).Value = RangoDestino
	
	Dispatcher.executeDispatch(Document, ".uno:GoToCell", "", 0, args3())

 	Dispatcher.executeDispatch(document, TipoPegado, "", 0, Array())

End Sub 

Código: Seleccionar todo

'OPCION 0: Metodo lento pero seguro funcion en todo caso  (10-15 seg según num.celdas a escribir)
'desactivamos calculo automatico
	Document = ThisComponent
	Document.EnableAutomaticCalculation(False)file:///usr/share/applications/org.kde.dolphin.desktop
'escribimos fórmulas 		DOCBAR es una función personalizada
		FilaInicio = oCeldas.RangeAddress.StartRow + 1		'fila en la que escribimos la formula +1 porque empiezan en cero		
		LetraColInicio =Mid("ABCDEFGHIJKLMNOPQRSTUVWXYZ",oCeldas.RangeAddress.StartColumn+1,1)
		
	For n = 0 To oCeldas.Rows.Count -1
		For i = 1 To 6 Step 1
			LetraCol = Mid("ABCDEFGHIJKLMNOPQRSTUVWXYZ",oCeldas.RangeAddress.StartColumn +i+1,1)
			Select Case i
				Case 1,2,3		'Columnas Lote /peso /unds		 =IF(D8="";"";DOCBAR(D8;E$7-G$7;""))
					txtFormula = "=IF(" & LetraColInicio & FilaInicio + n & "="+CHR$(34)+CHR$(34)+";"+CHR$(34)+CHR$(34)+";" &_
										"DOCBAR(" & LetraColInicio & FilaInicio + n & ";" & LetraCol & "$" & FilaInicio-1 & ";"+CHR$(34)+CHR$(34)+"))"
					oCeldas.getCellByPosition(i, n).Formula = txtFormula
				Case 5,6		'columnas fecha/pedido-carga-envio	 =IF(D8="";"";I7-J7)
					txtFormula = "=IF("  & LetraColInicio & FilaInicio + n & "="+CHR$(34)+CHR$(34)+";"+CHR$(34)+CHR$(34)+";" &_
										LetraCol & FilaInicio + n-1 & ")"
					oCeldas.getCellByPosition(i, n).Formula = txtFormula
			End Select 
		Next i
	Next n
'reponemos calculo automatico	
	Document.Calculate() 'o  oDoc.calculateAll()
	Document.EnableAutomaticCalculation(True)

Código: Seleccionar todo

def copy_only_formula():
    doc = XSCRIPTCONTEXT.getDocument()
    sheet = doc.Sheets[0]
    source = sheet['C7:L7']
    target = sheet['C19:L1019']

    #~ start = datetime.datetime.now()

    #~ Se asume que se quiere copiar solo una fila
    formulas = source.getFormulaArray()[0]
    #~ Vaciamos lo que NO sea formula
    row = [r if r.startswith('=') else '' for r in formulas]
    data = []
    #~ Agregamos las filas destino
    for r in range(target.getRows().getCount()):
        data.append(row)
    target.setFormulaArray(tuple(data))
    doc.calculate()

    #~ end = datetime.datetime.now() - start
    #~ print ('Segundos: {}'.format(end))
    return

Código: Seleccionar todo

1,000 filas, Segundos: 0.1
10,000 filas, Segundos: 0.8
100,000 filas,  Segundos: 8

Código: Seleccionar todo

def test():
   return

Código: Seleccionar todo

def test(event):
   return

Código: Seleccionar todo

def test(event=None):
   return