[dwp_prof]

Подскажите как реализовать сохранение из ListView в *.xls таблицу

Зарание спасибо

[Страдалецъ]

Собственнно ничего особо сложного:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39

Uses ComObj;   procedure TForm15.Button1Click(Sender: TObject); Var   Row, Col: Integer;   Excel, WorkBook, WorkSheet: Variant; begin  if ListView1.ViewStyle <> vsReport then Exit;  if not Assigned(ListView1.Columns) then Exit;    Excel := CreateOLEObject('Excel.Application');  Excel.Visible := True;  WorkBook := Excel.WorkBooks.Add;  WorkSheet := WorkBook.WorkSheets[1];    for Col := 0 to ListView1.Columns.Count - 1  do WorkSheet.Range[Chr(65 + Col) + '1'] := ListView1.Columns[Col].Caption;    for Row := 0 to ListView1.Items.Count - 1  do for Col := 0 to ListView1.Columns.Count - 1     do if Col = 0        then WorkSheet.Range[Chr(65 + Col) + IntToStr(Row + 2)] := ListView1.Items[Row].Caption        else WorkSheet.Range[Chr(65 + Col) + IntToStr(Row + 2)] := Format('R%dC%d',[Row,Col]);  Excel := UnAssigned; end;   procedure TForm15.FormCreate(Sender: TObject); Var   Row, Col: Integer; begin  for Row := 0 to 5  do begin     ListView1.AddItem('', nil);     for Col := 0 to ListView1.Columns.Count - 1     do if Col = 0        then ListView1.Items[Row].Caption := Format('R%dC%d',[Row,Col])        else WorkSheet.Range[Chr(65 + Col) + IntToStr(Row + 2)] := ListView1.Items[Row].SubItems.Strings[Col - 1];     end; end;

[dwp_prof]

Спасибо, сейчас попробую

[dwp_prof]

А не затруднит вас прикрепить пояснения к каждому циклу. Просто так скопировать могу, но лучше бы и разобраться что к чему))))

[dwp_prof]

Ругается на строчку

else WorkSheet.Range[Chr(65 + Col) + IntToStr(Row + 2)] := ListView1.Items[Row].SubItems.Strings[Col - 1];

Причем без FormCreate все прекрасно работает.. Объясните зачем эта процедура

[dwp_prof]

Ой всё нашел урок на сайте ващем.. щас прочту))