ውስጥ ይህ ግምገማከ DELPHI የ Excel የስራ ደብተርን ለማግኘት የሚያስችሉዎት መሰረታዊ መዋቅሮች ተብራርተዋል.

የ EXCEL መጽሐፍ መዳረሻን ማደራጀት።

በፕሮግራሙ ውስጥ ከ MS Excel ጋር ለመገናኘት የ ComObj ሞጁሉን መጠቀም አለብዎት
ComObj ይጠቀማል;
እና የሚከተለውን አይነት MS Excel ለመድረስ ተለዋዋጭ ያውጁ፡
var ኤክሴል፡ ተለዋጭ;

በቀላል ሁኔታ የ Excel ተለዋዋጭን ማስጀመር እንደሚከተለው ሊከናወን ይችላል-
Excel: = CreateOleObject ("Excel.Application");

አዲስ መጽሐፍ መፍጠር;
ኤክሴል.የስራ ደብተሮች.አክል;

በመክፈት ላይ ነባር መጽሐፍ(ዱካው ወደ ፋይሉ የሚወስደው መንገድ የት ነው xls ቅጥያ.):
ኤክሴል.የስራ ደብተሮች.ክፍት;

ለንባብ-ብቻ ያለውን የሥራ መጽሐፍ ለመክፈት፡-
ኤክሴል.የስራ ደብተሮች.ክፍት;

ኤክሴልን መዝጋት፡
ኤክሴል.ActiveWorkbook.ዝጋ;
ኤክሴል.መተግበሪያ. አቁም;

የኤክሴል ጥያቄዎችን ማገድ (ማረጋገጫዎች፣ማሳወቂያዎች)፣ ለምሳሌ ፋይል ለማስቀመጥ ጥያቄን ማገድ፡-
ኤክሴል.ማሳያ ማስጠንቀቂያ፡= ሐሰት;

ኤክሴልን በማያ ገጹ ላይ አሳይ፡-
ኤክሴል.የሚታይ፡= እውነት;
ወይም ደብቅ፡-
ኤክሴል.የሚታይ፡= ሐሰት;

የነቃ የ Excel ሉህ ይዘቶችን ማተም፡-
ኤክሴል.Active Sheet.Printout;

በ EXCEL ውስጥ ውሂብ ማንበብ/መፃፍ

አሁን ባለው የ Excel ደብተር ውስጥ አንድን ሕዋስ በሚከተለው መንገድ ማግኘት ይችላሉ።
ኤክሴል. ክልል["B2"]::"ሄሎ!";- እሴትን ወደ ሕዋስ ለመጻፍ ወይም
s: = Excel. ክልል["B2"];
- ለንባብ ፣

B2 የሕዋስ አድራሻ የት ነው።
ወይም የR1C1 አገናኝ ዘይቤን በመጠቀም፡- Excel.Range]::"ሄሎ!";

, የሕዋስ መጋጠሚያው የት ነው. ፈጽሞ፣የ Excel ሕዋስ

ማንኛውንም እሴት (ቁምፊ, ኢንቲጀር, ክፍልፋይ, ቀን) መመደብ ይችላሉ እና ኤክሴል በሴል ውስጥ ያለውን ነባሪ ቅርጸት ያዘጋጃል.

በEXCEL ውስጥ ሴሎችን ይቅረጹ
ለሚከተለው ሥራ የሕዋስ ቡድን መምረጥ (መምረጥ) ትችላለህ፡-
ኤክሴል.ክልል፣ ኤክሴል.ሴሎች።ይምረጡ፤
ወይም
Excel.Range["A1:C5"] .ምረጥ;

በዚህ ሁኔታ በሴሎች A1 እና C5 መካከል ያለው ቦታ ይመረጣል.
ምርጫውን ካደረጉ በኋላ የሚከተሉትን ማዘጋጀት ይችላሉ-
1) ሴሎችን ማዋሃድ
Excel.Selection.MrgeCells:=እውነት;
2) የቃላት መጠቅለያ
Excel.Selection.Wrap ጽሑፍ:=እውነት;
3) አግድም አቀማመጥ
ኤክሴል.ምርጫ.አግድም አሰላለፍ፡=3;
ወደ 1 ሲዋቀር፣ ነባሪው አሰላለፍ ስራ ላይ ይውላል፣ ወደ 2 ሲዋቀር፣ አሰላለፍ ይቀራል፣ 3 መሃል ነው፣ እና 4 ትክክል ነው።
4) አቀባዊ አቀማመጥ
ኤክሴል.ምርጫ.አቀባዊ አሰላለፍ፡=1;
የተመደቡት እሴቶች ከአግድም አሰላለፍ ጋር ተመሳሳይ ናቸው።

5) ለሴሎች ድንበር
በተጨማሪም ፣ ለድንበር ንብረት እሴቶችን መግለጽ ይችላሉ ፣ ለምሳሌ ፣ ከ 3 ጋር እኩል ነው ። ከዚያ ለተመረጠው እገዳ የላይኛው ድንበር ብቻ ይዘጋጃል ።
ኤክሴል.ምርጫ.Borders.LineStyle:=1;
የድንበር ንብረት ዋጋ የተለየ የሕዋስ ጠርዞች ጥምረት ይገልጻል።
በሁለቱም ሁኔታዎች ከ 1 እስከ 10 ባለው ክልል ውስጥ እሴቶችን መጠቀም ይችላሉ.

በ EXCEL ውስጥ የይለፍ ቃሎችን መጠቀም

ለሚሰራው የስራ ደብተር የይለፍ ቃል ማዘጋጀት በሚከተለው መንገድ ሊከናወን ይችላል፡
ሞክር
// የይለፍ ቃል ለማዘጋጀት ሞክር
Excel.ActiveWorkbook.protect("ማለፊያ");
በስተቀር
// የይለፍ ቃል ለማዘጋጀት የተደረገው ሙከራ ካልተሳካ እርምጃዎች
መጨረሻ;
ለመጽሐፉ ለማዘጋጀት የይለፍ ቃል የት ማለፊያ ነው።

የይለፍ ቃልን ከመጽሃፍ ውስጥ ማስወገድ ተመሳሳይ ነው, ትዕዛዙን ይጠቀሙ
Excel.ActiveWorkbook.አትከላከለው("ማለፍ");

ለገቢር ሉህ የይለፍ ቃል በማዘጋጀት ወይም በማስወገድ ላይ የ Excel ሥራ መጽሐፍት።በቡድኖች የተመረተ
Excel.ActiveSheet.protect("ማለፍ"); // የይለፍ ቃል ያዘጋጁ
Excel.ActiveSheet.የማይከላከለው("ማለፊያ"); // የይለፍ ቃል አስወግድ
መጽሐፉን ለመጠበቅ የይለፍ ቃል የተቀመጠው የት ማለፊያ ነው።

በ EXCEL ውስጥ ረዳት ስራዎች

ረድፎችን ወደ ላይ በማንሳት ላይ
ኤክሴል.ረድፎች["5:15"] ምረጥ;
ኤክሴል.ምርጫ.ሰርዝ;
እነዚህን ድርጊቶች በሚፈጽሙበት ጊዜ ከ 5 እስከ 15 ያሉት መስመሮች ይሰረዛሉ.

የሚሰካ ቦታን በማዘጋጀት ላይ ንቁ ሉህኤክሴል
// ከተዋቀረ ቦታውን ይንቀሉት
ኤክሴል.አክቲቭ መስኮት.ፍሪዝ ፓንስ:=ሐሰት;
// ይምረጡ የሚፈለገው ሕዋስ፣ ቪ በዚህ ጉዳይ ላይ D3
Excel.Range["D3"] .ምረጥ;
// ቦታው እንዲቀዘቅዝ ያዘጋጁ
ኤክሴል.ActiveWindow.FreezePanes:=እውነት;

መልካም ምኞት!

ይህ ግምገማ የኤክሴል የስራ መጽሐፍን ከዴልፊ ለመድረስ የሚያስችሉዎትን መሰረታዊ ግንባታዎች ያብራራል።

