Excel 2007 returns `Application-defined or object-defined error` -


मेरे पास Excel 2007 और Windows XP है जब यह कोड चलता है:

  कॉलम ("ए : जी "।) ActiveWorkbook.Worksheets का चयन करें (" Sheet1 पत्रक 1 ") Sort.SortFields.Add कुंजी।: = रेंज (" ") Sort.SortFields.Clear ActiveWorkbook.Worksheets (।" बी 2: B20000 ") _, SortOn: = xlSortOnValues, आदेश: = xlAscending, DataOption: = xlSortNormal ActiveWorkbook.Worksheets ( "Sheet1") Sort.SortFields.Add कुंजी:। = रेंज ( "A2: A20000") _, SortOn: = xlSortOnValues, आदेश: = xlDescending, DataOption: = xlSortNormal ActiveWorkbook.Worksheets ( "Sheet1") Sort.SortFields.Add कुंजी:। = रेंज ( "F2: F20000") _, SortOn: = xlSortOnValues, आदेश: = xlDescending, DataOption: = xlSortNormal ActiveWorkbook.Worksheets के साथ ( "Sheet1 ") .Sort .SetRange रेंज (" A1: G20000 ") .Header = xlYes .MatchCase = झूठी .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply Application.Calculation = xlCalculationAutomatic   

यह पर एक त्रुटि फेंकता है। लागू करें :

अनुप्रयोग-परिभाषित या वस्तु-परिभाषित त्रुटि

एक नोट करने के लिए बात यह है कि Application.Calculation = xlCalculationManual

इसके अलावा, मैं कुछ भी यूआई में टैब स्विचिंग और कार्यालय मेनू खोलने के अलावा कुछ नहीं कर सकते, और मैं में जाना है कार्य प्रबंधक और बाहर निकलने के लिए अंतिम कार्य पर क्लिक करें, जहां पर यह पूछता है कि क्या मैं सहेजना चाहता हूं। रद्द करने का दबाव इसे ठीक नहीं करता है। अगर मैं "नहीं" मारा, तो यह केवल बंद हो जाता है अगर मैं हां मारा, यह गणना करता है और फिर पूछता है कि क्या मुझे अपना काम ठीक करना है

मैं चले गए Application.Calculation = xlCalculationAutomatic सही करने के लिए यह और है कि निश्चित करने से पहले यह

  Application.Calculation = xlCalculationAutomatic कॉलम।।। ( "एक: जी") ActiveWorkbook.Worksheets ( "Sheet1") Sort.SortFields.Clear ActiveWorkbook.Worksheets ( "Sheet1") का चयन करें। Sort.SortFields.Add कुंजी: = रेंज ( "बी 2: B20000") _, SortOn: = xlSortOnValues, आदेश: = xlAscending, DataOption: = xlSortNormal ActiveWorkbook.Worksheets ( "Sheet1") Sort.SortFields.Add कुंजी:। = रेंज ( "A2: A20000") _, SortOn: = xlSortOnValues, आदेश: = xlDescending, DataOption:। = xlSortNormal ActiveWorkbook.Worksheets ( "Sheet1") Sort.SortFields.Add कुंजी: = रेंज ( "F2: F20000") _, SortOn: = xlSortOnValues, आदेश: = xlDescending, DataOption: = xlSortNormal ActiveWorkbook.Worksheets ( "Sheet1") क्रमबद्ध .SetRange रेंज के साथ। ( "A1: G20000") .Header = xlYes .MatchCase = झूठी .Orientation = xlTopToBottom .SortMethod xlPinYin .Apply के साथ = अंत  

संपादित करें:। ओह, ऐसा नहीं करता है सब के बाद


Comments

Popular posts from this blog

paypal - How to know the URL referrer in PHP? -

oauth - Facebook OAuth2 Logout does not remove fb_ cookie -

wpf - Line breaks and indenting for the XAML of a saved FlowDocument? -