VBA Unfilter wahają

Question

Używam tego kodu:

Sheets("Sheet1").AutofilterMode = False 

do unfilter dane w arkuszu programu Excel przy użyciu VBA (chodzi o to, aby usunąć wszystkie filtry). Wydaje się, że to nie zawsze działa, czy jest lepszy sposób?

Dziękujemy!

Jeśli jest to pomocne, ta tabela jest połączona z serwerem SQL (dane -> z innych źródeł -> z serwera Sql ...) i ma kolorowy układ projektu (specyficzny dla tabeli).

Answer 1

Zamiast tego użyj . Zobacz http://msdn.microsoft.com/en-us/library/office/bb178108%28v=office.12%29.aspx.

Answer 2

Urządzenie ShowAllData będzie działało tylko wtedy, gdy arkusz ma filtr, w przeciwnym razie pęknie. Okazało się, że można utworzyć funkcję, z tego z On Error Resume Next i powinien działać we wszystkich przypadkach:

Sub ShowAllData() 
On Error Resume Next 
Worksheets("Sheet1").ShowAllData 

End Sub 

Następnie wywołanie funkcji z głównego sub:

Sub Main() 

ShowAllData 

End Sub