የ EXCEL መጽሐፍ መዳረሻን ማደራጀት።

በአንድ ፕሮግራም ውስጥ ከኤምኤስ ኤክሴል ጋር ለመገናኘት፣ የ ComObj ሞጁሉን መጠቀም እና የ MS Excel ተለዋጭ አይነትን ለመድረስ ተለዋዋጭ ማወጅ አለቦት።

ComObj ይጠቀማል;
var ኤክሴል፡ ተለዋጭ;

በቀላል ሁኔታ የ Excel ተለዋዋጭን እንደዚህ ማስጀመር ይችላሉ-

Excel: = CreateOleObject ("Excel.Application");

አዲስ መጽሐፍ መፍጠር;

ኤክሴል.የስራ ደብተሮች.አክል;

ነባር መጽሐፍ በመክፈት ላይ (ዱካው ወደ ፋይሉ የሚወስደው መንገድ ከ xls ቅጥያ ጋር ነው።)

ኤክሴል.የስራ ደብተሮች.ክፍት;

ለንባብ-ብቻ ያለውን የሥራ መጽሐፍ ለመክፈት፡-

ኤክሴል.የስራ ደብተሮች.ክፍት;

ኤክሴልን መዝጋት፡

ኤክሴል.ActiveWorkbook.ዝጋ;
ኤክሴል.መተግበሪያ. አቁም;

የኤክሴል ጥያቄዎችን ማገድ (ማረጋገጫዎች፣ማሳወቂያዎች)፣ ለምሳሌ ፋይል ለማስቀመጥ ጥያቄን ማገድ፡-

ኤክሴል.ማሳያ ማስጠንቀቂያ፡= ሐሰት;

ኤክሴልን በማያ ገጹ ላይ አሳይ ወይም ደብቅ፡-

ኤክሴል.የሚታይ፡= እውነት;
ኤክሴል.የሚታይ፡= ሐሰት;

የነቃውን የ Excel ሉህ ይዘት ማተም፡-

ኤክሴል.Active Sheet.Printout;

በ EXCEL ውስጥ ውሂብ ማንበብ/መፃፍ

አሁን ባለው የ Excel ደብተር ውስጥ አንድን ሕዋስ በሚከተለው መንገድ ማግኘት ይችላሉ።

Excel.Range["b2"]::"ሄሎ!"; // ለአንድ ሕዋስ እሴት ይፃፉ
s:= Excel. ክልል["b2"]; // የንባብ ዋጋ ከሴል

b2 የሕዋስ አድራሻው የት ነው።

B2 የሕዋስ አድራሻ የት ነው።

Excel.Range]::"ሄሎ!";

የሕዋስ መጋጠሚያ የት አለ?

በአጠቃላይ ማንኛውንም እሴት ለኤክሴል ሴል (ቁምፊ፣ ኢንቲጀር፣ ክፍልፋይ፣ ቀን) መመደብ ይችላሉ፣ እና ኤክሴል በሴል ውስጥ ያለውን ነባሪ ቅርጸት ያዘጋጃል።

በEXCEL ውስጥ ሴሎችን ይቅረጹ

ለሚከተለው ሥራ የሕዋስ ቡድን መምረጥ (መምረጥ) ትችላለህ፡-

ኤክሴል.ክልል፣ ኤክሴል.ሴሎች።ይምረጡ፤
// ወይ
Excel.Range["A1:C5"] .ምረጥ;

በዚህ ሁኔታ በሴሎች A1 እና C5 መካከል ያለው ቦታ ይመረጣል.

ምርጫውን ካደረጉ በኋላ የሚከተሉትን ማዘጋጀት ይችላሉ-
1) ሴሎችን ማዋሃድ;

Excel.Selection.MrgeCells:=እውነት;

2) የቃላት መጠቅለያ;

Excel.Selection.Wrap ጽሑፍ:=እውነት;

3) አግድም አቀማመጥ;

ኤክሴል.ምርጫ.አግድም አሰላለፍ፡=3;

ወደ 1 ሲዋቀር፣ ነባሪው አሰላለፍ ስራ ላይ ይውላል፣ ወደ 2 ሲዋቀር፣ አሰላለፍ ይቀራል፣ 3 መሃል ነው፣ እና 4 ትክክል ነው። 4) አቀባዊ አቀማመጥ

ኤክሴል.ምርጫ.አቀባዊ አሰላለፍ፡=1;

የተመደቡት እሴቶች ከአግድም አሰላለፍ ጋር ተመሳሳይ ናቸው።
5) የሕዋስ ድንበር;

ወደ 1 ሲዋቀር የሕዋስ ድንበሮች በቀጭን ጠንካራ መስመሮች ይሳሉ።
በተጨማሪም ፣ ለድንበር ንብረት እሴቶችን መግለጽ ይችላሉ ፣ ለምሳሌ ፣ ከ 3 ጋር እኩል ነው ። ከዚያ ለተመረጠው እገዳ የላይኛው ድንበር ብቻ ይዘጋጃል ።

ኤክሴል.ምርጫ.Borders.LineStyle:=1;

የድንበር ንብረት ዋጋ ይገልጻል የተለያዩ ጥምረትየሕዋስ ጠርዞች.
በሁለቱም ሁኔታዎች ከ 1 እስከ 10 ባለው ክልል ውስጥ እሴቶችን መጠቀም ይችላሉ.

በ EXCEL ውስጥ የይለፍ ቃሎችን መጠቀም

ለሚሰራው የስራ ደብተር የይለፍ ቃል ማዘጋጀት በሚከተለው መንገድ ሊከናወን ይችላል፡

ሞክር
// የይለፍ ቃል ለማዘጋጀት ሞክር
Excel.ActiveWorkbook.protect("ማለፊያ");
በስተቀር
// የይለፍ ቃል ለማዘጋጀት የተደረገው ሙከራ ካልተሳካ እርምጃዎች
መጨረሻ;

ለመጽሐፉ ለማዘጋጀት የይለፍ ቃል የት ማለፊያ ነው።

የይለፍ ቃልን ከመጽሃፍ ውስጥ ማስወገድ ተመሳሳይ ነው, ትዕዛዙን ይጠቀሙ

ኤክሴል.ActiveWorkbook.አትከላከለው("ማለፍ");

ለኤክሴል የስራ ደብተር ንቁ ሉህ የይለፍ ቃል ማዘጋጀት እና ማስወገድ ትእዛዞቹን በመጠቀም ይከናወናል

Excel.ActiveSheet.protect("ማለፍ"); // የይለፍ ቃል ያዘጋጁ
Excel.ActiveSheet.የማይከላከለው("ማለፍ"); // የይለፍ ቃል አስወግድ

የት ማለፊያ መጽሐፉን ለመጠበቅ ይለፍ ቃል ተቀናብሯል።

በ EXCEL ውስጥ ረዳት ስራዎች

ረድፎችን ወደ ላይ ባለው ሽግግር መሰረዝ (እነዚህን ድርጊቶች ሲፈጽሙ ከ 5 እስከ 15 ያሉት ረድፎች ይሰረዛሉ)

ኤክሴል.ረድፎች["5:15"] ምረጥ;
ኤክሴል.ምርጫ.ሰርዝ;

በነቃው የ Excel ሉህ ላይ የመቀዝቀዣ ቦታ ለማዘጋጀት፡-

// ከተዋቀረ ቦታውን ይንቀሉት
ኤክሴል.አክቲቭ መስኮት.ፍሪዝ ፓንስ:=ሐሰት;
// ተፈላጊውን ሕዋስ ይምረጡ, በዚህ ሁኔታ D3
Excel.Range["D3"] .ምረጥ;
// ቦታው እንዲቀዘቅዝ ያዘጋጁ
ኤክሴል.ActiveWindow.FreezePanes:=እውነት;

ከ EXCEL ከ Delphi ጋር በመስራት ላይ

