[kapcomx]

que tal paulao, espero te sirva este ejemplo Saludos....

Código Delphi [-]
var
x: integer; 
t:string;
begin
ExcelApplication1.Connect;
ExcelApplication1.Visible[0] := true;
ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks.Add(EmptyParam,0));
ExcelWorksheet1.ConnectTo(ExcelApplication1.Sheets[1] as _WorkSheet);
 for x:=0 to checklistbox1.Items.count - 1  do
    begin
             if (checklistbox1.checked[x]=true) then
            begin
             t:= checklistbox1.items[x]  ;
             EXCELWORKSHEET1.Cells.ITEM[x,1].VALUE2:= t;
            end;
    end;
end;

.

P.D. no se que paso se me repitio mensaje jeje...