Fórum Erro na exportação Excel #442838

procedure TExportacao.exportarParaExcel(grid: TcxGridTableView; dataSet: TADODataSet; caption : TCaption);
var
   planilha                  : variant;
   i, coluna, linha          : Integer;
   nomeDoCampo               : String;
begin
   try
     dataSet.DisableControls;
     planilha := CreateOleObject('Excel.Application');
     planilha.Caption := caption;
     planilha.Visible := False;
     planilha.WorkBooks.add(1);
     planilha.Columns.AutoFit;
     planilha.Visible := True;

       ///////////////////////////////////////////////////////////////////////////
       ///  Preenchendo o Cabeçalho                                              /
       ///////////////////////////////////////////////////////////////////////////
       coluna := 1;
       linha  := 1;
       for i := 0 to grid.ColumnCount - 1 do
       begin
         if grid.Columns[i].Visible then
         begin
           planilha.Cells[linha, coluna]                   := grid.Columns[i].Caption;
           planilha.Cells[linha, coluna].Font.Bold         := True;
           planilha.Cells[linha, coluna].Borders.LineStyle := 1;
           Inc(coluna, 1);
         end;
       end;

       ///////////////////////////////////////////////////////////////////////////
       ///  Preenchendo o Corpo
       ///////////////////////////////////////////////////////////////////////////
       linha := 2;
       dataSet.First;
       while not dataSet.Eof do
       begin
          coluna := 1;
          for i := 0 to grid.ColumnCount - 1 do
          begin
            if grid.Columns[i].Visible then
            begin
              nomeDoCampo                                     := Copy(grid.Columns[i].Name, length(grid.Name) + 1, length(grid.Columns[i].Name));
              planilha.Cells[linha, coluna].Borders.LineStyle := 1;
              planilha.Cells[linha, coluna] := dataSet.FieldByName(nomeDoCampo).Value;
              Inc(coluna, 1);
            end;
          end;
          Inc(linha, 1);
          dataSet.Next;
       end;
     
     planilha.Columns.AutoFit;
     planilha.Visible := True;
     dataSet.EnableControls;

   except
      MensagemDeDialogo('Erro ao Exportar para o Excel.', MB_OK + MB_ICONERROR);
   end;
end;