(Resolvido) Erro ao exportar arquivos para o Excel

[danielrgoes]

Bom dia Pessoal

Eu fiz um codigo para exportar dados para o Excel

ExcelApplication1 := TExcelApplication.Create(nil);

ExcelApplication1.Workbooks.Add(EmptyParam,0);

ExcelApplication1.Visible[0] := True;

Planilha := ExcelApplication1.Workbooks [1].Worksheets[1];

Planilha.Cells[1,1].Value := 'RELATÓRIO DE COMPUTADORES';

Planilha.Cells[1,1].Select; //seleciona a celula

Planilha.Cells[1,1].Font.Bold := True; //coloca em negrito

Planilha.Cells[1,1].Borders.LineStyle := 1;

Planilha.Cells[1,1].Borders.Color := clBlack;

Planilha.Cells[1,1].Interior.Color := clYellow; // muda a cor d fundo da linha

Planilha.range['A1:N1'].Mergecells := True; //mescla as celulas

Planilha.Cells[1,1].HorizontalAlignment := xlcenter;

ExcelApplication1.columns.AutoFit;

Planilha.SaveAs(SaveDialog1.FileName);

ExcelApplication1.Quit;

ExcelApplication1.Free;//libera memoria

Ate ai sem novidades funcionou

Porem o excel precisa estar fechado se estiver aberto da Erro

alguém sabe como contornar ?

Pessoal revolvi

apaguei a linha :

Planilha.Cells[1,1].Select; //seleciona a celula

Obrigado

Edited August 18, 2011 by danielrgoes