'Funciones Auxiliares de OOo Basic

'Acceso a funciones de LibreOffice Calc y 
'Úlitma línea utilizada en un rango

'______________________________________________________________________________________________________________________________________________
Function GetFunction(FuncName As String, Args())

'Variables
	Dim Sfa As Object
		
		Sfa = CreateUnoService("com.sun.star.sheet.FunctionAccess")
		GetFunction = Sfa.CallFunction(FuncName, Args())

End Function
'______________________________________________________________________________________________________________________________________________
Function LastRow(iCell As Object)

'Variables
	Dim iCursor As Object
	Dim iRow As Long
	
		iCursor = iCell.getSpreadSheet.CreateCursor(iCell)
		iCursor.goToEnd()
		LastRow = iCursor.getRangeAddress().EndRow() + 1 

End Function