Сохранение в xls

[bakanaev]

Есть 9 TStringList, нужно сохранить данные из каждого в в xls
такого типа

Скажем все строки из 1 TStringList идут в колонку домены и т.д.
Как такое можно сделать?+ что бы еще разноцветность сохранилась

[Sciv]

Ну, например, так (нужно подключить модуль ComObj):

var XL, XArr, Sheet: Variant;
begin

  XL:=CreateOLEObject('Excel.Application');     // Создание OLE объекта
  XArr:=VarArrayCreate([1,1],varVariant);
  XL.WorkBooks.Add;

  XArr[1]:=DM.qWorkJ.RecordCount+DM.tCItog.Fields.Fields[i].AsInteger;
  Sheet:=XL.Sheets.Item[1];
  Sheet.Range[ocol[i]+IntToStr(row),ocol[i]+IntToStr(row)].Value := XArr;

  XL.visible:=true;



end;