Exportar de un checklistbox para excel

[Paulao]

Como hago para exportar de un checklistbox(los checados) para excel?

[kapcomx]

que tal

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;

[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...

[Paulao]

No consigo el componente ExcelApplication. Uso Delphi XE 2011.

[Paulao]

Voy sacar el Checklistbox y hacer la exportacion directa para excel. Que pasa es que estas mui lento el proceso de busqueda. Yo hizo, creo con la logiva contraria. Yo cargo el nombre de las tablas, sp, view y me voy comparando con los archivos .pas y .dfm. O sea, pego un item y comparo com todas las units(unas 1.400) y despues otro item y hago otra verificacion. O sea, si tengo unos 200 itenes, tengo que hacer 200 veces en cada 1.400 Units. Esto si, es mui demorado. Creo que lo contrario es mas rapido o uno tiene otra solucion? Mi codigo estas ariba.

[kapcomx]

¿Cúal Código?, creo que no entendi bien lo que tratas d ehacer...