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....:cool:

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...:confused:

[Paulao]

Perdon, mi olvide de postar el codigo. Abajo el codigo.
function TForm1.TextFoundInFile(path: string; const FileMask:string; const tipo, tabela: string): TStrings;
var
SR: TSearchRec;
txt: TextFile;
Row: string;
Found: Boolean;
i: Integer;
NroExt: TStrings;
begin
NroExt:= TStringList.Create;
try
NroExt.Delimiter:= ';';
NroExt.DelimitedText:= FileMask;
path := IncludeTrailingPathDelimiter(path);
Result := TStringList.Create;
for i:= 0 to NroExt.Count - 1 do
begin
if FindFirst(path + NroExt[i], faAnyFile - faDirectory, SR) = 0 then
repeat
AssignFile(txt,path + SR.Name);
Reset(txt);
Found:= False;
while not Eof(txt) and not Found do
begin
Readln(txt, Row);
if Pos(tabela, Row) > 0 then
begin
Application.ProcessMessages;
Result.Add(tipo + ';' + tabela + ';' + SR.Name);
//CheckListBox1.Items.Add(tipo + ' - ' + tabela + ' - ' + SR.Name);
ListBox1.Items.Add(tipo + ' - ' + tabela + ' - ' + SR.Name);
Found:= True
end
end;
CloseFile(txt);
until FindNext(SR) <> 0
end
finally
NroExt.Free;
end;
end;

y abajo la llamada a este metodo.
procedure TForm1.VarrerClick(Sender: TObject);
begin
ClientDataSet1.Open;
pth := IncludeTrailingPathDelimiter(edtDir.Directory);
while not ClientDataSet1.Eof do
begin
//TextFoundInFile(pth,'*.pas;*.dfm',ClientDataSet1.FieldByName('xtype').AsString,ClientDataSet1.FieldB yName('name').AsString).SaveToFile('D:\Teste\LISTA.txt');
TextFoundInFile(pth,'*.pas;*.dfm',ClientDataSet1.FieldByName('xtype').AsString,ClientDataSet1.FieldB yName('name').AsString);
ClientDataSet1.Next;
end;
end;

[Paulao]

Tego mas de 1400 archivo(.pas y .dfm) y cargo um nombre y me voy comparando com los textos en eses archivos(.pas y .dfm). Esto esta mui lento mi aplicacion y creo que si yo cambiase la forma de busca creo que mejora, o sea, abri los archivos .pas o .dfm y hacer la comparacion en una lista de los nombres que son unos 200 nombres solo. Pero no se como hacer esto.