Наша задача создать отчётность в Excel. Эта потребность может возникнуть у каждого программиста баз данных, ведь Office установлен в нашей стране практически на каждом компьютере. А это значит, что вашу отчётность можно смело переносить между компьютерами и быть уверенным, что её смогут прочитать.
Сначала я покажу полностью процедуру, потому что исходников в конце статьи не будет, а потом мы разберём её по косточкам:
procedure TForm1.Button1Click(Sender: TObject);
var
XLApp,Sheet,Colum:Variant;
index,i:Integer;
begin
XLApp:= CreateOleObject('Excel.Application');
XLApp.Visible:=true;
XLApp.Workbooks.Add(-4167);
XLApp.Workbooks[1].WorkSheets[1].Name:='Отчёт';
Colum:=XLApp.Workbooks[1].WorkSheets['Отчёт'].Columns;
Colum.Columns[1].ColumnWidth:=40;
Colum.Columns[2].ColumnWidth:=10;
Colum.Columns[3].ColumnWidth:=30;
Colum.Columns[4].ColumnWidth:=10;
Colum:=XLApp.Workbooks[1].WorkSheets['Отчёт'].Rows;
Colum.Rows[2].Font.Bold:=true;
Colum.Rows[1].Font.Bold:=true;
Colum.Rows[1].Font.Color:=clBlue;
Colum.Rows[1].Font.Size:=14;
Sheet:=XLApp.Workbooks[1].WorkSheets['Отчёт'];
Sheet.Cells[1,2]:='Отчётиз Delphi';
Sheet.Cells[2,1]:='Колонка 1';
Sheet.Cells[2,2]:='Колонка 2';
Sheet.Cells[2,3]:='Колонка 3';
Sheet.Cells[2,4]:='Колонка 4';
index:=3;
for i:=0 to 2 do
begin
Sheet.Rows[index].Font.Color:=clGreen;
Sheet.Cells[index,1]:=random(100);
Sheet.Cells[index,2]:=random(100);
Sheet.Cells[index,3]:=random(100);
Sheet.Cells[index,4].Font.Color:=clRed;
Sheet.Cells[index,4]:=random(100);
Inc(index);
end;
end;
Для того, чтобы всё это работало, нужно подключить в раздел Uses модуль ComObj . А теперь начнём всё с самого начала.
Первая строка создаёт объект Excel (XLApp:= CreateOleObject('Excel.Application')), и записывает его в переменную XLApp . Эта переменная типа Variant . Variant - это тип, который может принимать любые значения: строки, числа, указатели и др. Вторая строка (XLApp.Visible:=true) заставляет запустить сам Excel. Потом я добавляю новую рабочую книгу (XLApp.Workbooks.Add(-4167)). Число в скобках - это константа, которая означает создание книги и её изменять нельзя. Дальше я даю название созданной книге XLApp.Workbooks[1].WorkSheets[1].Name:='Отчёт'. Это действие не обязательно, но я всегда это делаю, потому что меня бесит название по умолчанию "Лист 1".
Теперь у нас Excel запущен и создана новая книга. Можно переходить к впечатыванию данных. Но прежде чем это сделать я отформатирую колонки и строки. Для этого я получаю указатель на колонки рабочей книги (Colum:= XLApp. Workbooks[1]. WorkSheets['Отчёт']. Columns), и записываю результат в переменную Colum типа Variant . Теперь последовательно изменяю ширину колонок (Colum. Columns[1]. ColumnWidth := 40). На русском эта команда будет звучать так: Колонки. Колонка[1]. ШиринаКолонки:=40.
После этого я в ту же переменную записываю указатель на строки рабочей книги (Colum := XLApp. Workbooks[1]. WorkSheets['Отчёт']. Rows). Для украшения строк нашего отчёта, я устанавливаю у первых двух строк жирный шрифт (Colum. Rows[1]. Font. Bold := true). В квадратных скобках теперь порядковый номер строки. Далее идут две строки, в которых я устанавливаю цвет первой строки в синий и размер шрифта равный 14.
Форматирование окончено, теперь можно выводить данные. Для этого я получаю указатель на лист (Sheet:=XLApp.Workbooks[1].WorkSheets['Отчёт']). Для того, чтобы вывести данные, нужно просто присвоить значение в Sheet.Cells[строка, колонки]. В процессе вывода данных можно изменять цвет строк Sheet. Rows[строка]. Font. Color или колонок Sheet. Columns[колонка]. Font. Color, простым присваиванием (как мы это делали при форматировании). Если нужно изменить цвет отдельной ячейки, то это можно сделать, присвоив новое значение в Sheet.Cells[строка, колонка].Font.Color.
Вот ещё некоторые параметры, которые ты можешь изменить:
Sheet.Cells[строка,колонка].Font.Italic - курсивный шрифт
Sheet.Cells[строка,колонка].Font.Bold - жирный шрифт
Sheet.Cells[строка,колонка].Font.Underline - подчёркнутый шрифт
Sheet.Cells[строка,колонка].Font.Size - размер шрифта
С помощью всего этого, ты сможешь создавать простые, но эффективные отчёты. В Delphi, в директории Lib есть файлик excel97.pas, в нём ты найдёшь все доступные функции Excel. Если у тебя есть достаточные навыки, чтобы разобраться с ним, то в перёд. А начинающему программисту там без бутылки не разобраться. Если ты относишься ко второй категории, то жди, возможно я ещё вернусь к этой теме.
Другие работы по теме:
Расчет семейного бюджета на полугодие
ИНСТИТУТ РЕКЛАМЫ, ТУРИЗМА И ШОУ-БИЗНЕСА ПРАКТИЧЕСКАЯ РАБОТА По курсу: «Информатика». На тему: Расчет семейного бюджета на полугодие. Выполнила: студентка 3-го курса
Сущность управленческого учёта
Предмет, метод и задачи управленческого учёта (УУ) Сравнительная характеристика финансового и управленческого учёта Информация в системе управленческого учёта
Импорт таблиц EXCEL в текстовый документ WORD
Вопрос 12. Импорт таблиц EXCEL в текстовый документ WORD. Microsoft Excel – мощная программа для работы с электронными таблицами, являющаяся, также как и Word, частью пакета Microsoft Office. Обладая достаточно широкими возможностями и высокой степенью интеграции с другими приложениями Office и Windows вообще, Excel стала наиболее популярной программой среди людей, постоянно имеющих дело с огромными массивами чисел.
Вычисление значения функции y(x)
Особенности применения компьютерных программ Pascal, Excel, MathCAD и Delphi для вычисления значения функции y(x) с заданным промежутком и шагом. Виды результатов вычислений, их сравнение и вывод. Изображение блок-схемы алгоритма решения задания.
База данных "Фирма"
Информация о работе фирмы. Даталогическое проектирование, создание новых запросов, форм и макросов. Таблицы описания структуры отношений. Рабочее проектирование, формы "Заказ", "Клиент", "Товары", "Паспортные данные". Составление отчета по продажам.
Электронные таблицы Excel
Overview Диаграмма1 Диаграмма3 Диаграмма2 Лист1 Sheet 1: Диаграмма1 Sheet 2: Диаграмма3 Sheet 3: Диаграмма2 Sheet 4: Лист1 остатки денежных средств на счетах клиентов
Microsoft Exel
ВОПРОСЫ К ЭКЗАМЕНУ ПО ИНФОРМАТИКЕ 2 семестр Табличные процессоры. Классификация. Табличный процессор Excel. Назначение. Основные приемы работы в Excel: ведение рабочей книги.
Регрессионные зависимости
Вычисление значений регрессионно-авторегрессионной зависимости заданного выражения линейного программирования. Графическое представление математической модели в виде уравнения регрессии. Принципи оптимизации производственных и коммерческих операций.
Створення та робота з таблицями у Microsoft Excel, Access
Характеристика методів створення таблиць і роботи з ними у програмі Microsoft Excel: розробка таблиці з прізвищами співробітників, розміщених у алфавітному порядку та сумами отримуваних ними заробітних плат. Створення таблиці в програмі Microsoft Access.
Создание презентации, формирование массива
Подготовка презентации по теме "Excel – фильтрация данных". Сличительная ведомость по материальным ценностям, форма разработки документа. Построение сводной таблицы расчета суммарного и среднего значений поля. Характеристика формирования массива.
Экспорт в Excel
Рано или поздно практически каждый программист сталкивается с необходимостью организовать экспорт данных в MS Office. При этом каждое "поколение" программистов натыкается на одни и те же вилы.
Анализ области определения функции
Постановка задачи Анализ области определения функции Рабочий лист Excel в режиме отображения значений Рабочий лист Excel в режиме отображения формул
База данных Фирма
Федеральное агентство по образованию Р Ф ГОУ ВПО Уральский Государственный Технический Университет-УПИ Кафедра вычислительной техники БАЗА ДАННЫХ "ФИРМА"
Назначение и основные понятия электронных таблиц
Назначение электронных таблиц Microsoft Excel — один из наиболее популярных пакетов для среды Windows , принадлежащий к классу так называемых табличных процессоров, или электронных таблиц. Но
Создание макросов
Запись макроса При записи макроса все необходимые действия записываются программой записи макроса. Перемещение по ленте не включается в записанные шаги.
GUIA DE EXAMEN PARCIAL DE EXCEL 97
Essay, Research Paper 1. Que es una hoja de calculo?Es una ayuda para el ser humano para poder hacer c?lculos diversos eintroducir formulas. 2. Que nombre recibe el cursor de una hoja de calculo?Celda activa.
Information Methods Essay Research Paper The aim
Information Methods Essay, Research Paper The aim of this assignment was to show and explain the value and importance of information and the tools readily accessible to us as students. We were to investigate the individual components of Access, Excel, Word and Powerpoint, then to transform, manipulate and present the information we gathered.
Maya Angelou 3 Essay Research Paper The
Maya Angelou 3 Essay, Research Paper The readings from “Graduation Day” by: Maya Angelou and “On Becoming A Chicano” by: Richard Rodriguez were different but they the same point across. They were of different cultures, race, and time era, and they both overcame adversity to excel in their schooling.
Education And Society Essay Research Paper EducationEducation
Education And Society Essay, Research Paper Education Education is one of the most important tools that a society possesses. The right implementation of this tool is one of the greatest ways of assuring the quality of life within a society. The ability to better ourselves, is one of the strongest inherit abilities of the human race.
My Personal Art Collection Essay Research Paper
Brandon Hill My Personal Art Collection Enclosed in my portfolio are some of my favorite and most detailed works. I chose these eight pieces, because I feel that they are the best representation of my abilities in art. Because drawing is the area in which I excel most, I have selected mostly works that display my skill in this.
Streaming Of Students Essay Research Paper Students
Streaming Of Students Essay, Research Paper Students in high schools have different IQ levels, some are smart, some are average and some are weak. In a mixed group of students, the teacher has to teach in a manner which everybody is capable of understanding. Unfortunately, some students are left in the dark.
Using Macros To Get The Most Out
Of Excel Essay, Research Paper As accounting professionals, accuracy in financial calculations and the integrity of the raw data are vital to producing useful information. Our clients prevail upon us to be more accurate and more thorough in less time. The tremendous advances in information technology are apparent across most industries.
Бухгалтерский баланс и отчётность 2
Реферат Бухгалтерский баланс и отчётность Отчетность предприятия является логическим продолжением процедур финансового учета и представляет собой систему показателей, характеризующих
Особенности банковского учета с применением Excel
Общие рекомендации по выполнению задач финансовой математики с использованием финансовых функций Microsoft Office Excel. Методика вычисления обыкновенных процентов по ссуде и эффективной ставки процента банка. Порядок определения дисконта от векселя.
Табличний редактор Microsoft Excel
Теоретичні відомості 1.1. Табличний редактор Microsoft Excel Microsoft Excel – це складова частина пакето-прикладних програм Microsoft Office. Microsoft Excel – призначений для створення електронних таблиць і найбільшою перевагою є можливість досліджувати, аналізувати дані і виконувати обчислення.