በዚህ ጽሑፍ ውስጥ እንዴት እንደሚሠሩ እነግርዎታለሁ MS Excel ከ Delphi. ይህ ጽሑፍ የተለያዩ እንዴት መፍጠር እንደሚችሉ ለመማር ለሚፈልጉ ሰዎች ጠቃሚ ሊሆን ይችላል። የ Excel ዘገባዎችውስጥ ከተፃፉ ፕሮግራሞች ዴልፊ. ጽሑፉ አብሮ ለመስራት አስፈላጊ የሆኑ የማጣቀሻ መረጃዎችን ይዟል MS Excel. እንዴት እንደሚደረግ መረጃ እዚህ ያገኛሉ፡-

የ Excel በይነገጽን በትክክል ያገናኙ እና ያላቅቁ;
- የቅርጸ ቁምፊ መጠን, ቀለም እና አይነት እንዴት እንደሚቀይሩ;
- የሴሎችን ክልል እንዴት መምረጥ, ማዋሃድ, መሙላት እና ማባዛት;
- ጽሑፍን እንዴት ማሽከርከር እና መሃል ማድረግ እንደሚቻል;
- የሕዋስ ድንበሮችን እንዴት መሳል;
- ቀመርን ወደ ሴል ውስጥ እንዴት ማስገባት እንደሚቻል እና ብዙ ተጨማሪ ...

እንግዲያውስ እንጀምር...

በሞጁሉ በኩል እንሰራለን ComObj፣ለዚህ በ ይጠቀማልሞጁል መጨመር ያስፈልገዋል ComObjእና ሞጁል ኤክሴል_ቲ.ኤል.ቢ(ለ MS Excel 2007).

ይጠቀማል……፣ ComObj፣ Excel_TLB;

ሞጁል ኤክሴል_ቲ.ኤል.ቢአስፈላጊውን ይዟል ቋሚዎችጋር ለመስራት ኤክሴልእሱን ማገናኘት የለብዎትም ፣ ግን ከዚያ ከዚህ ሞጁል ውስጥ ሁሉንም ያገለገሉ ቋሚዎች እሴቶችን እራስዎ ማስገባት አለብዎት። የቋሚዎቹ እሴቶች በሞጁሉ ውስጥ ወይም በይነመረብ ውስጥ ሊገኙ ይችላሉ ፣ ግን ለ የተለያዩ ስሪቶች MS Excelየተለያዩ ናቸው።
ትኩረት!!!ሞጁል ኤክሴል_ቲ.ኤል.ቢበሌሎች ስሪቶች ውስጥ MS Excelበተለየ መንገድ ሊጠራ ይችላል. ሞጁሉን ከማገናኘትዎ በፊት ኤክሴል_ቲኤልቢ፣ቤተ መፃህፍቱን ማስመጣት አለብህ ኤክሴል. ይህንን ለማድረግ, ይምረጡ አካል->አካል አስመጣ->አይነት ቤተ-መጽሐፍት አስመጣ->እናገኛለን MS Excelእና መመሪያዎቹን ይከተሉ.

በተለዋዋጭ መግለጫ ክፍል ውስጥ መግለፅ አለብን ዓይነት ተለዋዋጭ ተለዋጭወይም OleVariantበይነገጹን ለማገናኘት ኤክሴልተለዋዋጭውን ገለጽኩት ብልጫ.

ቅፅ1፡ TForm1;
ብልጫ : ተለዋጭ;// እቃው የተፈጠረበት ተለዋዋጭ EXCEL

ሰነድ መፍጠር

ትኩረት!!!የበይነገጽ ነገርን በሚፈጥሩበት ጊዜ ሁሉ የፍጥረት ሂደቱን በስህተት አያያዝ ሞጁል ውስጥ ጠቅልሉት፡-
ሞክር
በይነገጽ ይፍጠሩ;
ሪፖርት ማመንጨት;
በይነገጹን መልቀቅ;
በስተቀር
ስህተቶችን ማስተናገድ;
በይነገጹን መልቀቅ;
መጨረሻ;

ሞክር
// የ EXCEL ነገር ይፍጠሩ

// ሰነዱን ስለማስቀመጥ ጥያቄውን ላለመጠየቅ
Excel.DisplayAlerts:= ሐሰት;

// ፍጠር አዲስ ሰነድ የሥራ መጽሐፍ
Excel.Workbooks.አክል;

// ወይም ከፕሮግራሙ ማውጫ ላይ ይጫኑት
Excel.WorkBooks.Open (GetCurrentDir () + "\ report.xls");

( GetCurrentDir () - ከፕሮግራሙ ጋር ወደ ማውጫው የሚወስደውን መንገድ ይመልሳል)

// እንዲታይ ያድርጉት ይህ ተግባርከማረም እና ከፈተና በኋላ ፣ ሪፖርቱን ካመነጨ በኋላ በመጨረሻ እሱን መጠቀም የተሻለ ነው (ይህ መረጃን ወደ ሪፖርቱ የማውጣት ሂደትን ያፋጥናል)
Excel.የሚታይ፡= እውነት;

// የቀመሮችን አይነት በ R1C1 ቅርጸት ያዘጋጁ
Excel.Application.ReferenceStyle:= xlR1C1;

// የቀመር አይነትን በ A1 ቅርጸት ያዘጋጁ
Excel.Application.ReferenceStyle:= xlA1;

// የመጀመሪያውን እና የሁለተኛውን ሉሆች ስም ያዘጋጁ
Excel.WorkBooks.WorkSheets.ስም:= "ሪፖርት1";
Excel.WorkBooks.WorkSheets.ስም:= "ሪፖርት2";

// የቁጥር ቅርጸቱን ለመጀመሪያው እና ለአራተኛው አምዶች ቁጥር ቅርጸት ያዘጋጁ
Excel.WorkBooks.የስራ ሉሆች.አምዶች.ቁጥር ቅርጸት፡= "0.00";
Excel.WorkBooks.የስራ ሉሆች.አምዶች.ቁጥር ቅርጸት፡= "0.0";

// የመጀመሪያውን እና የሁለተኛውን ዓምዶች ስፋት ያዘጋጁ
Excel.Workbooks.የስራ ሉሆች.አምድ.አምድ ስፋት፡= 10;
Excel.Workbooks.የስራ ሉሆች.አምድ.አምድ ስፋት፡= 20;

// ለመጀመሪያው ረድፍ ዘይቤ ፣ ቀለም ፣ መጠን እና የቅርጸ-ቁምፊ ዓይነት ያዘጋጁ
Excel.WorkBooks.የስራ ሉሆች.ረድፎች.ፊደል.ደፋር፡= እውነት; // ስብ
Excel.Workbooks.የስራ ሉሆች.ረድፎች.ፊደል.ቀለም፡= clRed; // ቀይ ቀለም
Excel.Workbooks.የስራ ሉሆች.ረድፎች.ቅርጸ-ቁምፊ መጠን:= 12; // መጠን 12
Excel.WorkBooks.የስራ ሉሆች.ረድፎች.ፊደል ስም፡= "Times New Roman"; // ፎንት

// የሕዋስ እሴቶችን 1.4 እና 2.4 መድብ (1 - ረድፍ ፣ 4 - አምድ)
excel.WorkBooks.Worksheets.ሴሎች:= "እና በዚህ መንገድ ወደ ሴል እሴት ማስገባት ይችላሉ";
excel.WorkBooks.Worksheets.ሴሎች:= "እና በዚህ መንገድ ወደ ሴል እሴት ማስገባት ይችላሉ";

// ቀመሩን "= b5+c4" ወደ ሕዋስ "A12" በማስገባት ላይ
Excel.WorkBooks.የስራ ሉሆች.ክልል["A12"]።ፎርሙላ፡="=b5+c4";

// የመጀመሪያውን ረድፍ በአቀባዊ ወደ መሃል አሰልፍ
Excel.WorkBooks.የስራ ሉሆች.ረድፎች.አቀባዊ አሰላለፍ፡= xlCenter;

