| |
 |
Atualização |
 |
|
|
|
|
|
|
| |
 |
Usuário |
 |
|
|
|
|
|
|
| |
 |
Menu |
 |
|
|
|
|
|
|
| |
 |
Campeonato |
 |
|
|
|
|
|
|
| |
 |
Climatempo |
 |
|
|
|
|
|
|
| | | | |
| SALVANDO PLANILHA A PARTIR DE UMA QUERY |
Colocar scExcelExport no Uses
Procedure X;
scExcelExport1: TscExcelExport;
begin
scExcelExport1 := TscExcelExport.Create(nil);
try
scExcelExport1.ExcelVisible:=True;
scExcelExport1.LoadDefaultProperties;
scExcelExport1.Dataset:=query;
scExcelExport1.WorksheetName:='Plan1';
scExcelExport1.ConnectTo := ctNewExcel;
scExcelExport1.ExportDataset;
scExcelExport1.SaveAs('c:\temp\Planilha.xls',ffXL97);
finally
scExcelExport1.Disconnect;
scExcelExport1.Free;
end;
end;
OBS:
Se não quizer que todos os campos sejam exportados colocar o campo como visible = false
Se desejar que o cabeçalho das colunas tenha um nome mais fácil altere o display label dos campos.
|
[ Voltar ]
 | | | | |
|