Referat.me

Название: Экспорт в Excel

Вид работы: доклад

Рубрика: Информатика и программирование

Размер файла: 13.84 Kb

Скачать файл: referat.me-133849.docx

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

Экспорт в 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;

Похожие работы

  • Инсталляция by NSIS

    Рано или поздно любой программист сталкивается с проблемой создания дистрибутивов своего детища. Специально для решения этой проблемы в мире существует ряд программ которые предназначены для решения этой проблемы.

  • Разработка приложений на языке VBA в среде MS EXCEL по обработке данных для заданных объектов

    Министерство высшего и среднего образования Российской Федерации Иркутский Государственный Технический университет Факультет Технологии и Компьютеризации Машиностроения

  • Microsoft Exel

    ВОПРОСЫ К ЭКЗАМЕНУ ПО ИНФОРМАТИКЕ 2 семестр Табличные процессоры. Классификация. Табличный процессор Excel. Назначение. Основные приемы работы в Excel: ведение рабочей книги.

  • CASE-мышление: вы готовы программировать иначе?

    Для того чтобы создавать объектно-ориентированные программы, необходимо отказаться от традиционного процедурного мышления и начать мыслить при помощи объектов. То же справедливо и для CASE-средств.

  • Прикладной или системный?

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

  • Закон Мура

    Основные характеристики компьютеров улучшаются в два раза каждые два года.

  • Использование технологии вставки и внедрения объектов

    Технология внедрения и связывания объектов OLE (рисунков, таблиц Excel, редактора формул MS Equation). Варианты обмена данными. Внедрение объекта в документ. Команды "вставить", "специальная вставка". Windows-приложения в качестве приемника и источника.

  • Изучение возможностей создания MDI-приложений (multiple document interface)

    Возможности создания MDI-приложений, их преимущества. Основные приемы работы с записью информации в файл, экспорт данных в приложения Microsoft Office с помощью использование технологии OLE, на примере MS Excel интегрированного пакета MS Office.

  • Переустановка Windows

    О самой процедуре удаления Windows и установки по новой уже много рассказано и повторяться здесь не имеет смысла. Я упомяну только о некоторых установках на которые часто не обращают внимание.

  • Отчётность в Excel

    Наша задача создать отчётность в Excel. Эта потребность может возникнуть у каждого программиста баз данных, ведь Office установлен в нашей стране практически на каждом компьютере.