Fórum De StringGrid para Excel #358302

procedure GeraExcel;
var
  coluna, linha: integer;
  excel: variant;
begin

  try
    excel:=CreateOleObject(´Excel.Application´);
    excel.Workbooks.add(1);
  except
    Application.MessageBox (´Deu ´,´Erro´,MB_OK+MB_ICONEXCLAMATION);
  end;

  try

    Linha := 1;

    { Criar Colunas na Tabela / Cabeçalhos }
    for coluna := 0 to NumeroDeColunas do
       begin
         excel.cells [Linha,coluna+1] := ´ValorDaColuna´;
       end;


    { Ler as colunas / linhas do StringGrid e carregar o excel }

    inc(Linha);
    for coluna := 0 to NumeroDeColunas do
       begin
         excel.cells [Linha,coluna+1] := ´ValorNovoDaColuna´;
       end;

    excel.columns.AutoFit;
    excel.visible:=true;

 except on e:exception do
    Application.MessageBox (PChar(´Aconteceu um durante a conversão´+
        ´da tabela para o Ms-Excel´ + #13 + e.Message),´Erro´,MB_OK+MB_ICONEXCLAMATION);
 end;
end;

  For nLinhas:=0 to StringGrid.RowCount-1 do
     begin
       { aqui para cada coluna do StringGrid } 
       excel.cells [nLinha,coluna+1] := StringGrid.Cells[QualColuna,nLinhas]
     end;