प्रदर्शन के बाद के मार्ग पर कैसे फ़ाइल को पढ़ने के लिए निवेश से उत्कृष्टता का प्रयोग कर Borland c + + बिल्डर , हम करने जा रहे हैं अब एक तरह से समझाना लिखने के लिए अपनी उत्पादन फ़ाइल को एक्सेल का प्रयोग कर एक ही भाषा , c + + .

कभी कभी यह बेहतर है उदाहरण के माध्यम से बातें की व्याख्या करने के लिए , इसलिए here'sa अच्छा प्रदर्शन करने की प्रक्रिया को सरल उदाहरण है .

आप यह मानते हुए जा रहे हैं लिखने के लिए एक उत्पादन में संग्रहीत चर , x , का कहना है कि पंक्ति पर 3,14 x = 2 , स्तम्भ 3 के एक्सेल फ़ाइल है . फिर , आपके पास करने के लिए सभी का उपयोग करने के लिए निम्नलिखित कोड की है .

मामले 1 : आपने बनाने के लिए एक नया एक्सेल फ़ाइल तो वहां लिखने में अपने उत्पादन

/ / घोषित चर
मा XL , v0 , v1 , v2 , v3 ;
दोहरी x = 3,14 ;

/ / एक्सेल आवेदन खुला
XL = मा : : CreateObject ( " excel.application " ) ;

/ / अनुप्रयोग के रूप में स्थापित की अदृश्य , आप कर सकते हैं रिवर्स " झूठे " को " true " बनाने के लिए यह दृश्य
XL.OlePropertySet ( " दर्शनीय " , झूठे ) ;

/ / कार्यपुस्तिका प्राप्त करें
v0 = XL.OlePropertyGet ( " कार्यपुस्तिकाओं " ) ;

/ / जोड़ने के काम से एक पुस्तक
v0.OleProcedure ( " जोड़ें " ) ;

/ / select कार्यपुस्तिका संख्या 1
v1 = v0.OlePropertyGet ( " आइटम " , 1 ) ;

/ / वर्कशीट प्राप्त करें
v2 = v1.OlePropertyGet ( " WorkSheets " ) ;

/ / जोड़ने का काम एक पत्रक
v2.OleFunction ( " जोड़ें " ) ;

/ / select वर्कशीट संख्या 1
v3 = v2.OlePropertyGet ( " आइटम " , 1 ) ;

/ / नाम बदलने के लिए यह वर्कशीट " example1 "
v3.OlePropertySet ( " " नाम " , " example1 " ) ;

/ / पर पिछले है , आपके लिखने के उत्पादन में लगातार 2 स्तम्भ 3
चार temp [ 10 ] ;
sprintf ( temp , " % लाइसेंस " , x ) ;
v3.OlePropertyGet ( " सेल " ) . OlePropertyGet ( " आइटम " , 2,3 ) . OlePropertySet ( " " मान " , temp ) ;

/ / इस बंद कर देंगे आपसे पूछा , जहां आप चाहते हैं कि आपके उत्कृष्टता प्राप्त करने के लिए एक ही फ़ाइल या नहीं
XL.OlePropertySet ( " DisplayAlerts " , झूठे ) ;

/ / एक्सेल पर फ़ाइल सहेजें अपने " d " का नाम है और इसे " case1.xls "
XL.OlePropertyGet ( " कार्यपुस्तिकाओं " ) . OlePropertyGet ( " आइटम " , 1 ) . OleProcedure ( " SaveAs " , " d : \ \ case1.xls " ) ;

/ / पुस्तक का काम बंद करें
v1.OleProcedure ( " बंद करें " ) ;

/ / काफी उत्कृष्टता के अनुप्रयोग
XL.OleProcedure ( " छोड़ो " ) ;

/ / unassign चर
XL = असाइन नहीं की गई है ;

मामले 2 : आप चाहते हैं कि आपके लिखने के लिए एक मौजूदा उत्पादन में उत्कृष्टता फ़ाइल का नाम " case1.xls " में स्थित " D : "

दोहरी x = 3,14 ;
/ / घोषित चर
मा XL , v0 , v1 , v2 , v3 ;

/ / एक्सेल आवेदन खुला
XL = मा : : CreateObject ( " excel.application " ) ;

/ / अनुप्रयोग के रूप में स्थापित की अदृश्य , आप कर सकते हैं रिवर्स " झूठे " को " true " बनाने के लिए यह दृश्य
XL.OlePropertySet ( " दर्शनीय " , झूठे ) ;

/ / खोलने के कार्यपुस्तिका " नाम case1.xls "
XL.OlePropertyGet ( " कार्यपुस्तिकाओं " ) . OleProcedure ( " खोलें " , " d : \ \ case1.xls " ) ;

/ / खोलने के वर्कशीट " example1 "
v0 = XL.OlePropertyGet ( " पत्रक " , " example1 " ) ;

/ / प्राप्त कोशिका
v1 = v0.OlePropertyGet ( " सेल " ) ;

/ / पर पिछले है , आपके लिखने के उत्पादन में लगातार 2 स्तम्भ 3
चार temp [ 10 ] ;
sprintf ( temp , " % लाइसेंस " , x ) ;
v1.OlePropertyGet ( " आइटम " , 2,3 ) . OlePropertySet ( " " मान " , temp ) ;

/ / इस बंद कर देंगे आपसे पूछा , जहां आप चाहते हैं कि आपके उत्कृष्टता प्राप्त करने के लिए एक ही फ़ाइल या नहीं
XL.OlePropertySet ( " DisplayAlerts " , झूठे ) ;

/ / बचाने कि आपने क्या किया है
XL.OleProcedure ( " सहेजें " ) ;

/ / काफी उत्कृष्टता के अनुप्रयोग
XL.OleProcedure ( " छोड़ो " ) ;

/ / unassign चर
XL = असाइन नहीं की गई है ;

यही है . हालांकि लंबे , की प्रक्रिया अभी भी मानक और सरल है .