TXLSFile - это библиотека Borland Delphi для чтения и записи файлов Microsoft Excel. Библиотека обращается к файлам напрямую, не используя OLE Automation с Microsoft Excel. 

 Показать / Скрыть текст

01.varznak:string;

02. 

03....

04. 

05.units ShellAPI,XLSFile, XLSWorkbook{$IFDEF XLF_D6}, Variants, TeeFunci {$ENDIF};

06. 

07....

08. 

09.Procedure OpenFileInOSShell(AFile:string);//Процедура открытия

10. 

11.begin

12. 

13.ShellExecute(0,'open', PChar(AFile),nil,nil, SW_SHOW);

14. 

15.end;

16. 

17....

18. 

19.xf:=TXLSFile.Create; //создаем объект для работы с exel

20. 

21.xf.OpenFile('baza.xls');// открываем

22. 

23.xf.Workbook.Sheets[0].Cells[2,1].Value:='DelphiComponent.ru'; //запись в ячейку (начинаются с [0,0])

24. 

25.znak:=xf.Workbook.Sheets[0].Cells[i,6].Value;// считаем в строковую переменную

26. 

27.xf.SaveAs('baza.xls');// сохраняем

TXLSFile - это библиотека Borland Delphi для чтения и записи файлов Microsoft Excel. Библиотека обращается к файлам напрямую, не используя OLE Automation с Microsoft Excel.

Производительность: средняя скорость чтения и записи 75 000 ячеек в секунду.

Возможности:

• Компонент Delphi для Работы с файлами MS Excel
• TXLSFile не требует для работы установленного Microsoft Excel.
• TXLSFile подерживает формат MS Excel версий 97, 2000, XP, 2003 (во всех этих версиях используется формат файла BIFF8).
• Файлы XLS, созданные с помощью TXLSFile, могут быть открыты в Excel 2007.
• Файлы XLS, созданные с помощью TXLSFile, могут быть открыты в OpenOffice.
• Содержит функции экспорта данных в файлы формата HTML и TXT.
  
  Все круто, но компонент платный и стоит он 1000 руб.
  Этот компонент работает в режиме демо без всяких ограничений, единственная загвоздка: ваша программа созданная с использованием этого компонента будет работать только при включенной среде разработки Delphi.

Примеры использования:

 Показать / Скрыть текст

01.var znak: string;

02. 

03....

04. 

05.units ShellAPI,XLSFile, XLSWorkbook {$IFDEF XLF_D6}, Variants, TeeFunci {$ENDIF};

06. 

07....

08. 

09.Procedure OpenFileInOSShell(AFile: string); //Процедура открытия

10. 

11.begin

12. 

13.ShellExecute(0, 'open', PChar(AFile), nil, nil, SW_SHOW);

14. 

15.end;

16. 

17....

18. 

19.xf:=txlsfile.Create; //создаем объект для работы с exel

20. 

21.xf.OpenFile('baza.xls'); // открываем

22. 

23.xf.Workbook.Sheets[0].Cells[2, 1].Value:='эксель рулит'; //запись в ячейку (начинаются с [0,0])

24. 

25.znak:=xf.Workbook.Sheets[0].Cells[i,6].Value; // считаем в строковую переменную

26. 

27.xf.SaveAs('baza.xls'); // сохраняем

Об установке:

1. распаковываем в любую папку.
2. Теперь открываем Delphi, жмем в меню файл->закрыть все (File -> Close All) ,
3. затем компонент->Установить Пакеты.(Component -> Install Packages) ,
4. В открывшимся окне жмем на кнопочку добавить (Add) и выбираем файл xf40_unr_d7.bpl
5. Всё жмем ОК

Скачать бесплатно прямо с сервера: TXLSFile