Доклад

Доклад на тему Экспорт в Excel

Работа добавлена на сайт bukvasha.net: 2015-06-29

Поможем написать учебную работу

Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.

Предоплата всего

от 25%

Подписываем

договор

Выберите тип работы:

Скидка 25% при заказе до 22.6.2025


Кулюкин Олег

Рано или поздно практически каждый программист сталкивается с необходимостью организовать экспорт данных в 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;


1. Курсовая на тему Улаштування та експлуатації колії
2. Лабораторная работа на тему Отбор и набор персонала ООО Терморос
3. Сочинение на тему Рецензия на повесть Ф А Абрамова Поездка в прошлое
4. Реферат на тему Michael Jordan Essay Research Paper Michael Jordans
5. Реферат на тему Hamlet Essay Research Paper In the tale
6. Реферат Лингвистическая аргументация
7. Реферат на тему TranscendentalismRalph Waldo Emerson Essay Research Paper TranscendentalismRalph
8. Реферат История болезни по хирургии острый калькулёзный холецистит
9. Реферат на тему Canines Essay Research Paper Canines on the
10. Реферат на тему The Train Essay Research Paper The Train