Категория: com & activex
(I) Использовать метод динамического создания
Сначала создайте объект Excel, используя Comobj:
var Excelapp: вариант;
ExcelApp: = createoleObject ('Excel.application');
1) Отобразить текущее окно:
Excelapp.visible: = true;
2) Измените строку названия Excel:
Excelapp.caption: = 'Приложение вызывает Microsoft Excel';
3) Добавить новую рабочую книгу:
Excelapp.wookbooks.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-левый 2-правый 3-верхний 4-дюйм 5-заседание ( /) 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: = 'report demo';
B.
ExcelApp.ActiveSheet.pagesetup.centerfooter: = 'page & 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;
К кабелю сетки печать:
ExcelApp.ActiveSheet.Pagesetup.printGridlines: = true;
15) Операция копирования:
а.
Excelapp.ActiveSheet.used.range.copy;
b.
ExcelApp.ActiveSheet.Range ['a1: e2'] .copy;
C.
ExcelApp.ActiveSheet.Range. ['A1'] .pastepressial;
D.
Excelapp.ActiveSheet.range.pastepressial;
16) Вставьте строку или столбец:
a.
B.
17) Удалить строку или столбец:
a.
B.
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) Выход Excel:
Excelapp.quit;
(Ii) Используйте метод управления Delphi
Поместите 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.
Рабочие листы.
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.Ships [2] .Activate;
ExcelApplication1.WorksSheets ['листовина2'] .Activate;
8) Назначьте значения ячеек:
ExcelApplication1.cells [1,4].
9) Установите ширину указанного столбца (Блок: количество символов), взяв первый столбец в качестве примера:
ExcelApplication1.ActiveSheet.columns [1] .columnswidth: = 5;
10) Установите высоту указанной строки (единица: фунт) (1 фунт = 0,035 см) и используйте второй пример поведения:
ExcelApplication1.ActiveSheet.Rows [2] .Rowheight: = 1/0,035;
11) Вставьте разрыв страницы перед строкой 8:
ExcelApplication1.Shipsses [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-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: = 'report demo';
B.
ExcelApplication1.ActiveSheet.Pagesetup.CenterFooter: = 'page & p';
C.
ExcelApplication1.ActiveSheet.Pagesetup.HeaderMarggin: = 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.PagesTup.CenterVertically: = 2/0,035;
К кабелю сетки печать:
ExcelApplication1.ActiveSheet.Pagesetup.printGridlines: = true;
17) Операция копирования:
а.
ExcelApplication1.ActiveSheet.used.range.copy;
b.
ExcelApplication1.ActiveSheet.range ['a1: e2'] .copy;
C.
ExcelApplication1.ActiveSheet.range. ['A1'] .pastepressial;
D.
ExcelApplication1.ActiveSheet.range.pastepressial;
18) Вставьте строку или столбец:
a.
b.
19) Удалить строку или столбец:
a.
B.
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) Выход 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;
Диапазон: = лист1! R2C3: R3C9;
series.add (range, true);
5) Добавить заголовок двумерного графика
Achart.chart.hastitle: = true;
achart.chart.charttitle.characters.text: = 'Excler 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, xlsecondator) .hastitle: = true;
achart.chart.axes (xlvalue, xlsecondator) .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: = 'Описание оси';