หมวดหมู่: com & activex
(i) ใช้วิธีการสร้างแบบไดนามิก
ก่อนอื่นสร้างวัตถุ Excel โดยใช้ comobj:
var excelapp: ตัวแปร;
ExcelApp: = createOleObject ('excel.application');
1) แสดงหน้าต่างปัจจุบัน:
excelapp.visible: = true;
2) เปลี่ยนแถบชื่อเรื่อง Excel:
excelapp.caption: = 'แอปพลิเคชันเรียก Microsoft Excel';
3) เพิ่มสมุดงานใหม่:
excelapp.workbooks.add;
4) เปิดสมุดงานที่มีอยู่:
excelapp.workbooks.open ('c: /excel/demo.xls');
5) ตั้งค่าแผ่นงานที่สองเป็นแผ่นงานที่ใช้งานอยู่:
excelapp.worksheets [2] .activate;
หรือ
excelapp.workssheets ['sheet2'] .activate;
6) กำหนดค่าให้กับเซลล์:
excelapp.cells [1,4] .Value: = 'แถวแรก, คอลัมน์ที่สี่';
7) ตั้งค่าความกว้างของคอลัมน์ที่ระบุ (หน่วย: จำนวนอักขระ) โดยใช้คอลัมน์แรกเป็นตัวอย่าง:
excelapp.activeSheet.columns [1] .Columnswidth: = 5;
8) ตั้งค่าความสูงของแถวที่ระบุ (หน่วย: ปอนด์) (1 ปอนด์ = 0.035 ซม.) และใช้ตัวอย่างพฤติกรรมที่สอง:
ExcelApp.Activesheet.Rows [2] .RowHeight: = 1/0.035;
9) แทรกการแบ่งหน้าก่อนบรรทัด 8:
excelapp.worksheets [1] .rows [8] .PageBreak: = 1;
10) ลบการแบ่งหน้าก่อนคอลัมน์ 8:
excelapp.activeSheet.columns [4] .PageBreak: = 0;
11) ระบุความกว้างของเส้นขอบ:
excelapp.activeSheet.Range ['b3: d4'] .borders [2] .weight: = 3;
1-left 2-right 3-top 4-bottom 5-slant ( /) 6-slant ( /)
12) ล้างสูตรเซลล์ของแถวแรกและคอลัมน์ที่สี่:
excelapp.activesheet.cells [1,4] .ClearContents;
13) ตั้งค่าคุณสมบัติตัวอักษรของบรรทัดแรก:
excelapp.activesheet.rows [1] .font.name: = 'lishu';
excelapp.activesheet.rows [1] .font.color: = clblue;
excelapp.activesheet.rows [1] .font.bold: = true;
excelapp.activesheet.rows [1] .font.underline: = true;
14) ทำการตั้งค่าหน้า:
.
excelapp.activesheet.pagesetup.centerheader: = 'รายงานการสาธิต';
b.
excelapp.activesheet.pagesetup.centerfooter: = 'หน้า & p';
c.
excelapp.activeSheet.pagesetup.headermargin: = 2/0.035;
d.
excelapp.activeSheet.pagesetup.headermargin: = 3/0.035;
e.
excelapp.activesheet.pagesetup.topmargin: = 2/0.035;
f.
excelapp.activesheet.pagesetup.bottommargin: = 2/0.035;
G.LEFT MARGIN 2 ซม.:
excelapp.activesheet.pagesetup.leftmargin: = 2/0.035;
h.
excelapp.activesheet.pagesetup.rightmargin: = 2/0.035;
i.
excelapp.activesheet.pagesetup.centerhorizontally: = 2/0.035;
j.
excelapp.activeSheet.pagesetup.centervertically: = 2/0.035;
k.
excelapp.activesheet.pagesetup.printgridlines: = true;
15) การดำเนินการคัดลอก:
.
excelapp.activesheet.used.range.copy;
b. คัดลอกพื้นที่ที่ระบุ:
excelapp.activeSheet.Range ['A1: E2'] .COPY;
c. เริ่มวางจากตำแหน่ง A1:
excelapp.activeSheet.Range. ['A1'] .pastespecial;
d. เริ่มวางจากจุดสิ้นสุดของไฟล์:
excelapp.activeSheet.Range.pastespecial;
16) แทรกแถวหรือคอลัมน์:
.
b.
17) ลบแถวหรือคอลัมน์:
.
b.
18) แผ่นงานตัวอย่างพิมพ์:
excelapp.activeSheet.printpreview;
19) แผ่นงานพิมพ์:
excelapp.activesheet.printout;
20) แผ่นงานบันทึก:
หากไม่ได้ ExcelApp.Active Workbook.saved แล้ว
excelapp.activeSheet.printpreview;
21) บันทึกแผ่นงานเป็น:
excelapp.saveas ('c: /excel/demo1.xls');
22) ยอมแพ้การออม:
excelapp.active Workbook.saved: = true;
23) ปิดสมุดงาน:
excelapp.workbooks.close;
24) ออก Excel:
Excelapp.quit;
(ii) ใช้วิธีการควบคุม Delphi
ใส่ excelapplication, excelworkbook และ excelworksheet ในรูปแบบตามลำดับ
1) Open Excel
ExcelApplication1.Connect;
2) แสดงหน้าต่างปัจจุบัน:
ExcelApplication1. Visible [0]: = true;
3) เปลี่ยนแถบชื่อเรื่อง Excel:
ExcelApplication1.caption: = 'แอปพลิเคชันเรียก Microsoft Excel';
4) เพิ่มสมุดงานใหม่:
excelworkbook1.connectto (excelapplication1.workbooks.add (emptyparam, 0));
5) เพิ่มแผ่นงานใหม่:
var temp_worksheet: _worksheet;
เริ่ม
temp_worksheet: = excelworkbook1
worksheets.add (emptyparam, emptyparam, emptyparam, emptyparam, 0) เป็น _worksheet;
excelworksheet1.connectto (temp_worksheet);
จบ;
6) เปิดสมุดงานที่มีอยู่:
ExcelApplication1.Workbooks.Open (C: /a.xls
emptyparam, emptyparam, emptyparam, emptyparam, embyparam,
emptyparam, emptyparam, emptyparam, emptyparam, embyparam,
emptyparam, emptyparam, emptyparam, embtyparam, 0)
7) ตั้งค่าแผ่นงานที่สองเป็นแผ่นงานที่ใช้งานอยู่:
Excelapplication1.Worksheets [2].
ExcelApplication1.workssheets ['Sheet2'] .activate;
8) กำหนดค่าให้กับเซลล์:
ExcelApplication1.Cells [1,4] .Value: = 'แถวแรก, คอลัมน์ที่สี่';
9) ตั้งค่าความกว้างของคอลัมน์ที่ระบุ (หน่วย: จำนวนอักขระ) โดยใช้คอลัมน์แรกเป็นตัวอย่าง:
ExcelApplication1.Activesheet.Columns [1] .Columnswidth: = 5;
10) ตั้งค่าความสูงของแถวที่ระบุ (หน่วย: ปอนด์) (1 ปอนด์ = 0.035 ซม.) และใช้ตัวอย่างพฤติกรรมที่สอง:
ExcelApplication1.Activesheet.Rows [2] .RowHeight: = 1/0.035;
11) แทรกการแบ่งหน้าก่อนบรรทัด 8:
ExcelApplication1.Worksheets [1] .Rows [8] .PageBreak: = 1;
12) ลบการแบ่งหน้าก่อนคอลัมน์ 8:
ExcelApplication1.Activesheet.Columns [4] .PageBreak: = 0;
13) ระบุความกว้างของเส้นขอบ:
ExcelApplication1.Activesheet.Range ['B3: D4'] .Borders [2] .weight: = 3;
1-left 2-right 3-top 4-bottom 5-slant ( /) 6-slant ( /)
14) ล้างสูตรเซลล์ของแถวแรกและคอลัมน์ที่สี่:
ExcelApplication1.Activesheet.cells [1,4] .ClearContents;
15) ตั้งค่าคุณสมบัติตัวอักษรของบรรทัดแรก:
ExcelApplication1.Activesheet.Rows [1] .Font.Name: = 'Lishu';
ExcelApplication1.Activesheet.Rows [1] .Font.Color: = ClBlue;
ExcelApplication1.Activesheet.Rows [1] .Font.Bold: = true;
ExcelApplication1.Activesheet.Rows [1] .Font.UnderLine: = true;
16) ทำการตั้งค่าหน้า:
.
ExcelApplication1.Activesheet.pagesetup.CenterHeader: = 'รายงานการสาธิต';
b.
ExcelApplication1.Activesheet.pagesetup.CenterFooter: = 'Page & P';
c.
ExcelApplication1.Activesheet.pagesetup.headermargin: = 2/0.035;
d.
ExcelApplication1.Activesheet.pagesetup.headermargin: = 3/0.035;
e.
ExcelApplication1.Activesheet.pagesetup.topmargin: = 2/0.035;
f.
ExcelApplication1.Activesheet.pagesetup.bottommargin: = 2/0.035;
G.LEFT MARGIN 2 ซม.:
ExcelApplication1.Activesheet.pagesetup.leftmargin: = 2/0.035;
h.
ExcelApplication1.Activesheet.pagesetup.rightMargin: = 2/0.035;
i.
ExcelApplication1.Activesheet.pagesetup.centerhorizontally: = 2/0.035;
j.
ExcelApplication1.Activesheet.pagesetup.centervertically: = 2/0.035;
k.
ExcelApplication1.Activesheet.pagesetup.printGridlines: = true;
17) การคัดลอกการดำเนินการ:
.
Excelapplication1.activeSheet.used.range.copy;
b. คัดลอกพื้นที่ที่ระบุ:
ExcelApplication1.Activesheet.Range ['A1: E2'] .COPY;
c. เริ่มวางจากตำแหน่ง A1:
ExcelApplication1.Activesheet.Range. ['A1'] .pastespecial;
d. เริ่มวางจากจุดสิ้นสุดของไฟล์:
ExcelApplication1.ActiveSheet.Range.Pastespecial;
18) แทรกแถวหรือคอลัมน์:
.
b.
19) ลบแถวหรือคอลัมน์:
.
b.
20) แผ่นงานตัวอย่างพิมพ์:
ExcelApplication1.Activesheet.printpreview;
21) แผ่นงานพิมพ์:
ExcelApplication1.Activesheet.printout;
22) แผ่นงานบันทึก:
หากไม่ได้รับการอธิบาย
ExcelApplication1.Activesheet.printpreview;
23) บันทึกแผ่นงานเป็น:
ExcelApplication1.saveas ('C: /excel/demo1.xls');
24) ยอมแพ้การออม:
ExcelApplication1.ActiveWorkbook.saved: = true;
25) ปิดสมุดงาน:
ExcelApplication1.Workbooks.close;
26) ออก Excel:
Excelapplication1.quit;
ExcelApplication1.Disconnect;
(iii) ใช้ Delphi เพื่อควบคุมไดอะแกรม 2D Excel
วาง excelapplication, excelworkbook และ excelworksheet ในรูปแบบตามลำดับ
var shell1, acart, ช่วง: ตัวแปร;
1) เลือกแผ่นงานแรกเมื่อสมุดงานเล่มแรก
shell1: = excelapplication1.workbooks [1] .worksheets [1];
2) เพิ่มกราฟสองมิติ
Achart: = sheet1.chartobjects.add (100,100,200,200);
3) เลือกรูปร่างของกราฟสองมิติ
achart.chart.charttype: = 4;
4) กำหนดค่าให้กับกราฟสองมิติ
ซีรีส์: = acart.chart.seriescollection;
ช่วง: = sheet1! r2c3: r3c9;
series.add (range, true);
5) เพิ่มชื่อของกราฟสองมิติ
achart.chart.hastitle: = true;
achart.chart.charttitle.characters.text: = 'Excle 2d Diagram'
6) เปลี่ยนขนาดตัวอักษรชื่อของกราฟสองมิติ
achart.chart.charttitle.font.size: = 6;
7) เพิ่มคำอธิบายลงในตัวเลขสองมิติ
achart.chart.axes (xlcategory, xlprimary) .hastitle: = true;
achart.chart.axes (xlcategory, xlprimary) .axistitle.characters.text: = 'คำอธิบายตัวห้อย';
8) เพิ่มเครื่องหมายซ้ายลงในรูปสองมิติ
achart.chart.axes (xlvalue, xlprimary) .hastitle: = true;
achart.chart.axes (xlvalue, xlprimary) .axistitle.characters.text: = 'คำอธิบายเครื่องหมายซ้าย';
9) เพิ่มเครื่องหมายขวาให้กับตัวเลขสองมิติ
achart.chart.axes (xlvalue, xlsecondary) .hastitle: = true;
achart.chart.axes (xlvalue, xlsecondary) .axistitle.characters.text: = 'คำอธิบายเครื่องหมายขวา';
10) เปลี่ยนขนาดพื้นที่แสดงผลของกราฟสองมิติ
achart.chart.plotarea.left: = 5;
achart.chart.plotarea.width: = 223;
achart.chart.plotarea.height: = 108;
11) เพิ่มคำแนะนำลงในแกนพิกัดของกราฟสองมิติ
achart.chart.seriescollection [1] .name: = 'คำอธิบายแกน';