// የመጀመሪያውን ረድፍ በአግድም ወደ መሃሉ አስተካክል
Excel.WorkBooks.የስራ ሉሆች.ረድፎች.አግድም አሰላለፍ፡= xlCenter;

// ሴሉን በግራ በኩል አሰልፍ
Excel.Workbooks.የስራ ሉሆች.ሴሎች.አግድም አሰላለፍ፡= xlግራ;

// ሴሉን ወደ ቀኝ አሰልፍ
Excel.WorkBooks.የስራ ሉሆች.ሴሎች.አግድም አሰላለፍ፡= xlራይት;

// ሴሎችን አዋህድ "A1: A8"
Excel.WorkBooks.የስራ ሉሆች.ክልል["A1፡A8"]።መዋሃድ;

// ቃላቶቹን በ 90 ዲግሪ ማእዘን ለሁለተኛው ረድፍ ያሽከርክሩ
Excel.Workbooks.የስራ ሉሆች.ረድፎች.አቅጣጫ፡= 90;

// ቃላቶቹን በ 45 ዲግሪ ማእዘን ለህዋስ ክልል "B3:D3" አሽከርክር
Excel.WorkBooks.የስራ ሉሆች.ክልል["B3፡D3"]።አቅጣጫ፡= 45;

// የግራውን የተመረጠውን ክልል ወሰኖች ይሳሉ
Excel.Selection.Borders.LineStyle:= xlቀጣይ; // ጠንካራ መስመር ቅጥ
Excel.ምርጫ.Borders.ክብደት፡= xlሚዲየም፤// የመስመር ውፍረት

// የተመረጠውን ክልል ወሰኖች ወደ ላይ ይሳሉ

Excel.ምርጫ.ድንበሮች.ክብደት:= xlሚዲየም;

// የተመረጠውን ክልል ድንበሮች ዝቅ አድርገው ይሳሉ

Excel.ምርጫ.ድንበሮች.ክብደት:= xlሚዲየም;

// የተመረጠውን ክልል ወሰኖች በትክክል ይሳሉ

Excel.ምርጫ.ድንበሮች.ክብደት:= xlሚዲየም;

// የተመረጠውን ክልል ወሰኖች በአቀባዊ ወደ ውስጥ ይሳሉ

Excel.ምርጫ.ድንበሮች.ክብደት:= xlሚዲየም;

// የተመረጠውን ክልል ወሰኖች በአግድም ወደ ውስጥ ይሳሉ

Excel.ምርጫ.ድንበሮች.ክብደት:= xlሚዲየም;

// የተመረጠውን ክልል በራስ-ሙላ
//ለምሳሌ የሕዋሶችን ቦታ "A10:C10" በ "ሄሎ" በሚለው ቃል ይሙሉ.
// እና ወደ ሌላ አምስት ሴሎች ያባዙት "A10: C15"
Excel.WorkBooks.WorkSheets. ክልል["A10:C10"]።እሴት፡="ሄሎ";

//የሴሎች ክልልን ይምረጡ "A10:C10"
Excel.WorkBooks.የስራ ሉሆች.ክልል["A10፡C10"]።ይምረጡ፤

// ከተመረጠው ክልል ጋር "A10: C15" የሕዋስ አካባቢን በራስ ሰር ሙላ (ቅዳ)
excel.selection.autofill(excel.WorkBooks.WorkSheets.Range["A10:C15"]፣xlFillDefault);

// ስለ ቁጠባ እና ሌሎች ጥያቄዎችን ላለመጠየቅ ማስጠንቀቂያዎችን ያሰናክሉ።
Excel.DisplayAlerts:= ሐሰት;

// ሰነዱን ያስቀምጡ የ Excel ቅርጸት 97-2003
Excel.ActiveWorkBook.Saveas(GetCurrentDir() +"report.xls",xlExcel8);

// ሰነዱን አሁን ባለው የ Excel 2007 ቅርጸት ያስቀምጡ
Excel.ActiveWorkBook.Saveas(GetCurrentDir() +"report.xlsx");

// ሁሉንም መጽሐፍት ዝጋ
Excel.የስራ ደብተሮች.ዝጋ;

// Excel ዝጋ
Excel.Application.ማቋረጥ;

// በይነገጾች ነጻ
Excel:= ያልተመደበ;

// ስህተቶችን ማስተናገድ

// ሁሉንም መጽሐፍት ዝጋ
Excel.የስራ ደብተሮች.ዝጋ;

// Excel ዝጋ
Excel.Application.ማቋረጥ;

// በይነገጾች ነጻ
Excel:= ያልተመደበ;
መጨረሻ;
መጨረሻ;

ጋር ሲሰራ የ Excel ሉህየሚከተሉትን አማራጮች መጠቀም እንችላለን:
- ከክልል["B3:D3"] አካባቢ ጋር መሥራት;
- ከሴሎች ሴል ጋር መሥራት 2 ረድፍ ፣ 4 አምድ ነው ።
- በመስመሮች ረድፎች ወይም ረድፎች ክልል ["1:5"];
- ከአምዶች ጋር መሥራት ከአምዶች ወይም ከአምዶች ክልል ጋር አምዶች["A:I"];

ክልል["A1"] እና ሴሎች ማለት አንድ አይነት ነገር ነው።

ሰነዱ ከተፈጠረ ወይም ስህተት ከተፈጠረ በኋላ, በይነገጾቹን በትክክል መልቀቅ አለብዎት.
አለበለዚያ በሚዘጋበት ጊዜ ኤክሴልከማያ ገጹ ላይ ይጠፋል, ነገር ግን የተግባር አስተዳዳሪውን ከከፈቱ እዚያ መሰቀሉን ይቀጥላል እና ከሆነ ይህ ሂደትአልተጠናቀቀም, ከዚያም በእያንዳንዱ አዲስ ጅምር ኮምፒውተሩ መቀዝቀዝ እስኪጀምር ድረስ ብዙ እና የበለጠ ይሰበስባሉ. ስለዚህ, ከ ጋር የተያያዙ ሁሉንም በይነገጾች መልቀቅ በጣም አስፈላጊ ነው ኤክሴልከመጽሐፎቹ እና አንሶላዎቹ ጋር.

ለምሳሌ እንደዚህ፡-
// ሁሉንም መጽሐፍት ዝጋ
Excel.የስራ ደብተሮች.ዝጋ;

// Excel ዝጋ
Excel.Application.ማቋረጥ;

// በይነገጾች ነጻ
ሉህ: = ያልተመደበ; // የሉህ በይነገጽ ከተፈጠረ
የስራ መጽሐፍ፡= ያልተመደበ፤//የስራ ደብተር በይነገጽ ከተፈጠረ
Excel:= ያልተመደበ፤// የፕሮፖዛሉ ራሱ ከተፈጠረ በይነገጽ

ከዚህ በታች የውጤቱ ምሳሌ ነው። ኤክሴል ከዴልፊ የማባዛት ሠንጠረዦች ከዝርዝር አስተያየቶች ጋር.

ክፍል 1;

ይጠቀማል
ዊንዶውስ፣ መልእክቶች፣ SysUtils፣ ተለዋጮች፣ ክፍሎች፣ ግራፊክስ፣ መቆጣጠሪያዎች፣ ቅጾች፣
መገናኛዎች፣ comobj፣ StdCtrls፣ Excel_TLB;

ዓይነት
TForm1 = ክፍል (ቲፎርም)
አዝራር1፡ TButton;
የአሰራር ሂደት Button1Click (ላኪ: TObject);
የግል
(የግል መግለጫዎች)
የህዝብ
(የህዝብ መግለጫዎች)
መጨረሻ;

ቫር
ቅጽ1፡ TForm1;
ኤክሴል፡ ተለዋጭ; // የ EXCEL ነገር የተፈጠረበት ተለዋዋጭ
MyData: ተለዋጭ; // የማባዛት ሰንጠረዥ የተፈጠረበት ተለዋዋጭ
i,j:ኢንቲጀር;
ትግበራ

