vb.net - 使用 VB.net 使用 'Auto Filter' 对 Excel 中的数据进行排序？

Question

我的工作表中有自动筛选功能。我想使用自动筛选本身对数据进行排序，而不是按正常排序。

我希望客户端看到自动筛选按钮上的向下箭头，它表明行已按此键排序。

知道如何做到这一点吗？

我有“sheet”作为对象:

  sheet.Range("A2").AutoFilter then ??
  Or something else ??

请帮忙!

(确保 VB.Net 语法，而不是 VB Script)

我是新手..

Answer 1

要过滤范围 A1:A7，请尝试:

Sheet.Range("$A$1:$A$7").AutoFilter(Field:=1, Criteria1:="MyFilter",         Operator:=XlAutoFilterOperator.xlFilterValues)

确保您正在导入:

Imports Microsoft.Office.Interop.Excel

编辑:

sheet.AutoFilter.Sort.SortFields.Clear()
sheet.AutoFilter.Sort.SortFields.Add(Key:=sheet.Range("A1:A7"), SortOn:=XlSortOn.xlSortOnValues, Order:=XlSortOrder.xlAscending, DataOption:=xlSortDataOption.xlSortNormal)

With sheet.AutoFilter.Sort
    .Header = XlYesNoGuess.xlYes
    .MatchCase = False
    .Orientation = Constants.xlTopToBottom
    .SortMethod = XlSortMethod.xlPinYin
    .Apply()
End With