Архив исходников программ, модулей и компонентов на Delphi


Начальная страница

Поиск по базе



Операционная система
Настройка приложения
Взаимодействия приложений
Файлы и директории
Строки и символы
Математика
Базы данных
Интернет и сеть
Мультимедиа
Аппаратная часть
VCL
Другие разделы [0]
 

Количество записей в базе - 537
Сегодня добавлено – 0

Взаимодействие с MS Office



Вернуться к списку функций
 Сохранение данных из ListView в *.xls

 Прислал: dDan ( 3 декабря 2003 г. )
©  dDan
 Описание:
Сохранение данных из ListView в *.xls

 Зависимости:
ComObj

 Исходный текст:
{ **** UBPFD *********** by http://kladovka.net.ru/delphibase/ ****
>> Сохранение данных из 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;


Вернуться к списку функций

Наверх ▲