Estoy generando un listado en CALC, para su distribución, de un recordset de MS Access. Una vez enviado a Calc quisiera que a través de instrucciones en VBA me filtrara la lista quedando en la misma únicamente los 10 valores máximos de cada categoría para lo cual uso la función COUNTIF puesto que la lista ya está ordenada, pero no consigo que me funcione correctamente. Os lo explico mejor con el código a ver si alguien me puede ayudar.Saludos
Código: Seleccionar todo
' escribo los datos de un recordset en la hoja, columna B "categoria" columna C "cantidad"
' ordeno los datos en la hoja de mayor a menor por columa B y C
' hasta ahora todo perfecto
' Ahora con este loop lo que intento es seleccionar los 10 registros C superiores
' de cada categoria en B
' Creo el servicio
Set oFA = CreateObject("com.sun.star.ServiceManager")
Set oFuncAcc = oFA.createInstance("com.sun.star.sheet.FunctionAccess")
lngFila = 2
StartContentType = 2
Set cCelda = oSheet.GetCellRangeByName("A1")
' recorro la lista hasta que encuentra un campo vacio (final de la lista)
Do While StartContentType <> 0
' por cada fila compruebo que no este vacia y capto el dato
Set oFilS = oSheet.GetCellRangeByName("B" & lngFila & "")
StartContentType = oFilS.getType()
sCelda = oFilS.GetString()
'Ahora viene el fallo no consigo que funcione la llamada a la función me da
' error argException en com.sun.lang ?
'x = oFuncAcc.callFunction("COUNTIF", Array("B2:B" & lngFila & "", """ & sCelda & """))
'x = oFuncAcc.callFunction("COUNTIF", Array(oFilS, sCelda))
' de momento lo he solucionado metiendo el string de la formula directamente en una celda
' y capturando el valor si es mayor de 10 elimino la fila
cCelda.setFormula ("=COUNTIF(B2:B" & lngFila & "; """ & sCelda & """)")
x = cCelda.getValue()
If x > 10 Then
Call oSheet.removeRange(oFilS.getRangeAddress, 3)
Else
lngFila = lngFila + 1
End If
Loop
' pero esto es extremadamente lento sirve si tienes pocos registros pero si son miles tarda minutos. 
Gracias por tu interés.
