| |
 |
Atualização |
 |
|
|
|
|
|
|
| |
|
Usuário |
|
|
|
|
|
|
|
| |
|
Menu |
|
|
|
|
|
|
|
| |
|
Campeonato |
|
|
|
|
|
|
|
| |
|
Climatempo |
|
|
|
|
|
|
|
| | | | |
| SALVANDO UMA PLANILHA DO EXCEL | {Li alguns artigos (aqui no site) sobre como gravar em planilhas do excel mas nenhum deles citavam como fazer para salvar automaticamente a planilha (justamente, a dúvida de alguns leitores). Pois bem, use o seguinte:
}
Procedure X;
var excel :variant;
begin
try
excel := CreateOleObject('excel.application');
if not Excel.Application.Visible then
Excel.Application.Visible := true;
Excel.WorkBooks.Add;
Excel.Cells[1,1] := 'cel 1,1';
Excel.Cells[1,2] := 'cel 1,2';
Excel.Cells[1,3] := 'cel 1,3';
Excel.ActiveWorkBook.SaveAs('MyOutput2');
Excel.visible:=False;
Excel.quit;
Excel:=unassigned;
except
showmessage('Ocorreu erro ao executar a transferência');
Excel.WorkBooks.Disconnect; //desconecta sua aplicação do documento aberto no excel.
Excel.Application.Disconnect; //desconecta sua aplicação do Excel
end;
end;
Retirada do Planeta Delphi |
[ Voltar ]
 | | | | |
|
Sistemas
Suporte
Administração
PHP
Links