Excel und Delphi

[Chemiker]

Hallo David Martens,

ich habe da meine eigenen Erfahrungen. Wenn nach einem Datum filtriert wird, muss das US-Datumsformat berücksichtigt werden, sonst kommt da Unsinn raus.

Wenn an Excel Daten übertragen werden sollen, sollte man Excel auch mitteilen um welche Daten es sich handelt, und nicht wundern wenn Text übertragen wird das Excel auch Text in den Zellen rein schreibt.

Mit diesem Code lassen sich Problemlos die Daten aus einem StringGrid nach EXCEL übertragen:

Delphi-Quellcode:

procedure TForm1.btnExcelExportClick(Sender: TObject);
var i, j:integer;
    Text: String;
    Zahl : Extended;
    Datum: TDateTime;
begin
  for i:=0 to StringGrid1.rowcount-1 do
  begin
    for j:=0 to StringGrid1.colcount-1 do
    begin
      Text:=StringGrid1.cells[j,i];
      if TryStrToFloat(Text, Zahl) then
      begin
        olevEXCEL.cells[i+1,j+1].Value:= Zahl
      end
      else
      begin
        if TryStrToDate(Text,Datum) then
        begin
          olevEXCEL.cells[i+1,j+1].Value := Date;
        end
        else
        begin
          olevEXCEL.cells[i+1,j+1].Value := Text;
        end;
      end;
     end;
  end;
end;

Bis bald Chemiker