Экспорт в Excel

Что означает Экспорт в Excel и что это такое? В разделе Информатика, программирование дан подробный ответ и объяснение на вопрос.

Здесь выложено готовое сочинение на тему Экспорт в Excel, которое вы так же можете использовать как реферат.

Эту, поверенную нами работу, вы можете скачать бесплатно перейдя по ссылке, но если вам необходима другая готовая работа по данному предмету, например реферат или изложение, доклад, лекция, проект, презентация, эссе, краткое описание, биография писателя, ученого или другой знаменитости, контрольная, самостоятельная, курсовая, экзаменационная, дипломная или любая другая работа, с вашими индивидуальными требованиями, напишите нам и мы договоримся.

Наша небольшая команда бывших и действующих преподавателей и авторов со стажем работы от 5-ти лет всегда вам поможет. Всего нами написано и проверено более 10 000 различных работ на образовательные темы. С нами вы получите действительно качестенный материал с уникальным текстом и обязательно хорошую оценку. Удачи в учебе!

Кулюкин Олег

Рано или поздно практически каждый программист сталкивается с необходимостью организовать экспорт данных в MS Office. При этом каждое "поколение" программистов натыкается на одни и те же вилы.

Вот три часто встречающихся вопроса.

1. Как определить установлен ли Excel

2. Как определить запущен ли Excel

3. Как вывести данные в Excel

Большую помощь в понимании этих и других вопросов приносит чтение исходных текстов функций модуля ComObj. :)

Во всех случаях следует подключить модули ComObj и ActiveX

1. Как определить установлен ли Excel

Функция возвращает True если найден OLE-объект

Пример использования

if not IsOLEObjectInstalled('Excel.Application') then ShowMessage('Класс не зарегистрирован') else ShowMessage('Класс найден'); function IsOLEObjectInstalled(Name: String): boolean; var ClassID: TCLSID; Rez : HRESULT; begin // Ищем CLSID OLE-объекта Rez := CLSIDFromProgID(PWideChar(WideString(Name)), ClassID); if Rez = S_OK then // Объект найден Result := true else Result := false; end;

Если нужна более подробная информация об объекте, можно почитать хелп по функции API CLSIDFromProgID.

2. Как определить запущен ли Excel

Данный пример ищет активный экземпляр Excel и делает его видимым

var ExcelApp : Variant; begin try // Ищем запущеный экземплят Excel, если он не найден, вызывается исключение ExcelApp := GetActiveOleObject('Excel.Application'); // Делаем его видимым ExcelApp.Visible := true; except end;

3. Как вывести данные в Excel

Можно выводить данные последовательно в каждую ячейку, но это очинь сильно замедляет работу. Лучше сформировать вариантный массив, и выполнить присвоение области (Range) этого массива.

var

ExcelApp, Workbook, Range, Cell1, Cell2, ArrayData : Variant;

TemplateFile : String;

BeginCol, BeginRow, i, j : integer;

RowCount, ColCount : integer;

begin

// Координаты левого верхнего угла области, в которую будем выводить данные

BeginCol := 1;

BeginRow := 5;

// Размеры выводимого массива данных

RowCount := 100;

ColCount := 50;

// Создание Excel

ExcelApp := CreateOleObject('Excel.Application');

// Отключаем реакцию Excel на события, чтобы ускорить вывод информации

ExcelApp.Application.EnableEvents := false;

// СоздаемКнигу (Workbook)

// Еслизаполняемшаблон, то Workbook := ExcelApp.WorkBooks.Add('C:\MyTemplate.xls');

Workbook := ExcelApp.WorkBooks.Add;

// Создаем Вариантный Массив, который заполним выходными данными

ArrayData := VarArrayCreate([1, RowCount, 1, ColCount], varVariant);

// Заполняеммассив

for I := 1 to RowCount do

for J := 1 to ColCount do

ArrayData[I, J] := J * 10 + I;

// Левая верхняя ячейка области, в которую будем выводить данные

Cell1 := WorkBook.WorkSheets[1].Cells[BeginRow, BeginCol];

// Правая нижняя ячейка области, в которую будем выводить данные

Cell2 := WorkBook.WorkSheets[1].Cells[BeginRow + RowCount - 1, BeginCol +

ColCount - 1];

// Область, в которую будем выводить данные

Range := WorkBook.WorkSheets[1].Range[Cell1, Cell2];

// А вот и сам вывод данных

// Намного быстрее поячеечного присвоения

Range.Value := ArrayData;

// Делаем Excel видимым

ExcelApp.Visible := true;

Подобные материалы

Ввод и форматирование текста
Работа в окне документа. Ввод текста. Вставка и удаление текста. Отмена результатов выполненных
Информационные технологии в экономике
Создание реляционной базы данных, запросов, форм и отчетов по БД Компьютеры, Таблицы. Создание базы
Создание web-страниц, введение в стандарты HTML и PHP, элементы технологии WWW
HTML - это язык, принятый в World Wide Web для создания и публикации веб-страниц. Общие сведения о
Информационная система складского терминала
МПС Российской Федерации Департамент кадров и учебных заведений амарский институт инженеров
Устройство ввода
Сканер. Планшет. Световое перо.