घर
Top.Mail.Ru Yandeks.Metrika
मंच: "मुख्य";
वर्तमान संग्रह: 2002.01.08;
डाउनलोड करें: [xml.tar.bz2];

नीचे

Excel कार्यपत्रक सेल में डेटा स्थानांतरित करना इसी तरह की शाखाएँ खोजें


Striker   (2001-12-13 07:59) [0]

कृपया मुझे बताएं कि स्ट्रिंग के कुछ चर या वास्तविक प्रकार को EXCEL शीट के निर्दिष्ट सेल में कैसे लिखा जाए। (मैं एक उदाहरण के साथ चाहूंगा)। इसके लिए धन्यवाद।



perov   (2001-12-13 08:21) [1]

ExcelApplication.Connect; ExcelApplication.Workbooks.Add ("", 0); ExcelWorkbook.ConnectTo (ExcelApplication.ActiveWorkbook); ExcelWorksheet.ConnectTo (ExcelWorkbook.Sheets [1] _WorkSheet के रूप में); ExcelWorksheet.Activate; ExcelWorksheet.Cells.Item [j, 1] .Value: = j - i; ExcelApplication.Vanish [0]: = सच;



KIR   (2001-12-13 08:32) [2]

यहाँ पकड़ने का सवाल है, लेकिन फिर इस XL को सही तरीके से कैसे बंद किया जाए? और फिर मेरा एक बार स्थानांतरण है (हालांकि एक्सेल एक्सेल से "मैं) काम करता है, और यदि आप फिर से कोशिश करते हैं, तो - मेमोरी आवंटन त्रुटि ...



perov   (2001-12-13 08:44) [3]

ExcelApplication.Disconnect;



Striker   (2001-12-13 09:00) [4]

मैं घर पर बहुत कोशिश करता हूँ, धन्यवाद।



KIR   (2001-12-13 12:02) [5]

> पेरोव
पहले ही लिख दिया
और ExcelApplication.Disconnect,
और ExcelApplication.Quit,
और FreeAndNil (ExcelApplication) ...
मदद नहीं करता है, यहाँ एक कोड है:

ExcelApplication1.Connect;
ExcelApplication1.WorkBooks.Add (n, 0); // एन - फ़ाइल का नाम
ExcelWorkBook1.ConnectTo (ExcelApplication1.ActiveWorkBook);

{प्रोग्राम बॉडी}

ExcelApplication.WorkBook1.Close;
ExcelApplication1.Disconnect;



perov   (2001-12-13 12:33) [6]

ExcelWorksheet.Disconnect; ExcelWorkbook.Close; ExcelApplication.Disconnect;



Олег Лаукарт   (2001-12-13 13:33) [7]

डेल्फी के साम्राज्य में एक्सेल के साथ काम करने के बारे में कुछ लेख हैं



Ынс   (2001-12-13 14:32) [8]

// इसे एक मॉड्यूल में जोड़ें
ComObj का उपयोग करता है;
// ...
था
xlApp: वेरिएंट;
डेटाअरे: वेरिएंट; // दो-आयामी सरणी यहाँ होगी
rv: वास्तविक;
शुरू करना
rv: = 10.56568;
xlApp: = CreateOleObject ("Excel.Sheet"); // बनाएं
xlApp.Application.Vouble: = सच;

xlApp.Application.Cells [1, 2] .Value: = "23456346"; // तो

xlApp.Application.Range ["RealValue1"]। मूल्य: = आरवी; {आप ऐसा कर सकते हैं: "RealValue1" - सेल का नाम "कोशिकाओं" में}

xlApp.Application.Range ("A1: B8")। मान: = "रेंज भरने के लिए बस एक स्ट्रिंग"; {सीमा को एक पंक्ति से भरें}


DataArray: = VarArrayCreate ([0,2,0,2], varVariant); {किसी भी मान को संग्रहीत करने के लिए प्रकार के विकल्प की एक सरणी बनाएँ}
DataArray [0, 0]: = "सरणी तत्व";
DataArray [1, 0]: = 38754; // भी एक सरणी तत्व

{एक बार में पूरे एरे को लिंक पर असाइन करें ... सस्ते में, मज़बूती से और व्यावहारिक रूप से = =) = विशेष रूप से जब आपको रिपोर्ट में हजारों 5 लाइनों के आकार की एक सरणी भेजने की आवश्यकता हो ... यदि आप इसे लूप के माध्यम से करते हैं, तो रिपोर्ट घातक हो जाएगी}

xlApp.Application.Range ("A1: C3): = DataArray;

// इस फाइल को पोस्टीरिटी के लिए सेव करें = -)
xlApp.SaveAs ("c: \ docs \ report \ sample1.xls");

DataArray: = अप्रमाणित; // स्वीप ट्रैक
xlApp: = अप्रमाणित; // धमाके और यह ...
अंत;



Striker   (2001-12-15 11:06) [9]

मैंने इधर-उधर अफरा-तफरी मचाई और एक वेबसाइट (WWW.afalinasoft.com) पाया। वहाँ, डेल्फी और एक्सेल की बातचीत के कारण यह ठीक है।



पन्ने: 1 पूरी शाखा

मंच: "मुख्य";
वर्तमान संग्रह: 2002.01.08;
डाउनलोड करें: [xml.tar.bz2];

ऊपर









मेमोरी: 0.58 एमबी
समय: 0.047 c
3-21966
ZG
2001-12-03 12:42
2002.01.08
वे मेरे सभी सवालों का जवाब क्यों दिया। हमें दोहराना होगा कि क्षेत्र में प्रकार की खोज कैसे करें: छतें लिखी गई हैं और मुझे खोजने की आवश्यकता है


4-22503
Yura
2001-11-05 20:11
2002.01.08
विंडो में एक स्ट्रिंग दर्ज करें


1-22242
खट्टा
2001-12-14 11:00
2002.01.08
POP3


1-22105
Gonza
2001-12-19 16:35
2002.01.08
एमडीआई आवेदन ???


14-22321
Olgerd
2001-11-01 21:44
2002.01.08
गंभीर सवाल





अफ्रीकी अल्बानियन अरबी भाषा अर्मेनियाई आज़रबाइजानी बस्क बेलारूसी बल्गेरियाई कैटलन सरलीकृत चीनी) चीनी पारंपरिक) क्रोएशियाई चेक डेनिश डच अंग्रेज़ी एस्तोनियावासी फिलिपिनो फिनिश फ्रेंच
गैलिशियन् जॉर्जियाई जर्मन यूनानी हाईटियन यहूदी हिंदी हंगरी आइसलैंड का इन्डोनेशियाई आयरिश इतालवी जापानी कोरियाई लात्वीयावासी लिथुआनियाई मेसीडोनियन मलायी मोलतिज़ नार्वेजियन
फ़ारसी पोलिश पुर्तगाली रोमानियाई रूसी सर्बियाई स्लोवाक स्लोवेनियाई स्पेनिश स्वाहिली स्वीडिश थाई तुर्की यूक्रेनी उर्दू वियतनामी वेल्श यहूदी बंगाली बोस्नियाई
सिबुआनो एस्पेरांतो गुजराती हौसा हमोंग ईग्बो जावानीस कन्नड़ खमेर लाओ लैटिन माओरी मराठी मंगोलियन नेपाली पंजाबी सोमाली तामिल तेलुगु योरूबा
ज़ुलु
Английский Французский Немецкий Итальянский Португальский Русский Испанский