Експорт на данни в ексел в Делфи

Добавете бутон към формата, диалога Съхраняване и масата StringGrid. За да има възможност StringGrid редактиране на маса трябва да е в неговите качества, за да даде възможност на опция goEditing:

Visual подготовка за нашия пример готов. Ние се обръщаме към писане на код.

Както в случая трябва да се чете XLS ComObj библиотека. Добавете го към употребите. По-долу е списък на режим износ, добавете я след изпълнението на ключовите думи.

започвам
// създава обект Excel
ExlApp: = CreateOleObject ( "Excel.Application ');

// направи Excel невидим прозорец
ExlApp.Visible: = фалшива;

// създаване на книга за износ
ExlApp.Workbooks.Add;

// създаде листов обект (PAGE) и определя броя на листа (1)
// в книгата, която ще осъществи износ на
Спецификация: = ExlApp.Workbooks [1] .WorkSheets [1];

// определя името на листа
Sheet.name:='Данные_из_Delphi ";

// чете броя колони и редове в StringGrid
R: = Grid.RowCount;
в: = Grid.ColCount;

// забраните всички предупреждение Excel
ExlApp.DisplayAlerts: = False;

// затваряне на приложението Excel
ExlApp.Quit;

// изчистите заделената памет
ExlApp: = Неопределен;
Спецификация: = Неопределен;

Алгоритъмът на процедурата:

Това е всичко. Пълен списък на проекта може да се намери, като изтеглите прикачения файл по-долу. Също така в архива съдържа списък на константи, типове, позволявайки избрано за разширяване на списъка с наличните видове, изнасяни Excel.