Адрес этой странички : http://doc-prg.narod.ru/art_00902/art_00902.htm 
Дата обновления: 25.08.2007

© 25.08.2007 Сергей Попов

Excel + Delphi-5.
OLE (COM).
Экспорт содержимого TTreeView в Excel

Статью в виде файла (152 кб) можно скачать здесь: art_00902.zip 

При программировании прикладных задач часто бывает необходимо экспортировать информацию (в контексте содержимого какого-либо Delphi-компонента) в Excel.
Один из возможных вариантов обмена информацией с Excel является механизм OLE Automation.
Ниже приведен текст простой функции, иллюстрирующей  экспорт информации в Excel применительно к Delphi-компоненту TTreeView.
 

function Tree_CopyToExcel(sHead : string; ListExcel : Variant; ListTree : TTreeView) : integer; //Медленный, но простой алгоритм вывода дерева в Excel //sHead - заголовок (произвольный текст) //ListExcel - ссылка на лист Excel (куда надо вывести "дерево") //ListTree - компонент TTreeView //Возвращаемое значение - кол-во выведенных строк (дерева) //(c) Sergey Popov, Usinsk, Komi Var Lev,MaxLevel,iLev, NumLine, NumCol,NumLineLast,NumLineFirst, i123,j,i,k : integer; begin Result:=0; if ListTree<>NIL then begin //Проверяем корректность ссылки на лист Excel if YesLinkToVariant(ListExcel) then begin sHead:=Trim(sHead); MaxLevel:=0; NumLine:=1; NumCol:=1; //-------------------- //Выводим текущую дату ListExcel.Cells[NumLine,NumCol].Value := #39+'Date : '+DateTimeToStr(NOW); //-------------------- NumLine:=NumLine+1; if Length(sHead)>0 then begin //-------------------- //Выводим заголовок NumLine:=NumLine+1; PutToCellInExcel(ListExcel,NumLine,NumCol,1,0,#39+sHead); NumLine:=NumLine+1; //-------------------- end; Result:=NumLine; NumLineFirst:=0; NumLineLast:=0; MaxLevel:=0; if ListTree.Items.Count>0 then begin //-------------------- //Выводим дерево i:=-1; while i<(ListTree.Items.Count-1) do begin i:=i+1; Lev:=ListTree.Items[i].Level; NumCol:=Lev+1; if MaxLevel < Lev then MaxLevel := Lev; NumLine:=NumLine+1; if i=0 then NumLineFirst:=NumLine; ListExcel.Cells[NumLine,NumCol].Value := #39+ListTree.Items[i].Text; ListExcel.Cells[NumLine,NumCol].Borders[4].LineStyle:=3; //1 Application.ProcessMessages; end; //-------------------- NumLineLast:=NumLine; Result:=NumLine; MaxLevel:=MaxLevel+1; //-------------------- //уменьшаем ширину ячеек дерева до 2 (для улучшения читабельности) for i:=1 to MaxLevel do begin ListExcel.Columns[i].ColumnWidth := 2; end; //-------------------- //-------------------- //рисуем соотвествующие линии дерева (медленная часть) i123:=0; i:=NumLineFirst; while i<NumLineLast do begin i:=i+1; i123:=i123+1; j:=1; while j<MaxLevel do begin j:=j+1; if Length(Trim(ListExcel.Cells[i,j].Value))>0 then begin k:=i+1; while k>1 do begin k:=k-1; if Length(Trim(ListExcel.Cells[k,j-1].Value))<=0 then begin ListExcel.Cells[k,j].Borders[1].LineStyle:=3; end else begin k:=-1; end; end; j:=MaxLevel+1; end; end; Application.ProcessMessages; end; //-------------------- end; end; end; end;

Здесь дополнительных комментариев не требуется ...

Проверим, как это работает.

Создадим Delphi-проект.

Рис.1. Форма проекта TreeView_to_Excel.dpr

 Запуск Excel в режиме OLE Automation был подробно рассмотрен в предыдущем примере и здесь мы на этом останавливаться не будем.

Создадим обработчик события : нажатие на кнопку "Экспорт".

procedure TForm1.SpeedButton2Click(Sender: TObject); Var ListExcel : Variant; begin //Проверяем корректность ссылки на Excel if YesLinkToVariant(Excel) then begin //Создаем ссылку на лист Excel по заданному номеру листа ListExcel:=GetListExcel(Excel,SE_ListNum.Value); //Проверяем корректность ссылки на лист Excel if YesLinkToVariant(ListExcel) then begin //Экспорт "дерева" в лист Excel Tree_CopyToExcel('Пример экспорта TTreeView в Excel (http://doc-prg.narod.ru/art_00902/art_00902.htm)', ListExcel, TreeView1); end else begin //Ошибка при создании ссылки на лист Excel ShowMessage('Ошибка при подключении к листу N '+SE_ListNum.Text+' !'); end; end else begin //Ошибка при запуске Excel ShowMessage('Сначала нужно подключиться к Excel ...'); end; end;

Этот текст достаточно прост и не требует доп. пояснений.

Скомпилируем проект и запустим программу на выполнение.

Рис.2. Содержание свойства Items компонента TreeView1

Результат экспорта "дерева" в Excel приведен ниже.

Рис.3. Результат экспорта "дерева" в Excel 

Исходные тексты этого проекта можно взять здесь (13 кб) :  treeview_to_excel.zip

© 25.08.2007 Сергей Попов