ሂደት TForm1.Button1Click (ላኪ፡ TObject);
ጀምር
ሞክር
// EXCEL ነገር
Excel: = CreateOleObject ("Excel.Application");
// ሰነዱን ስለማስቀመጥ ጥያቄውን ላለመጠየቅ
Excel.DisplayAlerts:= ሐሰት;
// አዲስ ሰነድ
Excel.Workbooks.አክል;

//ተለዋጭ ድርድር ማወጅ
MyData:= VarArrayCreate(,varVariant);
ለ I:= 1 እስከ 9 አድርጉ
ለጄ፡= 1 እስከ 9 አድርጉ
MyData፡=i*j;

// ሴሎችን አዋህድ "A1:I1"
Excel.WorkBooks.የስራ ሉሆች.ክልል["A1፡I1"]።መዋሃድ;
// ርዕሱን ጻፍ
Excel.WorkBooks.WorkSheets. ክልል["A1"]።እሴት፡="ማባዛት ሠንጠረዦች";
// ርዕሱን ወደ መሃል አሰልፍ
Excel.WorkBooks.የስራ ሉሆች.ክልል["A1"]።አግድም አሰላለፍ፡= xlCenter;
// የአምዶችን ስፋት ከ A እስከ I ያዘጋጁ
Excel.Workbooks.የስራ ሉሆች.አምዶች["A:I"]።የአምድ ስፋት፡= 3;

// የማባዛት ሠንጠረዡን ቦታ ይምረጡ ("A2: I10") እና ድንበሮችን ይሳሉ
Excel.Workbooks.የስራ ሉሆች.ክልል["A2:I10"] ምረጥ;
// የግራውን የተመረጠውን ክልል ወሰኖች ይሳሉ
Excel.Selection.Borders.LineStyle:= xlቀጣይ; // የመስመር ዘይቤ ጠንካራ ነው።
Excel.Selection.Borders.ክብደት:= xlThin; // የመስመር ውፍረት
// የተመረጠውን ክልል ወሰኖች ወደ ላይ ይሳሉ
Excel.Selection.Borders.LineStyle:= xlቀጣይ;
Excel.Selection.Borders.ክብደት:= xlThin;
// የተመረጠውን ክልል ድንበሮች ዝቅ አድርገው ይሳሉ
Excel.Selection.Borders.LineStyle:= xlቀጣይ;
Excel.Selection.Borders.ክብደት:= xlThin;
// የተመረጠውን ክልል ወሰኖች በትክክል ይሳሉ
Excel.Selection.Borders.LineStyle:= xlቀጣይ;
Excel.Selection.Borders.ክብደት:= xlThin;
// የተመረጠውን ክልል ወሰኖች በአቀባዊ ወደ ውስጥ ይሳሉ
Excel.Selection.Borders.LineStyle:= xlቀጣይ;
Excel.Selection.Borders.ክብደት:= xlThin;
// የተመረጠውን ክልል ወሰኖች በአግድም ወደ ውስጥ ይሳሉ
Excel.Selection.Borders.LineStyle:= xlቀጣይ;
Excel.Selection.Borders.ክብደት:= xlThin;

// ክልሉን ["A2: I10"] ለተለዋዋጭ ድርድር MyData እሴቶች ይመድቡ ፣ ይህ ከውጤት // ሴሉላር አቅጣጫውን በእጅጉ ያፋጥነዋል።

Excel.WorkBooks.የስራ ሉሆች.ክልል["A2፡I10"]።እሴት፡=MyData;

// እንዲታይ ያድርጉት
Excel.የሚታይ፡= እውነት;
// በይነገጾች ነጻ
MyData:= ያልተመደበ;
Excel:= ያልተመደበ;
በስተቀር
የማሳያ መልእክት ("ትኩረት! የ MS Excel መተግበሪያን በመፍጠር ላይ ሳለ ስህተት ተከስቷል");
// Excel ዝጋ
Excel.Application.ማቋረጥ;
// በይነገጾች ነጻ
MyData:= ያልተመደበ;
Excel:= ያልተመደበ;
መጨረሻ;
መጨረሻ;

ይህን ጽሑፍ በሚጽፉበት ጊዜ, ከጣቢያው የተገኙ ቁሳቁሶች ጥቅም ላይ ውለዋል

በዚህ ሞዴል በእያንዳንዱ ደረጃ ላይ ማቆም እና ለወራት ማጥናት ይችላሉ. ተጨማሪ ንብረቶችን እና ዘዴዎችን ለማጥናት ልዩ ፍላጎት ካለ, በእርግጠኝነት ተመልሰን እናጠናለን. አሁን፣ ከስራ ደብተር ሉሆች ጋር በዴልፊ ውስጥ መሥራት እንጀምር።

2. የ Excel ደብተር ሉህ እንዴት እንደሚነቃ?

ባዶ የስራ ደብተር ሲፈጥሩ እንደሚያውቁት ኤክሴል በቀጥታ ወደዚህ መጽሐፍ 3 ይጨምራል ባዶ ሉህ. ከተወሰነ ሉህ ጋር ለመስራት ( የስራ ሉህወይም ብቻ ሉህ) ይህ ሉህ መንቃት አለበት። የሥራ መጽሐፍ ሉህ ለማንቃት አንዱ መንገድ ኤክሴል ቪ ዴልፊ ይህን ይመስላል፡-

Resourcestring rsEInvalidSheetIndex = "ልክ ያልሆነ መረጃ ጠቋሚ ለ Workbooks ተገልጿል:: ሉህ ማግበር ተቋርጧል"; rsEInvalidSheetActivate =;

ተግባር ActivateSheet(WBI ኢንዴክስ፡ ኢንቲጀር፤ የሉህ ስም፡ string)፡ ቡሊያን; var i: ኢንቲጀር;ጀምር ውጤት: = ውሸት;

WBIindex › MyExcel ከሆነ። የስራ መጽሐፍት። ይቁጠሩ ከዚያ Exceptionን ያሳድጉ። ይፍጠሩ (rsEInvalidSheetIndex) ; ይሞክሩ ለ i: = 1 ወደ MyExcel. የስራ መጽሐፍት [WBIindex]። ሉሆች AnsiLowerCase (MyExcel. Workbooks [WBIndex]) ከሆነ ይቁጠሩ። ሉሆች ንጥል [ i] = AnsiLowercase (SheetName) ከዚያ MyExcelን ይጀምሩ። Workbooks [WBIindex]። ሉሆች ንጥል[i] አግብር;ውጤት፡ = እውነት;

መሰባበር; መጨረሻ;ከማሳደግ በስተቀር። ይፍጠሩ (rsEInvalidSheetActivate) ;

መጨረሻ;

መጨረሻ; የስራ ሉህ.

እዚህ, የተግባር መለኪያዎች በክምችቱ ውስጥ ወደ የስራ ደብተር ኢንዴክስ (WBIndex) ተቀምጠዋል

የስራ መጽሐፍት። የስራ ሉህ.

እና የሉህ ስም.

ከፈለጉ በክምችቱ ውስጥ ተመሳሳዩን ሉህ በመረጃ ጠቋሚ ማግበር ይችላሉ። የስራ ሉህየስራ ሉሆች 30 - በተመሳሳይ ጊዜ, ተግባሩ ራሱ በትንሹ ቀለል ያለ ነው (የሉህ ስም የመፈተሽ ሁኔታ አያስፈልግም).

