Delphi X Excel

[Progr'amador]

Olá,

tenho o código abaixo que gera arquivo em excel, e gostaria que ao finalizar o processo o excel seja fechado só que não estou conseguindo.

     Excel := CreateOleObject('Excel.Application');
     Excel.Visible :=True;
     Excel.WorkBooks.Open(vArq);
     //Excel.Workbooks.Add;

     Excel.WorkBooks[1].Sheets[1].Cells[1,5]:= 'MAPA INFORMATIVO DAS MUTAÇÕES PATRIMONIAIS - EXERCÍCIO '+DBEdit2.Text;
     Excel.WorkBooks[1].Sheets[1].Cells[1,13]:= 'MÊS: '+DBLookupComboBox1.Text+'/'+DBEdit2.Text;
     Excel.WorkBooks[1].Sheets[1].Cells[2,13]:= 'Protocolo: '+DBEdit3.Text;


     QryMapaItens.First;
     li := 7;
     while not QryMapaItens.Eof do begin
        Excel.WorkBooks[1].Sheets[1].Cells[li,1]:= QryMapaItens.FieldByName('CD_CONTA_CONTABIL').AsString;
        Excel.WorkBooks[1].Sheets[1].Cells[li,2]:= QryMapaItens.FieldByName('NOMENCLATURA').AsString;
        if QryMapaItens.FieldByName('VL_MES_ANTERIOR').Value > 0 then
           Excel.WorkBooks[1].Sheets[1].Cells[li,9]:= QryMapaItens.FieldByName('VL_MES_ANTERIOR').Value;
        if QryMapaItens.FieldByName('VL_INCORP_MES').Value > 0 then
           Excel.WorkBooks[1].Sheets[1].Cells[li,10]:= QryMapaItens.FieldByName('VL_INCORP_MES').Value;
        if QryMapaItens.FieldByName('VL_INCORP_EXERCICIO').Value > 0 then
           Excel.WorkBooks[1].Sheets[1].Cells[li,11]:= QryMapaItens.FieldByName('VL_INCORP_EXERCICIO').Value;
        if QryMapaItens.FieldByName('VL_BAIXA_MES').Value > 0 then
           Excel.WorkBooks[1].Sheets[1].Cells[li,12]:= QryMapaItens.FieldByName('VL_BAIXA_MES').Value;
        if QryMapaItens.FieldByName('VL_BAIXA_EXERCICIO').Value > 0 then
           Excel.WorkBooks[1].Sheets[1].Cells[li,13]:= QryMapaItens.FieldByName('VL_BAIXA_EXERCICIO').Value;
        if QryMapaItens.FieldByName('VL_SALDO').Value > 0 then
           Excel.WorkBooks[1].Sheets[1].Cells[li,14]:= QryMapaItens.FieldByName('VL_SALDO').Value;

        li := li + 1;
        QryMapaItens.Next;
     end;
     Excel.WorkBooks[1].SaveAs(vArq);
     Excel.WorkBooks[1].Close;

Abs. Progr'amador. ;)

[Graymalkin]

Já tentou...

Excel.Quit;

...?

Graymalkin

[Progr'amador]

Valeu Graymalkin!

funcionou certinho

Obrigado.

Abs. Progr'amador. :)

[D4n1l0d]

como eu faço para criar um objeto que dê acesso ao Word??

e que tipo de variavel seria, seria assim???:

var

winword : IDispatch;

begin

winword := CreateOleObject('Word.Application');

[Graymalkin]

Eu sempre coloco o tipo do objeto como Variant.

Abraços,

Graymalkin

[D4n1l0d]

não funcionou, falou algo de modulo especificado não encontrado

qual é o modulo para usar o word/?

e como é que eu faço para saber as funções que eu posso usar para escrever no word/?

o´codigo que eu usei e deu erro foi o seguinte:

var
winword : Variant;
begin
winword := CreateOleObject('Word.Application');
winword.visible := true;

[Graymalkin]

Você adicionou ComObj na cláusula Uses?

Abraços,

Graymalkin

[D4n1l0d]

sim

ele apresenta esse erro quando eu abro o programa e clico no botão que executa o código

==========

e o erro é:

Não foi possivel encontrar o módulo especificado.

===============

com o código do excel rodo beleza

============

deve ser algum problema no meu pc, vo reinstala o office, porque nem usando o componente WordApplication que vem com o delphi funcionou, deu o mesmo erro! =//

[Graymalkin]

É, eu já vi isso acontecer (de funcionar o Excel e não funcionar o Word, ou foi o contrário). Se me lembro bem, a reinstalação do Office resolveu o problema.

Abraços,

Graymalkin