В uses добавить ComObj
var
Form1: TForm1;
XL : variant; // Переменная в которой создаётся обьект EXCEL
Созданиедокумента
// Обьект EXCEL
XL := CreateOleObject('Excel.Application');
// Чтоб не задавал вопрос о сохранении документа
XL.DisplayAlerts := false;
// новый документ
XL.WorkBooks.Add;
// или загружаем его
XL.WorkBooks.Open(MyDir + 'akt.xls');
{ MyDir - глобальная переменная типа string в неё помещаем путь
к каталогу запуска нашей програмы по событию FormCreate
procedure TForm1.FormCreate(Sender: TObject);
begin
GetDir(0,MyDir);
end;
я всегда так делаю, чтобы программу можно было в любой каталог
поместить вместе со своими дополнительными файлами, в этом случае путь
будет выбираться всегда правильно
}
// Делаем его видимым
XL.Visible := true;
// Когда прога уже оттестирована лучше это делать в конце, быстрей работает,
// а пока нет лучше в начале
// Левое и правое поля отступа для печати
XL.WorkBooks[1].WorkSheets[1].PageSetup.LeftMargin := 30;
XL.WorkBooks[1].WorkSheets[1].PageSetup.RightMargin := 10;
// Даёмназваниестраничке
XL.WorkBooks[1].WorkSheets[1].Name := 'Прайслист';
// Строка появляется на каждом листе при печати
XL.WorkBooks[1].WorkSheets[1].PageSetup.PrintTitleRows := '$3:$3';
XL.WorkBooks[1].WorkSheets[1].PageSetup.PrintTitleColumns := '$A:$A';
// форматчисла
for i := 4 to 13 do
XL.WorkBooks[1].WorkSheets[1].Columns[i].NumberFormat := '0,00';
XL.WorkBooks[1].WorkSheets[1].Columns[4].NumberFormat := '0';
// Таким способом можно задавать ширину колонки
XL.WorkBooks[1].WorkSheets[1].Columns[1].ColumnWidth := 4.5;
XL.WorkBooks[1].WorkSheets[1].Columns[2].ColumnWidth := 50;
for i := 3 to 13 do
XL.WorkBooks[1].WorkSheets[1].Columns[i].ColumnWidth := 8;
// Шрифтжирный
XL.WorkBooks[1].WorkSheets[1].Rows[1].Font.Bold := True;
XL.WorkBooks[1].WorkSheets[1].Rows[1].Font.Color := clBlack;
XL.WorkBooks[1].WorkSheets[1].Rows[1].Font.Size := 16;
XL.WorkBooks[1].WorkSheets[1].Rows[1].Font.Name := 'Times New Roman';
XL.WorkBooks[1].WorkSheets[1].Cells[1,4] := 'Прайслист';
// Выравнивампоцентруповертикали
XL.WorkBooks[1].WorkSheets[1].Rows[1].VerticalAlignment := 2;
// Выравнивампоцентрупогоризонтали
XL.WorkBooks[1].WorkSheets[1].Rows[1].HorizontalAlignment := 3;
// Обьединяемячейки
XL.WorkBooks[1].WorkSheets[1].Range['A1:D1'].Merge;
// Выравнивампоцентруповертикали
XL.WorkBooks[1].WorkSheets[1].Rows[3].VerticalAlignment := 2;
// Выравнивампоцентрупогоризонтали
XL.WorkBooks[1].WorkSheets[1].Rows[3].HorizontalAlignment := 3;
// Выравнивамполевомукраю
XL.WorkBooks[1].WorkSheets[1].Cells[3,2].HorizontalAlignment := 2;
XL.WorkBooks[1].WorkSheets[1].Cells[3,3].HorizontalAlignment := 2;
// Выравнивампоправомукраю
XL.WorkBooks[1].WorkSheets[1].Cells[3,4].HorizontalAlignment := 4;
XL.WorkBooks[1].WorkSheets[1].Rows[3].Font.Color := clBlack;
XL.WorkBooks[1].WorkSheets[1].Rows[3].Font.Name := 'Times New Roman';
XL.WorkBooks[1].WorkSheets[1].Rows[3].Font.Size := 12;
XL.WorkBooks[1].WorkSheets[1].Rows[3].Font.Bold := True;
XL.WorkBooks[1].WorkSheets[1].Cells[3,1] := '№';
XL.WorkBooks[1].WorkSheets[1].Cells[3,2] := 'Наименованиепродукции';
XL.WorkBooks[1].WorkSheets[1].Cells[3,3] := 'Ед. изм.';
// обрисовка диапазона ячеек только снизу
// Borders[1] .... [4] - это края ячейки ColorIndex -4142 - пустой цвет i и n - переменные
XL.WorkBooks[1].WorkSheets[1].Range['A' + IntToStr(i) + ':' + chr(ord('C')+n) + IntToStr(i)].Borders.LineStyle := 1;
XL.WorkBooks[1].WorkSheets[1].Range['A' + IntToStr(i) + ':' + chr(ord('C')+n) + IntToStr(i)].Borders.Weight := 2;
XL.WorkBooks[1].WorkSheets[1].Range['A' + IntToStr(i) + ':' + chr(ord('C')+n) + IntToStr(i)].Borders[4].ColorIndex := 1;
XL.WorkBooks[1].WorkSheets[1].Range['A' + IntToStr(i) + ':' + chr(ord('C')+n) + IntToStr(i)].Borders[1].ColorIndex := -4142;
XL.WorkBooks[1].WorkSheets[1].Range['A' + IntToStr(i) + ':' + chr(ord('C')+n) + IntToStr(i)].Borders[2].ColorIndex := -4142;
XL.WorkBooks[1].WorkSheets[1].Range['A' + IntToStr(i) + ':' + chr(ord('C')+n) + IntToStr(i)].Borders[3].ColorIndex := -4142;
// обрисовкадиапазонаячеек
XL.WorkBooks[1].WorkSheets[1].Range['A3:' + chr(ord('C')+n) + IntToStr(i)].Borders.LineStyle := 1;
XL.WorkBooks[1].WorkSheets[1].Range['A3:' + chr(ord('C')+n) + IntToStr(i)].Borders.Weight := 2;
XL.WorkBooks[1].WorkSheets[1].Range['A3:' + chr(ord('C')+n) + IntToStr(i)].Borders.ColorIndex := 1;
// присвоениеячейкезначения
XL.WorkBooks[1].WorkSheets[1].Cells[i,j] := 'К-во';
// Поворачивать слова, писать вертикально, под углом и т.д.
XL.WorkBooks[1].WorkSheets[1].Rows[2].Orientation := 90;
XL.WorkBooks[1].WorkSheets[1].Range['A2:B2'].Orientation := 0;
Другие работы по теме:
Умения и навыки выполнения электромонтажных работ
Graphics Graphics Приобрести первичные профессиональные навыки на основании прохождения практики на конкретном предприятии Приобрести первичные профессиональные навыки на основании прохождения практики на конкретном предприятии Формирование умений и навыков в выполнении электромонтажных работ Закрепление и совершенствование знаний и практических навыков, полученных в процессе обучения Graphics
Импорт таблиц EXCEL в текстовый документ WORD
Вопрос 12. Импорт таблиц EXCEL в текстовый документ WORD. Microsoft Excel – мощная программа для работы с электронными таблицами, являющаяся, также как и Word, частью пакета Microsoft Office. Обладая достаточно широкими возможностями и высокой степенью интеграции с другими приложениями Office и Windows вообще, Excel стала наиболее популярной программой среди людей, постоянно имеющих дело с огромными массивами чисел.
Регистрационно-контрольные документы и их роль в делопроизводстве 2
Обязательный состав реквизитов при регистрации документов При оформлении документов необходимо соблюдать правила, обеспечивающие юридическую силу документов: оперативное и качественное их исполнение и поиск; возможность обработки документов с помощью средств вычислительной техники. Документ должен, как правило, оформляться на бланке организации, соответствующем стандарту, иметь стабильный порядок расположения реквизитов и комплекс обязательных реквизитов.
Печать таблицы Excel
Применить в окне Параметры страницы выбрано значение До конца документа). А вступят эти изменения в силу, когда вы нажмете ок в окне Параметры страницы. Размеры полей (отступов от краев печатного листа) задаются на вкладке Поля
Вычисление значения функции y(x)
Особенности применения компьютерных программ Pascal, Excel, MathCAD и Delphi для вычисления значения функции y(x) с заданным промежутком и шагом. Виды результатов вычислений, их сравнение и вывод. Изображение блок-схемы алгоритма решения задания.
Работа с Power Point 98
Общая характеристика и основные правила работы с редактором презентаций Power Point: открытие и закрытие программы, вставка в презентацию таблицы из Word и диаграммы из Excel, надписи и фотографии. Правила оформления и демонстрации слайдов презентации.
Электронные таблицы 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.
Инструментальные средства Microsoft Office
Особенности разработки текстовых документов с помощью информационной технологии Microsoft Office Word с включением в текст графических объектов типа "скриншот". Инструкция по построению диаграммы с помощью пункта "Вид" главного меню приложения MS Excel.
Создание презентации, формирование массива
Подготовка презентации по теме "Excel – фильтрация данных". Сличительная ведомость по материальным ценностям, форма разработки документа. Построение сводной таблицы расчета суммарного и среднего значений поля. Характеристика формирования массива.
Отчётность в Excel
Наша задача создать отчётность в Excel. Эта потребность может возникнуть у каждого программиста баз данных, ведь Office установлен в нашей стране практически на каждом компьютере.
Экспорт в Excel
Рано или поздно практически каждый программист сталкивается с необходимостью организовать экспорт данных в MS Office. При этом каждое "поколение" программистов натыкается на одни и те же вилы.
Анализ области определения функции
Постановка задачи Анализ области определения функции Рабочий лист Excel в режиме отображения значений Рабочий лист Excel в режиме отображения формул
Назначение и основные понятия электронных таблиц
Назначение электронных таблиц Microsoft Excel — один из наиболее популярных пакетов для среды Windows , принадлежащий к классу так называемых табличных процессоров, или электронных таблиц. Но
Создание макросов
Запись макроса При записи макроса все необходимые действия записываются программой записи макроса. Перемещение по ленте не включается в записанные шаги.
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.
Табличний редактор Microsoft Excel
Теоретичні відомості 1.1. Табличний редактор Microsoft Excel Microsoft Excel – це складова частина пакето-прикладних програм Microsoft Office. Microsoft Excel – призначений для створення електронних таблиць і найбільшою перевагою є можливість досліджувати, аналізувати дані і виконувати обчислення.