카테고리 : com & activex
(i) 동적 생성 방법을 사용하십시오
먼저 comobj를 사용하여 Excel 객체를 만듭니다.
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 cm)의 높이를 설정하고 두 번째 동작 예제를 사용하십시오.
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 왼쪽 2 권 3 ~ 4- 바닥 5- 슬랜트 ( /) 6 슬래랑 ( /)
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) 페이지 설정 :
a. 헤드러 :
ExcelApp.activesheet.pagesetup.centerheader : = 'report demo';
b. 바닥 글 :
ExcelApp.activesheet.pagesetup.centerfooter : = 'page & p';
c. 상단 마진은 2cm입니다.
ExcelApp.ActiveSheet.PagesEtup.HeaderMargin : = 2/0.035;
d. 바닥의 바닥에있는 마진은 3cm입니다.
ExcelApp.ActiveSheet.PagesEtup.HeaderMargin : = 3/0.035;
e. 상단 마진 2cm :
ExcelApp.activesheet.pagesetup.topmargin : = 2/0.035;
f. 하단 마진 2cm :
ExcelApp.activesheet.pagesetup.bottommargin : = 2/0.035;
G.Left 마진 2cm :
ExcelApp.ActiveSheet.pagesetup.leftmargin : = 2/0.035;
h. 오른쪽 마진 2cm :
ExcelApp.activesheet.pagesetup.rightmargin : = 2/0.035;
i. 페이지는 수평으로 중앙에 있습니다.
ExcelApp.activesheet.pagesetup.centerhorizontally : = 2/0.035;
j. 페이지는 수직 중앙에 있습니다.
ExcelApp.ActiveSheet.PagesEtup.Centervertical : = 2/0.035;
k. 인쇄 셀 메쉬 케이블 :
ExcelApp.activesheet.pagesetup.printgridlines : = true;
15) 복사 작업 :
a. 전체 워크 시트를 복사하십시오.
ExcelApp.activesheet.used.range.copy;
b. 지정된 영역 복사 :
ExcelApp.ActivESheet.Range [ 'A1 : E2'] .copy;
c. 위치 A1에서 붙여 넣기 시작 :
ExcelApp.activesheet.range. [ 'a1'] .pastescial;
d. 파일 끝에서 붙여 넣기 시작 :
ExcelApp.activesheet.range.pastespecial;
16) 행 또는 열 삽입 :
a. excelapp.activesheet.rows [2] .insert;
b. Excelapp.activesheet.columns [1]. 인트;
17) 행 또는 열 삭제 :
a. excelapp.activesheet.rows [2] .Delete;
b. Excelapp.activesheet.columns [1] .Delete;
18) 인쇄 미리보기 워크 시트 :
ExcelApp.activesheet.printpreview;
19) 인쇄 워크 시트 :
ExcelApp.activesheet.printout;
20) 워크 시트 절약 :
ExcelApp.ActiveWorkBook.saved가 아닌 경우
ExcelApp.activesheet.printpreview;
21) 워크 시트를 다음과 같이 저장합니다.
ExcelApp.saveas ( 'c : /excel/demo1.xls');
22) 저축 포기 :
ExcelApp.ActiveWorkBook.Saved : = true;
23) 통합 문서 닫기 :
ExcelApp.workbooks.close;
24) Exit Excel :
Excelapp.quit;
(ii) 델파이 제어 방법을 사용하십시오
ExcelApplication, Excelworkbook 및 Excelworksheet를 각각 양식에 넣으십시오.
1) 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) as _worksheet;
ExcelWorkSheet1.connectto (temp_worksheet);
끝;
6) 기존 통합 문서 열기 :
ExcelApplication1.workbooks.open (c : /a.xls
emptyparam, emptyparam, emptyparam, emptyparam, emptyparam,
emptyparam, emptyparam, emptyparam, emptyparam, emptyparam,
emptyparam, emptyparam, emptyparam, emptyparam, 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 cm)를 설정하고 두 번째 동작 예제를 사용하십시오.
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 왼쪽 2 권 3 ~ 4- 바닥 5- 슬랜트 ( /) 6 슬래랑 ( /)
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) 페이지 설정 만들기 :
a. 헤드러 :
ExcelApplication1.activesheet.pagesetup.centerheader : = 'report Demo';
b. 바닥 글 :
ExcelApplication1.activesheet.pagesetup.centerfooter : = 'page & p';
c. 상단 마진은 2cm입니다.
ExcelApplication1.ActiveSheet.PagesEtup.HeaderMargin : = 2/0.035;
d. 바닥의 바닥에있는 마진은 3cm입니다.
ExcelApplication1.ActiveSheet.PagesEtup.HeaderMargin : = 3/0.035;
e. 상단 마진 2cm :
ExcelApplication1.ActiveSheet.PagesEtup.topMargin : = 2/0.035;
f. 하단 마진 2cm :
ExcelApplication1.activesheet.pagesetup.bottommargin : = 2/0.035;
G.Left 마진 2cm :
ExcelApplication1.ActiveSheet.PagesEtup.leftmargin : = 2/0.035;
h. 오른쪽 마진 2cm :
ExcelApplication1.activesheet.pagesetup.rightmargin : = 2/0.035;
i. 페이지는 수평으로 중앙에 있습니다.
ExcelApplication1.ActiveSheet.PagesEtup.CenterHorizOntally : = 2/0.035;
j. 페이지는 수직 중앙에 있습니다.
ExcelApplication1.ActiveSheet.PagesEtup.Centervertical : = 2/0.035;
k. 인쇄 셀 메쉬 케이블 :
ExcelApplication1.activesheet.pagesetup.printgridlines : = true;
17) 복사 작업 :
a. 전체 워크 시트를 복사하십시오.
ExcelApplication1.activesheet.used.range.copy;
b. 지정된 영역 복사 :
ExcelApplication1.activesheet.range [ 'a1 : e2'] .copy;
c. 위치 A1에서 붙여 넣기 시작 :
ExcelApplication1.activesheet.range. [ 'A1'] .pastescial;
d. 파일 끝에서 붙여 넣기 시작 :
ExcelApplication1.activesheet.range.pastespecial;
18) 행 또는 열 삽입 :
a. ExcelApplication1.ActivESheet.Rows [2] .Insert;
b. ExcelApplication1.activesheet.columns [1] .insert;
19) 행 또는 열 삭제 :
a. ExcelApplication1.Activesheet.rows [2] .Delete;
b. ExcelApplication1.activesheet.columns [1] .Delete;
20) 인쇄 미리보기 워크 시트 :
ExcelApplication1.activesheet.printpreview;
21) 인쇄 워크 시트 :
ExcelApplication1.activesheet.printout;
22) 워크 시트 절약 :
ExcelApplication1.ActiveWorkBook.saved가 아닌 경우
ExcelApplication1.activesheet.printpreview;
23) 워크 시트를 다음과 같이 저장하십시오.
ExcelApplication1.saveas ( 'c : /excel/demo1.xls');
24) 저축 포기 :
ExcelApplication1.ActiveWorkBook.Saved : = true;
25) 통합 문서 닫기 :
ExcelApplication1.workbooks.close;
26) Exit Excel :
ExcelApplication1.quit;
ExcelApplication1.Disconnect;
(iii) Delphi를 사용하여 Excel 2D 다이어그램을 제어하십시오
ExcelApplication, Excelworkbook 및 Excelworksheet를 각각 양식에 넣으십시오
var shell1, acart, 범위 : 변형;
1) 첫 번째 통합 문서가있을 때 첫 번째 워크 시트를 선택하십시오
Shell1 : = ExcelApplication1.Workbooks [1] .WorkSheets [1];
2) 2 차원 그래프를 추가하십시오
Achart : = sheate1.chartobjects.add (100,100,200,200);
3) 2 차원 그래프의 모양을 선택하십시오
achart.chart.charttype : = 4;
4) 2 차원 그래프에 값을 할당합니다
시리즈 : = acart.chart.seriescollection;
범위 : = 시트 1! R2C3 : R3C9;
Series.add (범위, true);
5) 2 차원 그래프의 제목을 추가하십시오
achart.chart.hastitle : = true;
achart.chart.charttitle.characters.text : = 'excle 2d 다이어그램'
6) 2 차원 그래프의 제목 글꼴 크기 변경
achart.chart.charttitle.font.size : = 6;
7) 2 차원 그림에 설명을 추가하십시오
achart.chart.axes (xlcategory, xlprimary) .hastitle : = true;
achart.chart.axes (xlcategory, xlprimary) .axistitle.characters.text : = '첨자 설명';
8) 2 차원 그림에 왼쪽 표시를 추가하십시오
achart.chart.axes (xlvalue, xlprimary) .Hastitle : = true;
achart.chart.axes (xlvalue, xlprimary) .axistitle.characters.text : = '왼쪽 마크 설명';
9) 2 차원 그림에 오른쪽 표시를 추가하십시오
achart.chart.axes (xlvalue, xlsecondary) .hastitle : = true;
achart.chart.axes (xlvalue, xlsecondary) .axistitle.characters.text : = '오른쪽 표시 설명';
10) 2 차원 그래프의 디스플레이 영역 크기 변경
achart.chart.plotarea.left : = 5;
achart.chart.plotarea.width : = 223;
achart.chart.plotarea.height : = 108;
11) 2 차원 그래프의 좌표 축에 지침 추가
achart.chart.seriescollection [1] .name : = '축 설명';