2

我正在尝试调整我为 Excel 2007 编写的 xla 加载项以在 Excel 2003 中工作。我已对大部分问题进行了排序，但我无法找到对工作表中的字段进行排序的方法。我有需要按创建日期顺序排序的数据行（其值在 H 列中）。这是我使用的 Excel 2007 代码：

        'sort issues into descending order
        Sheets("In Progress").Sort.SortFields.Clear
        Sheets("In Progress").Sort.SortFields.Add _
                Key:=Range("H:H"), _
                SortOn:=xlSortOnValues, _
                Order:=xlDescending, _
                DataOption:=xlSortNormal
        With Sheets("In Progress").Sort
            .SetRange Range("A2:M" & rowCount - 1)
            .Header = xlNo
            .MatchCase = False
            .Orientation = xlTopToBottom
            .SortMethod = xlPinYin
            .Apply
        End With

任何人都可以帮助我让它与 Excel 2003 一起使用吗？

4

1 回答 1

3

最好的方法是在较低版本中编写代码，以便它适用于所有版本。

我将使用此代码进行排序，这将适用于所有版本。

With Sheets("In Progress")
    .Range("A2:M" & rowCount - 1).Sort Key1:=.Range("A2"), _
    Order1:=xlDescending, Header:=xlNo, _
    OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
    DataOption1:=xlSortNormal
End With
于 2012-06-19T14:59:32.133 回答