እንዲሁም, እርግጠኛ ከሆኑ	በአሁኑ ጊዜ
የሚፈልጉት የስራ ደብተር ገቢር ስለሆነ ተጨማሪ ተለዋዋጭ (የስራ ደብተር ኢንዴክስ WBIndex) ከመጠቀም መቆጠብ እና ሉህን እንደዚህ ማግበር ይችላሉ።	MyExcel. ActiveWorkbook. ሉሆች ንጥል[i] አግብር;
	አሁን እቃው የሚጠቀምባቸውን ዘዴዎች በዝርዝር እንመልከት 3. የ Excel የስራ ሉህ ዘዴዎችአሁን እቃውን በበለጠ ዝርዝር እንመልከተው ስዕሉ በስራዬ ውስጥ የተጠቀምኳቸውን ዘዴዎች ያሳያል.ጠቅላላ ዕቃ
	ድምር
	ሊጠቀሙባቸው የሚችሉ የተለያዩ ዘዴዎች.
	ዘዴ የስራ ሉህ
	መግለጫ
	አግብር
	የአሁኑን ሉህ ንቁ ያደርገዋል። ዘዴው እንዴት እንደሚሰራ አስቀድመን ተወያይተናል.
	ሁሉንም ነገር ያሰላል መጻሕፍትን ይክፈቱ , በመጽሐፍ ውስጥ የተወሰነ ሉህ, ወይምየተወሰነ ክልል
	በአንድ ሉህ ላይ ሴሎች በተመረጠው ሉህ ላይ የፊደል አጻጻፍ ያረጋግጡበፋይሉ ላይ ሁሉንም ለውጦች ያስቀምጣል።

የአሁኑን ሉህ ይሰርዛል

የሉህ ምርጫ ሉህ በስራ ደብተር ውስጥ ወደ ሌላ ቦታ ይገለበጣልየቅንጥብ ሰሌዳውን ይዘት ወደ የስራ ሉህ ይለጥፋል የስራ ሉህነጠላ ሥዕላዊ መግለጫዎችን የሚወክል ነገር ይመልሳል (ነገር

ChartObject

ChartObjects

) በሉሁ ላይ ሉህን ማንቀሳቀስ. ይህ ዘዴ ከስልቱ ጋር ተመሳሳይ ነውቅዳ

. ብቸኛው ልዩነት ከተለጠፈ በኋላ, የተቀዳው ሉህ ከመጽሐፉ ይሰረዛል

ከታች ያለው የኮድ ቅንጣቢ ንቁውን ሉህ ያሰላል

MyExcel. ActiveWorkbook. ActiveWorkSheet. አስላ

ሁሉንም ቀመሮች በአምዶች A፣ B እና C እናሰላ።

MyExcel. ActiveWorkbook. ActiveWorkSheet. ጥቅም ላይ የዋለው ክልል አምዶች("A:C")። አስላ

የፊደል አጻጻፍ ዘዴ

የስልት ጥሪው ይህን ይመስላል።

አገላለጽ. ሆሄያትን ማጣራት(ብጁ መዝገበ ቃላት፣ አቢይ ሆሄን ችላ በል፣ ሁልጊዜ ይጠቁሙ፣ ፊደል ላንግ)

በተመሳሳይ ጊዜ, እንደ ሉህ በስራ ደብተር ውስጥ ወደ ሌላ ቦታ ይገለበጣልሉህ መውጣት አለበት ( የስራ ሉህ).

መለኪያ	ዓይነት	በአሁኑ ጊዜ
ብጁ መዝገበ ቃላት	ተለዋጭ	ጋርቃሉ በዋናው መዝገበ-ቃላት ውስጥ ካልተገኘ ከግምት ውስጥ የሚያስገባ የተጠቃሚውን መዝገበ-ቃላት ፋይል ስም የሚገልጽ ሕብረቁምፊ። ይህ ግቤት ከተተወ፣ ነባሪው መዝገበ ቃላት ስራ ላይ ይውላል
አቢይ ሆሄን ችላ በል	ተለዋጭ	እውነት ነው።, አስፈላጊ ከሆነ, ስለዚህ ማይክሮሶፍት ኤክሴል በትላልቅ ፊደላት የተጻፉ ቃላትን ዘለሉ. ውሸትስለዚህ ማይክሮሶፍት ኤክሴል ሁሉንም ቃላት ያረጋግጡ. ይህ መከራከሪያ ከተተወ፣ እንግዲህ የአሁኑ ቅንብሮችኤክሴል
ሁልጊዜ ይጠቁሙ	ተለዋጭ	እውነት ነው።፣ ስለዚህ ማይክሮሶፍት ኤክሴል ትክክል ያልሆነ የፊደል አጻጻፍ ቃል ሲገኝ ለሌሎች የፊደል አጻጻፍ ጥቆማዎች ዝርዝር አሳይቷል። ውሸት፣ ወደ ማይክሮሶፍት ኤክሴል ግብዓት እየጠበቀ ነበር። ትክክለኛ የፊደል አጻጻፍ. ይህ ነጋሪ እሴት ከተተወ፣ አሁን ያሉት መቼቶች ጥቅም ላይ ይውላሉ።
SpellLang	ተለዋጭ	መዝገበ ቃላት ቋንቋ. የአንዱን ቋሚ እሴቶችን መውሰድ ይችላል። MsoLanguageID ለምሳሌ ለሩሲያ ቋንቋ SpellLang = 1049፣ ለእንግሊዘኛ (አሜሪካ) SpellLang = 1033ወዘተ. ስለ ቋንቋ መለያዎች ተጨማሪ ዝርዝሮች።

በዴልፊ ውስጥ በ Excel ሉህ ላይ ሰዋሰው እንዴት ማረጋገጥ እንደሚቻል?

MyExcel ActiveWorkbook. ActiveWorkSheet. ቼክ ሆሄ (ብጁ መዝገበ ቃላት፡= ባዶ ፓራም፣ አቢይ ሆሄን ችላ በል፡= ሐሰት፣ ሁልጊዜ ይጠቁሙ፡= ባዶ ፓራም፣ SpellLang:=1033)

በዚህ ጉዳይ ላይ MS Excel የቃላቶችን መፈተሽ ጨምሮ የአሁኑን ሉህ ያረጋግጣል አቢይ ሆሄያት. የማረጋገጫ ቋንቋው ሩሲያኛ ነው። እባክዎን ወደ ዘዴው ለመደወል የትኛውን ዋጋ እንደሚመድብ በግልፅ ገልፀናል። ከዚህም በላይ, ማንኛውንም መለኪያ ለመዝለል, እንጠቀማለን ባዶ ፓራም(ባዶ መለኪያ)፣ ይህም ውስጥ ነው። ዴልፊ ዓይነት ተለዋዋጭ ነው OleVariant.

ይህ የመደወያ ዘዴዎች (ከሁሉም መለኪያዎች ጋር በግልፅ) ለእርስዎ ሙሉ በሙሉ የማይመች እና በእንግሊዘኛ ፕሮግራሚንግ ላይ በስፋት የማይተገበር መሆኑ ግልጽ ነው። ዴልፊ ሆኖም ግን, ይህ ብቸኛው መንገድ ነው እና ውስጥ ጥቅም ላይ የዋሉ ዘዴዎችን ለመጥራት ሌላ መንገድ የለም ኤክሴል .

የSaveAs ዘዴ

የ Excel የስራ ሉህ ሉህ በማስቀመጥ ላይ።

ዘዴ ጥሪ፡

አገላለጽ.SaveAs(የፋይል ስም፣ የፋይል ቅርጸት፣ የይለፍ ቃል፣ የይለፍ ቃል ይፃፉ፣ ተነባቢ ብቻ የሚመከር፣ ባክአፕ ይፍጠሩ፣ ቶሙሩ፣ የጽሑፍ ኮድ ገጽ፣ የጽሑፍ እይታ አቀማመጥ፣ አካባቢያዊ)

