VBA Unfilter लेकर

Question

मैं इस कोड का उपयोग कर रहा हूँ:

Sheets("Sheet1").AutofilterMode = False 

एक एक्सेल शीट VBA का उपयोग करने में डेटा unfilter करने के लिए (बिंदु सभी फ़िल्टर साफ़ करने के लिए है)। यह हमेशा काम नहीं करता प्रतीत होता है, क्या कोई बेहतर तरीका है?

धन्यवाद!

यदि यह मदद करता है, तो यह तालिका एसक्यूएल सर्वर (डेटा -> अन्य स्रोतों से -> एसक्यूएल सर्वर से ...) से जुड़ी है और इसमें रंगीन डिज़ाइन लेआउट (तालिका विशिष्ट) है।

Answer 1

इसके बजाय Worksheets("Sheet1").ShowAllData का उपयोग करें। http://msdn.microsoft.com/en-us/library/office/bb178108%28v=office.12%29.aspx देखें।

Answer 2

ShowAllData केवल तभी काम करेगा जब आपकी शीट में फ़िल्टर हो, अन्यथा यह टूट जाएगा। मैंने पाया कि आप On Error Resume Next के साथ इस से एक समारोह बना सकते हैं और यह सभी मामलों में काम करना चाहिए:

Sub Main() 

ShowAllData 

End Sub