Macros LlibreOffice宏无法对筛选结果进行排序

这是一个LibreOffice计算宏。目标是从一个工作表上的列中筛选唯一的数据，将其粘贴到另一个工作表上，然后对粘贴的值进行排序。但是，输出列没有得到排序

对于sheets final和List，数据从$final.$m2:$m100读取，并在列$lists.$C中结束，从$lists.$C2开始。过滤工作正常，只抓取唯一的行，包括所需的空单元格

有三个子系统/功能：

运行它进行测试 filterDistinct筛选数据，设置范围 对结果进行排序 你看到代码有什么问题吗

sub runit

    filterDistinct( "final", "$m2:$m100", "lists", "$C2", false, false)

end sub

Sub filterDistinct( _
    strSourceSheet As String, _
    strSourceRange As String, _
    strTargetSheet As String, _
    strTargetCell As String, _
    Optional bContainsHeader As Boolean, _
    Optional bCaseSensitive As Boolean _
)
    GlobalScope.BasicLibraries.loadLibrary("Tools")

    ' Uses a Filter to copy distinct rows from the 
    '   specified Source Range into a new Range that starts from the specified Target Cell.
    '
    ' <strSourceRange>    : specifies the Range to find distinct rows in, e.g. "A1:B99".
    ' <strTargetCell>     : specifies the Cell to put the first found distinct row in, e.g. "D1".
    ' <bContainsHeader>   : OPTIONAL - pass TRUE if the Source Range contains a Header.
    ' <bCaseSensitive>    : OPTIONAL - pass TRUE if case matters while searching for distinct rows.

    Dim oSheet As Object, oTargetSheet As Object, oSourceRange As Object, oTargetRange As Object, oFilter As Object

    oSheet = ThisComponent.getSheets().getByName(strSourceSheet)
    oSourceRange = oSheet.getCellRangebyName( strSourceRange )
    oTargetSheet = ThisComponent.getSheets().getByName(strTargetSheet)
    oTargetRange = oTargetSheet.getCellRangebyName( strTargetCell )
    oTargetSortRange = oTargetSheet.getCellRangebyName( "$C1:$C40000" )

    'msgbox oSheet.getName()
    'msgbox oSourceRange.AbsoluteName
    'msgbox oTargetSheet.getName()
    'msgbox oTargetRange.AbsoluteName
    'msgbox oTargetSortRange.AbsoluteName
    'sortRange( oTargetSortRange, 0, 1 )
    'exit sub

    oFilter = oSourceRange.createFilterDescriptor( True )
    oFilter.SkipDuplicates = True
    oFilter.CopyOutputData = True
    oFilter.OutputPosition = oTargetRange.CellAddress

    If Not IsMissing( bContainsHeader ) Then oFilter.ContainsHeader = bContainsHeader
    If Not IsMissing( bCaseSensitive ) Then oFilter.IsCaseSensitive = bCaseSensitive

    oSourceRange.filter( oFilter )

    sortRange( oTargetSortRange, 1, 1 ) 
End Sub


' sorts the cell range xRange by the iColumn (0 = first) column in IsAscending (=T/F) order: 
function sortRange( _
    xRange As Object, _
    iColumn As Integer, _
    IsAscending As Boolean _
)
    GlobalScope.BasicLibraries.loadLibrary("Tools")

    Dim oSortDesc(4) As New com.sun.star.beans.PropertyValue
    Dim aSortFields As Object
    ' Dim oField As New com.sun.star.sheet.TableFilterField2

    'oField.Field=0
    'oField.Operator=com.sun.star.sheet.FilterOperator2.NOT_EMPTY
    'oFilterDesc.setFilterFields2(Array(oField))

    ' define the fields to sort
    aSortFields = New com.sun.star.util.SortField
    aSortFields.Field = iColumn
    aSortFields.SortAscending = IsAscending

    ' define the sort descriptor
    oSortDesc(0) = new com.sun.star.beans.PropertyValue
    oSortDesc(0).Name = "SortFields"
    oSortDesc(0).Value = aSortFields

    oSortDesc(1) = new com.sun.star.beans.PropertyValue
    oSortDesc(1).Name = "ContainsHeader"
    oSortDesc(1).Value = true

    oSortDesc(2) = new com.sun.star.beans.PropertyValue
    oSortDesc(2).Name = "IsCaseSensitive"
    oSortDesc(2).Value = False

    oSortDesc(3) = new com.sun.star.beans.PropertyValue
    oSortDesc(3).Name = "ContainsHeader"
    oSortDesc(3).Value = True

    ' Select the range and sort it.
    ' ThisComponent.getCurrentController.select( xRange )

    msgbox xRange.AbsoluteName
    xRange.Sort( oSortDesc )    

    'dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

end function

---

有几个小问题

该范围只有一列，因此iColumn必须为0才能使用第一列也是唯一一列。 aSortFields应该是一个数组。 sortRange它用作子例程，而不是函数。它可能仍然有效，但不正确。 下面是基于清单6.28的示例工作代码：计算文档中的降序排序

亚剂量 oSheet=ThisComponent.getSheets.getByIndex0 oTargetSortRange=oSheet.getCellRangebyName$C1:$C40000 sortRange oTargetSortRange，0，1 端接头 '按iSCENDING=T/F顺序，按iColumn 0=第一列对单元格范围xRange进行排序： 次级分类_ xRange作为对象_ i列作为整数_ 我将其视为布尔型_ 将oSortDesc0设置为新的com.sun.star.beans.PropertyValue 将aSortFields0变为新com.sun.star.util.SortField aSortFields0.Field=iColumn aSortFields0.SortAscending=IsAscending oSortDesc0.Name=SortFields oSortDesc0.Value=aSortFields xRange.Sort oSortDesc 端接头

---

这是一个不错的问题，虽然将问题缩小到更小的代码示例和更简单的示例表会更好。我在理论上同意，但我不知道错误发生在哪里，我厌倦了盲目地尝试调试错误。好吧，线索是数组建议，但不是您提到的位置。创建新PropertyValue的行不知何故破坏了排序。删除这些类型的行是有效的：oSortDesc0=new com.sun.star.beans.PropertyValue然而，我不知道为什么。这些线条不应该影响结果，对吧？不确定，但正如我所说的，有很多事情在我看来并不正确。为了准确地找出它是如何出错的，有必要孤立一个问题。