መለኪያ	ዓይነት	በአሁኑ ጊዜ
የፋይል ስም	ተለዋጭ	የሚቀመጥበትን ፋይል ስም የሚወክል ሕብረቁምፊ። መገለጽ አለበት። ሙሉ መንገድወደ ፋይሉ, አለበለዚያ ፋይሉ ወደ አቃፊው ይቀመጣል ኤክሴል .
የፋይል ቅርጸት	ተለዋጭ	በሚቀመጥበት ጊዜ ጥቅም ላይ የሚውለው የፋይል ቅርጸት. በነባሪ, ፋይሉ በመረጡት ቅርጸት ይቀመጣል የመጨረሻ ጊዜቪ ኤክሴል
የይለፍ ቃል	ተለዋጭ	ለፋይሉ የይለፍ ቃል (ከ 15 ቁምፊዎች ያልበለጠ). የይለፍ ቃሉ ለጉዳይ ሚስጥራዊነት ያለው ነው።
የይለፍ ቃል ፃፍ	ተለዋጭ	በስራ ደብተር ላይ ለውጦችን ለማድረግ ጥቅም ላይ የሚውል የይለፍ ቃል. የይለፍ ቃል ካልተገለጸ መጽሐፉ በተነባቢ-ብቻ ሁነታ ይከፈታል።
አንብብ ብቻ የሚመከር	ተለዋጭ	መለኪያው እኩል ከሆነ እውነት ነው።, ከዚያም አንድ ፋይል ሲከፍቱ, ፋይሉ ለንባብ ብቻ እንዲከፈት የሚገልጽ መልእክት በማሳያው ላይ ይታያል.
ምትኬን ይፍጠሩ	ተለዋጭ	እውነት ነው።, የመጠባበቂያ ፋይል ለመፍጠር
AddToMru	ተለዋጭ	እውነት ነው።, በቅርቡ በዝርዝሩ ውስጥ የተቀመጠውን ፋይል ስም ለመጨመር ፋይሎችን ይክፈቱበዋናው ምናሌ ውስጥ ኤክሴል
የጽሑፍ ኮድ ገጽእና TextVisualLayout	ተለዋጭ	ለኋላ ተኳኋኝነት በአሁኑ ጊዜ ጥቅም ላይ ያልዋለ እና የተያዘ
አካባቢያዊ	ተለዋጭ	አይደለም አስፈላጊ መለኪያ፣ በነባሪነት እኩል ነው። ውሸት።ትርጉም እውነት ነው።- ፋይሎችን ከ የማይክሮሶፍት ቋንቋኤክሴል (የቁጥጥር ፓነል ቅንብሮችን ጨምሮ).

MyExcel.ActiveWorkbook.ActiveWorkSheet.SaveAs("C\:MyExcelFile.xls")

በዚህ አጋጣሚ, በሚቀመጡበት ጊዜ ነባሪ ቅንጅቶች ጥቅም ላይ ይውላሉ.

ማስቀመጥ ከፈለጉ የ Excel ፋይልበተለየ ቅርጸት, ከዚያም በመለኪያው ውስጥ የፋይል ቅርጸትከሂሳብ ቆጣሪዎቹ አንዱን መጠቀም ይችላሉ። xlፋይል ቅርጸት . አንዳንድ ትርጉሞች xlፋይል ቅርጸት ከዚህ በታች ባለው ሠንጠረዥ ውስጥ ቀርበዋል.

ስም	ትርጉም	በአሁኑ ጊዜ	የፋይል ቅጥያ
xlCSV	6	CSV	*.ሲ.ኤስ.ቪ
xlExcel8	56	የ Excel 97-2003 የሥራ መጽሐፍ	*.xls
xlHtml	44	HTML ቅርጸት	* ኤችቲኤም; *.ኤችቲኤምኤል
xlOpenDocument የተመን ሉህ	60	የክፍት ሰነድ የተመን ሉህ	*.ods
xlOpenXMLየስራ ደብተር	51	የኤክስኤምኤል መጽሐፍን ክፈት	*.xlsx

የ Excel ሉህ በተለያዩ ቅርፀቶች ለማስቀመጥ የሚያስችል ትንሽ አሰራር እንፃፍ።

const xlCSV = 6; xlExcel8 = 56; xlHtml = 44;

xlOpenDocumentSpreadsheet = 60;

xlOpenXMLWorkbook = 51;

Resourcestring rsESaveActiveSheet =

"ገባሪ ሉህ ማስቀመጥ ላይ ስህተት"

;

Processor SaveAs (const AFIleName: TFileName; AFIleFormat: integer);

ዘዴ ጥሪ፡

MyExcelን ይሞክሩ። ActiveWorkbook. አክቲቭ ሉህ SaveAs(AFIleName, AFileFormat);

ከማሳደግ በስተቀር። ይፍጠሩ(rsESaveActiveSheet); መጨረሻ;መጨረሻ; ዘዴን ሰርዝየ Excel ሉህ ይሰርዙ።

የ Excel ሉህ ወደ ዴልፊ እንዴት መቅዳት እንደሚቻል?

MyExcel.ActiveWorkbook.የስራ ሉሆች.ንጥል.ቅዳ(በኋላ፡=MyExcel.ActiveWorkBook.Work Sheets.Item)

በዚህ ሁኔታ, የመጀመሪያው ሉህ ከሦስተኛው በኋላ ይገለበጣል እና ይለጠፋል.

ዘዴ ለጥፍ

የቅንጥብ ሰሌዳውን ይዘቶች ወደ ኤክሴል ሉህ ይለጥፉ።

ዘዴ ጥሪ፡

አገላለጽ። ለጥፍ(መድረሻ፣ ማገናኛ)

በዴልፊ ውስጥ የቅንጥብ ሰሌዳ ይዘቶችን በ Excel ሉህ ውስጥ እንዴት መለጠፍ እንደሚቻል?

MyExcel.ActiveWorkBook.ActiveSheet.Paste(መድረሻ፡=MyExcel.ActiveWorkBook.ActiveSheet.Range("D1:D5"))

በዚህ ሁኔታ የማከማቻው ይዘት ከ 1 እስከ 5 ባለው ረድፍ ውስጥ ባለው አምድ D ውስጥ ይገባል. ከዚያም ልዩ ሁኔታ.

ዘዴ , በመጽሐፍ ውስጥ የተወሰነ ሉህ, ወይም

ነጠላ ሥዕላዊ መግለጫዎችን የሚወክል ነገር ይመልሳል (ነገር መጻሕፍትን ይክፈቱ) ወይም የሁሉም ሥዕላዊ መግለጫዎች ስብስብ (ነገር , በመጽሐፍ ውስጥ የተወሰነ ሉህ, ወይም) በሉሁ ላይ።

ዘዴ ጥሪ፡

አገላለጽ.ChartObjects

በዴልፊ ውስጥ በ Excel ሉህ ውስጥ ገበታ እንዴት ማግኘት ይቻላል?

MyExcel.ActiveWorkbook.Active Sheet.ChartObjects

በዚህ ሁኔታ, የመጀመሪያው ይቀበላል.

የማንቀሳቀስ ዘዴ

አንድ ሉህ ማንቀሳቀስ. ይህ ዘዴ ከ ጋር ተመሳሳይ ነው. ብቸኛው ልዩነት ከተለጠፈ በኋላ, የተቀዳው ሉህ ከመጽሐፉ ይሰረዛል.

ከዚህ ጋር ስሰራ የተጠቀምኩባቸው ዘዴዎች ክፍል ይኸውና ኤክሴል ቪ ዴልፊ . በአጠቃላይ በ ውስጥ ማለት ይቻላል ዴልፊ መቆጣጠር ይቻላል MS Excel ከዚህ አፕሊኬሽን ጋር በቀጥታ ሲሰራ ምንም የከፋ አይደለም, ዋናው ነገር የትኛው ዘዴ ወይም ንብረት ለየትኛው ተጠያቂ እንደሆነ መዘንጋት የለበትም :). ደህና፣ ላለመርሳት ስል ትንሽ ማይንድ ካርታ ፈጠርኩ፣ እሱም በየጊዜው እጨምራለሁ እና አሻሽላለሁ። ሊንኩን በመከተል ማየት ይችላሉ። የ Excel ዕቃዎች, በእነሱ ጥቅም ላይ የሚውሉ ዘዴዎች, ዘዴዎች እና ዓይነቶቻቸውን መሠረት በማድረግ መለኪያዎች የዴልፊ ዓይነቶች. በአጠቃላይ፣ በዴልፊ ውስጥ ከኤክሴል ጋር መቀላቀል ለሚፈልጉ ትንሽ ግራፊክ ማጭበርበር።

