Erro ao exportar datas para o excel
Pessoal,
Boa Noite.
Estou com um problema para exportar dados para o excel.
Consigo exportar normalmente, só que tá dando erro nas datas.
Ex: 01/09/2006 fica assim no excel: 09/01/2006, isso até o dia 12, apartir do dia 13 fica normal 13/09/2006.
Preciso que todos as datas sejam no formato correto, já pesquisei aqui no forum hj o dia todo e fiz varios testes sem sucesso.
Coloquei dentro de um button:
var
linha,coluna: integer;
planilha: variant;
valorcampo: string;
begin
dm.QrCadastro.Open;
planilha:=CreateOleObject(´Excel.Application´);
planilha.Workbooks.open(´C:\exportar\tabela.xls´);
planilha.caption:=´Relatorio de OSs´;
planilha.Visible:=True;
Planilha.cells[1]:= ´DATA´;
Planilha.cells[2]:= ´REP´;
Planilha.cells[3]:= ´TOTAL´;
Dm.QrCadastro.First;
for linha:=0 to Dm.QrCadastro.recordcount-1 do
begin
for Coluna:=1 to Dm.QrCadastro.FieldCount do
begin
Valorcampo:= Dm.QrCadastro.Fields[coluna-1].asstring;
Planilha.cells[linha+2,coluna]:=valorcampo;
end;
Dm.QrCadastro.next;
end;
Me ajudem galera.
Sds.
Boa Noite.
Estou com um problema para exportar dados para o excel.
Consigo exportar normalmente, só que tá dando erro nas datas.
Ex: 01/09/2006 fica assim no excel: 09/01/2006, isso até o dia 12, apartir do dia 13 fica normal 13/09/2006.
Preciso que todos as datas sejam no formato correto, já pesquisei aqui no forum hj o dia todo e fiz varios testes sem sucesso.
Coloquei dentro de um button:
var
linha,coluna: integer;
planilha: variant;
valorcampo: string;
begin
dm.QrCadastro.Open;
planilha:=CreateOleObject(´Excel.Application´);
planilha.Workbooks.open(´C:\exportar\tabela.xls´);
planilha.caption:=´Relatorio de OSs´;
planilha.Visible:=True;
Planilha.cells[1]:= ´DATA´;
Planilha.cells[2]:= ´REP´;
Planilha.cells[3]:= ´TOTAL´;
Dm.QrCadastro.First;
for linha:=0 to Dm.QrCadastro.recordcount-1 do
begin
for Coluna:=1 to Dm.QrCadastro.FieldCount do
begin
Valorcampo:= Dm.QrCadastro.Fields[coluna-1].asstring;
Planilha.cells[linha+2,coluna]:=valorcampo;
end;
Dm.QrCadastro.next;
end;
Me ajudem galera.
Sds.
Marcelovms
Curtidas 0
Respostas
Marcelovms
27/11/2006
PSC
GOSTEI 0
Marcelovms
27/11/2006
Me ajudem galera!!!
Estou em apuros.
Estou em apuros.
GOSTEI 0
Marcelovms
27/11/2006
Me ajudem galera!!!
GOSTEI 0
Thiago Vidal
27/11/2006
vc está passando a data como string, não sei se funciona, mas posso te sugerir 2 soluçòes:
1- tentar passar a data como TDateTime mesmo (não sei se o excel aceita)
2- tentar passar a data formatada como string em outro formato, ex: yyyy-mm-dd, mm/dd/yyyy, utilizando o FormatDateTime.
espero ter ajudado!
1- tentar passar a data como TDateTime mesmo (não sei se o excel aceita)
2- tentar passar a data formatada como string em outro formato, ex: yyyy-mm-dd, mm/dd/yyyy, utilizando o FormatDateTime.
espero ter ajudado!
GOSTEI 0
Marcelovms
27/11/2006
Colega muito obrigado pela dica.
Consegui resolver o problema vou postar aqui porque talvez alguem queira.
Consegui resolver o problema vou postar aqui porque talvez alguem queira.
var
linha,coluna: integer;
planilha: variant;
valorcampo: string;
valorcampo: TdateTime;
begin
planilha:=CreateOleObject(´Excel.Application´);
planilha.Workbooks.open(´C:\exportar\tabela.xls´);
planilha.caption:=´Relatorio de OSs´;
planilha.Visible:=True;
Planilha.cells[1]:= ´DATA´;
Planilha.cells[2]:= ´REP´;
Planilha.cells[3]:= ´TOTAL´;
Dm.QrCadastro.Close;;
Dm.QrCadastro.Open;
Dm.QrCadastro.First;
for linha:=0 to Dm.QrCadastro.recordcount-1 do
begin
for Coluna:=2 to Dm.QrCadastro.FieldCount do
begin
ValorData:= Dm.QrCadastro.FieldsbyName[´DATA´].asDateTime;
Planilha.cells[linha+2,1]:=ValorData;
Valorcampo:= Dm.QrCadastro.Fields[coluna-1].asstring;
Planilha.cells[linha+2,coluna]:=valorcampo;
end;
Dm.QrCadastro.next;
end;
GOSTEI 0