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
Post a Comment