Exportação Excel com Data Errada

[Jorge Seiki Teruya 15]

Olá galera,

 

Tenho um botão que exporta as informações do DBGrid para uma planilha do Excel, está funcionando direitinho só o problema na coluna data, pois do dia 1 ao dia 12 ele trata como se fosse um mês..

 

Exemplo DBGrid

01/09/2012 Ana

01/09/2012 João

02/09/2012 Marcelo

25/09/2012 Jully

 

Quando exporto pro Excel fica assim:

09/01/2012 Ana

09/01/2012 João

09/02/2012 Marcelo

25/09/2012 Jully

 

Código Abaixo:

 if not formConexao.cdsSup_ordem_servico.IsEmpty then
 begin
   planilha:= CreateoleObject('Excel.Application');
   planilha.WorkBooks.add(1);
//    if rgTipo.ItemIndex = 0 then
     planilha.caption := 'Ordens de Serviço';
//    else
//      planilha.caption := 'G5Estoque - Contrato por Técnico Não Executados.';
   planilha.visible := true;

   formConexao.cdsSup_ordem_servico.ApplyUpdates(-1);
   formConexao.cdsSup_ordem_servico.First;
   for linha := 0 to formConexao.cdsSup_ordem_servico.RecordCount - 1 do
   begin
     for coluna := 1 to formConexao.cdsSup_ordem_servico.FieldCount do
     begin
       valorcampo := formConexao.cdsSup_ordem_servico.Fields[coluna - 1].AsString;
       planilha.cells[linha + 2,coluna] := valorCampo;
     end;
     formConexao.cdsSup_ordem_servico.Next;
   end;
   for coluna := 1 to formConexao.cdsSup_ordem_servico.FieldCount do
   begin
     valorcampo := formConexao.cdsSup_ordem_servico.Fields[coluna - 1].DisplayLabel;
     planilha.cells[1,coluna] := valorcampo;
   end;
   planilha.columns.Autofit;
 end
 else
 begin
   ShowMessage('Não existe informação!');
   Abort;

[Chrnos 30]

O Excel tem a mania de zoar as datas mesmo... uma saída simples é por uma aspas simples antes de enviar o campo de data pra planilha, o que faz o excel interpretar que a coluna não é uma coluna de data e sim texto. De resto, teria que ver as configurações regionais ou converter seu campo de data pro formato que o excel trabalha (possivelmente mm/dd/yyyy, não lembro agora).

[Jorge Seiki Teruya 15]

Olá Chrnos, poderia me ajudar pois ainda sou iniciante e não sei como posso tratar o campo antes de enviar para o excel. :)