русс | укр

Мови програмуванняВідео уроки php mysqlПаскальСіАсемблерJavaMatlabPhpHtmlJavaScriptCSSC#DelphiТурбо Пролог

Компьютерные сетиСистемное программное обеспечениеИнформационные технологииПрограммирование


Linux Unix Алгоритмічні мови Архітектура мікроконтролерів Введення в розробку розподілених інформаційних систем Дискретна математика Інформаційне обслуговування користувачів Інформація та моделювання в управлінні виробництвом Комп'ютерна графіка Лекції


Робота з аркушами книги в Microsoft Excel


Дата додавання: 2014-10-07; переглядів: 1575.


 

Кожна книга має кілька аркушів (за замовчуванням 3). Для звертання до аркуша використовують запис виду:

e.activeworkbook.sheets.item[i]

де i - номер аркуша в книзі (нумерація починається з 1).

Кожний аркуш має команди для керуваннями:

//додає аркуш ліворуч від i-го аркуша

e.activeworkbook.sheets.item[i].add;

//видаляє i-й аркуш

e.activeworkbook.sheets.item[i].delete;

//копіює i-й аркуш, вставляючи його після j-го аркуша

e.activeworkbook.sheets.item[i].copy(after:=e.activeworkbook.sheets.item[j];

//задає ім'я i-го аркуша

e.activeworkbook.sheets.item[i].name:='нове ім'я';

Зауваження. При видаленні аркуша Excel може видавати повідомлення на підтвердженні операції. Для вимикання видачі вікон з повідомленнями необхідно спочатку коду додавати команду виду:

e.displayalerts:=false;

Для включення функції видачі повідомлень використовують команду:

e.displayalerts:=true;

Приклад. Нехай є деякий шаблон primer.xlt, що має один аркуш. Необхідно написати код, який робить ще дев'ять копій цього аркуша й кожний аркуш нумерує числами від 1 до 10.

try

//підключаємося до Excel

e:=getactiveoleobject('excel.application');

except

//якщо підключення не вдалося (Excel не запущений)

//створюємо новий об'єкт, запускаючи Excel

e:=createoleobject('excel.application');

end;

 

//створюємо нову книгу на основі шаблону

e.workbooks.add(extractfilepath(application.Exename)+'shablon\primer.xlt');

 

//запускаємо цикл, що додає 9 аркушів

for i:=1 to 9 do

begin

//копіюємо перший аркуш і вставляємо його після i-го аркуша

e.activeworkbook.sheets.item[1].copy(after:=e.activeworkbook.sheets.item[i]);

//i-му аркушу привласнюємо ім'я, що є значенням змінної i

e.activeworkbook.sheets.item[i].name:=inttostr(i);

end;

//робимо вікно excel видимим для перегляду результату

e.visible:=true;

 


<== попередня лекція | наступна лекція ==>
Робота із книгами в Microsoft Excel | Використання шаблону для формування книги


Онлайн система числення Калькулятор онлайн звичайний Науковий калькулятор онлайн