excel - Worksheet 类的 ShowAllData 方法失败

Question

我注意到当自动筛选器已打开时我的 VBA 脚本无法工作。知道这是为什么吗？

    wbk.Activate
    Set Criteria = Sheets("Sheet1").Cells(i, 1)

    Set rng = Sheets("Sheet1").Range(Cells(i, 2), Cells(i, 4))

    wb.Activate
    If ActiveSheet.AutoFilterMode Then ActiveSheet.ShowAllData 'remove autofilter, but it crashes on this line

    Selection.AutoFilter

    Range("$A$1:$BM$204").AutoFilter Field:=2, Criteria1:=Criteria.Value

    rng.Copy

    Range("$BC$2:$BE$204").SpecialCells(xlCellTypeVisible).PasteSpecial

非常感谢

Answer 1

如果启用，AutoFilterMode 将为 True，无论是否确实有过滤器应用于特定列。发生这种情况时，ActiveSheet.ShowAllData 仍将运行，并抛出错误(因为没有实际的过滤)。

我遇到了同样的问题并让它工作

If (ActiveSheet.AutoFilterMode And ActiveSheet.FilterMode) Or ActiveSheet.FilterMode Then
  ActiveSheet.ShowAllData
End If

当没有应用实际过滤器但打开了 AutoFilterMode 时，这似乎会阻止 ShowAllData 运行。

第二个捕获Or ActiveSheet.FilterMode应该捕获高级过滤器