![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() ЗЗдравствуйте, передо мной возникла проблема, как вывести из программы результаты расчётов в виде книги excel. А лучше, чтоб был уже готовый, как шаблон, файл и просто редактировать некоторые значения в нем.
![]() |
#2
|
||||
|
||||
![]() Я тоже ищу эту тему люди подскажите как
![]() |
#3
|
||||
|
||||
![]() Ну вот простейший пример:
Код:
procedure TForm8.Button2Click(Sender: TObject); Var Excel, WorkBook, WorkSheet: Variant; i: Integer; begin if ListView1.Items.Count = 0 then Exit; Excel := CreateOLEObject('Excel.Application'); Excel.Visible := True; WorkBook := Excel.WorkBooks.Add; WorkSheet := WorkBook.WorkSheets[1]; for i := 0 to ListView1.Items.Count - 1 do begin WorkSheet.Range['A'+IntToStr(i+1)] := ''''+ListView1.Items[i].Caption; WorkSheet.Range['B'+IntToStr(i+1)] := ''''+ListView1.Items[i].SubItems[0]; end; end; Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |