[ главная ]   [ рейтинг статей ]   [ справочник радиолюбителя ]   [ новости мира ИТ ]



Ответов: 0
25-02-12 07:01







   Web - программирование
PHP


ASP






XML



CSS

SSI





   Программирование под ОС











   Web - технологии








   Базы Данных









   Графика






Данные




Программирование под ОС / Pascal - Delphi /

Экспорт данных из Delphi в Excel

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

 




Комментарии

 Ваш комментарий к данному материалу будет интересен нам и нашим читателям!



Последние статьи: Программирование под ОС / Pascal - Delphi /

Работа со шрифтами на Win API
06-06-2010   

Сегодня поговорим о шрифтах, и о том, каким образом работать с ними на Win API. Нам потребуется переменная типа HFONT. Изменить стиль шрифта можно у любого компонента, я покажу это на примере кнопки... подробнее

Кол. просмотров: общее - 3809 сегодня - 1

Работа с таймером на Win API
06-06-2010   

Таймер - вещь в хозяйстве очень полезная. Если некое действие нужно повторять с определенной периодичностью, то таймер, это как раз то, что нужно... подробнее

Кол. просмотров: общее - 3801 сегодня - 0

Работа с мультимедийным таймером на Win API
06-06-2010   

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

Кол. просмотров: общее - 3920 сегодня - 0

Создание CheckBoxов средствами Win API
06-06-2010   

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

Кол. просмотров: общее - 4062 сегодня - 0

Создание группы RadioButton средствами Win API
06-06-2010   

В прошлый раз мы сделали несколько радио-кнопок, которые автоматически объединялись в одну группу. Сейчас рассмотрим, как создавать несколько независимых групп радио-кнопок... подробнее

Кол. просмотров: общее - 3849 сегодня - 0



  WWW.COMPROG.RU - 2009-2012 | Designed and Powered by Zaipov Renat | Projects