Доклад: Экспорт в Excel

🛑 👉🏻👉🏻👉🏻 ИНФОРМАЦИЯ ДОСТУПНА ЗДЕСЬ ЖМИТЕ 👈🏻👈🏻👈🏻

Рано или поздно практически каждый программист сталкивается с необходимостью организовать экспорт данных в MS Office. При этом каждое "поколение" программистов натыкается на одни и те же вилы.
Вот три часто встречающихся вопроса.
1. Как определить установлен ли 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.
Данный пример ищет активный экземпляр Excel и делает его видимым
var ExcelApp : Variant; begin try // Ищем запущеный экземплят Excel, если он не найден, вызывается исключение ExcelApp := GetActiveOleObject('Excel.Application'); // Делаем его видимым ExcelApp.Visible := true; except end;
Можно выводить данные последовательно в каждую ячейку, но это очинь сильно замедляет работу. Лучше сформировать вариантный массив, и выполнить присвоение области (Range) этого массива.
ExcelApp, Workbook, Range, Cell1, Cell2, ArrayData : Variant;
BeginCol, BeginRow, i, j : integer;
// Координаты левого верхнего угла области, в которую будем выводить данные
// Размеры выводимого массива данных
ExcelApp := CreateOleObject('Excel.Application');
// Отключаем реакцию Excel на события, чтобы ускорить вывод информации
ExcelApp.Application.EnableEvents := false;
// Еслизаполняемшаблон, то Workbook := ExcelApp.WorkBooks.Add('C:\MyTemplate.xls');
Workbook := ExcelApp.WorkBooks.Add;
// Создаем Вариантный Массив, который заполним выходными данными
ArrayData := VarArrayCreate([1, RowCount, 1, ColCount], varVariant);
// Левая верхняя ячейка области, в которую будем выводить данные
Cell1 := WorkBook.WorkSheets[1].Cells[BeginRow, BeginCol];
// Правая нижняя ячейка области, в которую будем выводить данные
Cell2 := WorkBook.WorkSheets[1].Cells[BeginRow + RowCount - 1, BeginCol +
// Область, в которую будем выводить данные
Range := WorkBook.WorkSheets[1].Range[Cell1, Cell2];
// Намного быстрее поячеечного присвоения

Название: Экспорт в Excel
Раздел: Рефераты по информатике, программированию
Тип: доклад
Добавлен 03:25:05 23 декабря 2004 Похожие работы
Просмотров: 254
Комментариев: 16
Оценило: 5 человек
Средний балл: 5
Оценка: неизвестно   Скачать

Срочная помощь учащимся в написании различных работ. Бесплатные корректировки! Круглосуточная поддержка! Узнай стоимость твоей работы на сайте 64362.ru
Привет студентам) если возникают трудности с любой работой (от реферата и контрольных до диплома), можете обратиться на FAST-REFERAT.RU , я там обычно заказываю, все качественно и в срок) в любом случае попробуйте, за спрос денег не берут)
Да, но только в случае крайней необходимости.

Доклад: Экспорт в Excel
Диагностика и лечение миокардитов
Что такое общение? какова роль общения в развитии личности?
Формы организации контрольно-ревизионной работы
Эволюция Митохондрии Реферат
Дипломная работа по теме Электрификация птичника с разработкой САР освещения в условиях ООО 'Колмогоровский бройлер'
Контрольная работа: по Налоговому праву
Сочинение Чему Учит Нас Ломоносов
Реферат: Банковская система Соединенных Штатов Америки
Доклад: Подводная лодка "Почтовый"
Дипломная работа по теме Психологические предпосылки возникновения склонностей к сексуальному насилию
Сочинение Рассуждение Гранатовый Браслет Любовь
Реферат: Сетевые адапторы
Доклад: Афина. Функции её культа, отображение её образа в древнегреческом искусстве
Курсовая работа по теме Дослідження перехідних процесів в гідротранспортній системі при різних темпах закриття регулювальної засувки
Дипломная работа по теме Взрывное формообразование трубчатых деталей
Контрольная работа по теме Таври: суспільний устрій, господарство, культура та вірування
Курсовая работа: Заключение эксперта как доказательство в гражданском процессе
Доклад по теме Гробницы Ивана Грозного и его сыновей
Контрольная работа: Место социологии в структуре современного знания. Скачать бесплатно и без регистрации
Курсовая работа по теме Аудиторская проверка финансовых вложений
Реферат: Проблемы опорно-двигательного аппарата у щенков и стареющих совак
Курсовая работа: Еврипид и его время
Реферат: Компетенция таможенных органов в области валютного контроля