በዚህ ጽሑፍ ውስጥ የ MS Excel ሥራ መጽሐፍን ከዴልፊ ለመድረስ የሚያስችሉዎትን መሰረታዊ ግንባታዎች እንመለከታለን.

የ EXCEL መጽሐፍ መዳረሻን ማደራጀት።

በፕሮግራሙ ውስጥ ከ MS Excel ጋር ለመገናኘት የ ComObj ሞጁሉን መጠቀም አለብዎት

ComObj ይጠቀማል;

እና ኤምኤስን ለመድረስ ተለዋዋጭ ያውጁ ኤክሴል ቀጥሎዓይነት፡

Var MsExcel: ተለዋጭ;

በቀላል ሁኔታ የ Excel ተለዋዋጭን ማስጀመር እንደሚከተለው ሊከናወን ይችላል-

MsExcel:= CreateOleObject ("Excel.Application");

አዲስ መጽሐፍ መፍጠር;

MsExcel.Workbooks.አክል;

ነባር መጽሐፍ በመክፈት ላይ (ዱካው ወደ ፋይሉ የሚወስደው መንገድ ከ xls ቅጥያ ጋር ነው።)

MsExcel.Workbooks.ክፍት;

ለንባብ-ብቻ ያለውን የሥራ መጽሐፍ ለመክፈት፡-

MsExcel.Workbooks.ክፍት;

ኤክሴልን መዝጋት፡

MsExcel.ActiveWorkbook.ዝጋ; MsExcel.Application.Quit;

ከMs Excel የሚቀርቡ ጥያቄዎችን (ማረጋገጫዎችን፣ ማሳወቂያዎችን) ማገድ፣ ለምሳሌ ፋይል ለማስቀመጥ የቀረበ ጥያቄን አግድ፡

MsExcel.DisplayAlerts:=ሐሰት;

ኤክሴልን በማያ ገጹ ላይ አሳይ፡-

MsExcel.Visible:= እውነት;

ወይም ደብቅ፡-

MsExcel.Visible:= ሐሰት;

የነቃውን የ MS Excel ሉህ ይዘት ማተም፡-

MsExcel.ActiveSheet.Printout;

በ EXCEL ውስጥ ውሂብ ማንበብ/መፃፍ

አሁን ባለው የ Excel ደብተር ውስጥ አንድን ሕዋስ በሚከተለው መንገድ ማግኘት ይችላሉ።

ለአንድ ሕዋስ እሴት ለመጻፍ፡-

MsExcel.Range["B2"]::"ሄሎ!";

ከአንድ ሕዋስ ዋጋ ለማንበብ፡-

S:=MsExcel.Range["B2"];

የት B2- የሕዋስ አድራሻ.

B2 የሕዋስ አድራሻ የት ነው።

MsExcel.Range]::"ሄሎ!";

የት - የሕዋስ መጋጠሚያ.

በአጠቃላይ ማንኛውንም እሴት ለኤክሴል ሴል (ቁምፊ፣ ኢንቲጀር፣ ክፍልፋይ፣ ቀን) መመደብ ይችላሉ፣ እና MS Excel በሴል ውስጥ ያለውን ነባሪ ቅርጸት ያዘጋጃል።

ማንኛውንም እሴት (ቁምፊ, ኢንቲጀር, ክፍልፋይ, ቀን) መመደብ ይችላሉ እና ኤክሴል በሴል ውስጥ ያለውን ነባሪ ቅርጸት ያዘጋጃል.

ለሚከተለው ሥራ የሕዋስ ቡድን መምረጥ (መምረጥ) ትችላለህ፡-

MsExcel.Range፣ MsExcel.ሴሎች።ይምረጡ፤ // ወይም MsExcel.Range["A1:C5"] .ምረጥ;

በዚህ ሁኔታ በሴሎች A1 እና C5 መካከል ያለው ቦታ ይመረጣል.

ከመረጡ በኋላ የሕዋስ ውህደትን፣ የቃላት መጠቅለያ እና አግድም እና ማዘጋጀት ይችላሉ። አቀባዊ አሰላለፍ:

// ሴሎችን ማዋሃድ MsExcel.Selection.MergeCells:=እውነት; // በ MsExcel.Selection.WrapText መሠረት መጠቅለል: = እውነት; // አግድም አሰላለፍ MsExcel.Selection.HorizontalAligment:=3; // አቀባዊ አሰላለፍ MsExcel.Selection.VerticalAligment:=1;

ለአቀባዊ እና አግድም አሰላለፍየሚከተሉት እሴቶች ጥቅም ላይ ይውላሉ:

1 - ነባሪ አሰላለፍ ጥቅም ላይ ይውላል
2 - የግራ አሰላለፍ
3 - መሃል ላይ
4 - በቀኝ በኩል.

የሕዋስ ድንበር

ወደ 1 ሲዋቀር የሕዋስ ድንበሮች በቀጭን ጠንካራ መስመሮች ይሳሉ።

በተጨማሪም ፣ ለድንበር ንብረት እሴቶችን መግለጽ ይችላሉ ፣ ለምሳሌ ፣ ከ 3 ጋር እኩል ነው ። ከዚያ ለተመረጠው እገዳ የላይኛው ድንበር ብቻ ይዘጋጃል ።

MsExcel.Selection.Borders.LineStyle:=1;

የድንበር ንብረት ዋጋ የተለየ የሕዋስ ጠርዞች ጥምረት ይገልጻል። በሁለቱም ሁኔታዎች ከ 1 እስከ 10 ባለው ክልል ውስጥ እሴቶችን መጠቀም ይችላሉ.

በ EXCEL ውስጥ የይለፍ ቃሎችን መጠቀም

ለሚሰራው የስራ ደብተር የይለፍ ቃል ማዘጋጀት በሚከተለው መንገድ ሊከናወን ይችላል፡

MsExcel.ActiveWorkbook.protect("ማለፍ") የይለፍ ቃል ለማዘጋጀት ይሞክሩ; የይለፍ ቃል ለማዘጋጀት የተደረገው ሙከራ ካልተሳካ ከ// ድርጊቶች በስተቀር;

የት ማለፍ- ለመጽሐፉ የይለፍ ቃል ያዘጋጁ።

የይለፍ ቃልን ከመጽሃፍ ውስጥ ማስወገድ ተመሳሳይ ነው, ትዕዛዙን ይጠቀሙ

MsExcel.ActiveWorkbook.አትከላከለው("ማለፍ");

የት ማለፍ

ለኤክሴል የስራ ደብተር ንቁ ሉህ የይለፍ ቃል ማዘጋጀት እና ማስወገድ ትእዛዞቹን በመጠቀም ይከናወናል

MsExcel.ActiveSheet.protect("ማለፊያ"); // የይለፍ ቃሉን ማዘጋጀት MsExcel.ActiveSheet.Unprotect("ማለፍ"); // የይለፍ ቃል አስወግድ

የት ማለፍ- መጽሐፉን ለመጠበቅ የይለፍ ቃል ተዘጋጅቷል.

በ EXCEL ውስጥ ረዳት ስራዎች

ረድፎችን ወደ ላይ በማንሳት ላይ

MsExcel.ረድፎች["5:15"] ምረጥ; MsExcel.ምርጫ.;

እነዚህን ድርጊቶች በሚፈጽሙበት ጊዜ ከ 5 እስከ 15 ያሉት መስመሮች ይሰረዛሉ.

በነቃው የ Excel ሉህ ላይ የሚቀዘቅዝ ቦታ ያዘጋጁ

// MsExcel.ActiveWindow.FreezePanes ከተቀናበረ ቦታውን ንቀል። // የተፈለገውን ሕዋስ ምረጥ, በዚህ ጉዳይ ላይ D3 MsExcel.Range["D3"] .ምረጥ; // የሚቀዘቅዝበትን ቦታ MsExcel.ActiveWindow.FreezePanes ያዘጋጁ:= እውነት;

ገባሪውን የ Excel የስራ ደብተር በማስቀመጥ ላይ