Недавно добавленные исходники

•  DeLiKaTeS Tetris (Тетрис)  296

•  TDictionary Custom Sort  3 445

•  Fast Watermark Sources  3 191

•  3D Designer  4 950

•  Sik Screen Capture  3 444

•  Patch Maker  3 647

•  Айболит (remote control)  3 848

•  ListBox Drag & Drop  3 111

•  Доска для игры Реверси  82 589

•  Графические эффекты  4 050

•  Рисование по маске  3 346

•  Перетаскивание изображений  2 719

•  Canvas Drawing  2 869

•  Рисование Луны  2 672

•  Поворот изображения  2 284

•  Рисование стержней  2 217

•  Paint on Shape  1 617

•  Генератор кроссвордов  2 298

•  Головоломка Paletto  1 815

•  Теорема Монжа об окружностях  2 315

•  Пазл Numbrix  1 713

•  Заборы и коммивояжеры  2 089

•  Игра HIP  1 308

•  Игра Go (Го)  1 259

•  Симулятор лифта  1 506

•  Программа укладки плитки  1 252

•  Генератор лабиринта  1 578

•  Проверка числового ввода  1 397

•  HEX View  1 528

•  Физический маятник  1 383

 
скрыть


Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Delphi Sources

Сохранение данных из TListView в XLS



Автор: dDan

{ **** UBPFD *********** by delphibase.endimus.com ****
>> Сохранение данных из ListView в *.xls

Сохранение данных из ListView в *.xls

Зависимости: ComObj
Автор:       dDan, ddan2002@mail.ru
Copyright:   dDan
Дата:        3 декабря 2003 г.
***************************************************** }

procedure ListToExcel(ListView: TListView);
var
  row, i: integer;
  Range, Sheet: VAriant;
begin
  try
    Excel := CreateOleObject('Excel.Application');
  except
    raise Exception.Create('Невозможно поключиться к серверу Excel');
  end;
  Screen.Cursor := crHourGlass;
  Excel.SheetsInNewWorkBook := 1;
  Excel.WorkBooks.Add;
  Sheet := Excel.Workbooks[1].Sheets[1];
  Range := Sheet.Columns;
  Range.Columns[1].ColumnWidth := 30;
  Range.Columns[n].ColumnWidth := 30;
  Range.Columns[n + 1].ColumnWidth := 30;
  Range.Columns.Font.Size := 8;
  Range := Sheet.Range['a1:f1'];
  Range.Font.Size := 15;
  Range.Font.Bold := True;
  Range.Columns.Interior.ColorIndex := 6;
  Range.HorizontalAlignment := 3;
  Sheet.Cells[1, 2] := 'Данные на' + DateToStr(Date); //Заголовок
  Range := Sheet.Range['a2:f2'];
  Range.Font.Size := 10;
  Range.Font.Bold := True;
  Sheet.Cells[2, 1] := 'АА'; //Названия столбцов
  Sheet.Cells[2, n] := 'ББ';
  Sheet.Cells[2, n + 1] := 'вв';
  Row := 3;
  for i := 0 to List.Items.Count - 1 do
  begin
    Sheet.Cells[Row, 1] := ListView.Items.Item[i].Caption;
    Sheet.Cells[Row, 2] := ListView.Items.Item[i].SubItems[n];
    Sheet.Cells[Row, 3] := ListView.Items.Item[i].SubItems[n + 1];
    inc(Row);
  end;
  Screen.Cursor := crDefault;
  if SaveDialog.Execute then
    Excel.WorkBooks[1].SaveAs(exs.FileName); //Сохраняем
  Excel.Visible := True; //Показываем Excel
end;




Похожие по теме исходники

Экспорт баз данных в Excel

База данных "Книжный магазин"

База данных Видеофильмов

База данных "Школа"

 

База данных без BDE

База данных студентов

Фильтрование данных

Pevrica (сжатие данных)

 



Copyright © 2004-2024 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

Группа ВКонтакте