Jak na exel – Delphi – Fórum – Programujte.com

Dobry den, potreboval bych poradit se zapisem informaci do exelu. Potreboval bych po kliknuti na tlacitko zapsat nekolik promenych do ruznych bunek jednoho radku v exelu? prosim pomozte. Muj mail je Jerremy09@seznam.cz , nebo ICQ: 233183343
Dik za kazdou odpoved

Koukni třeba na OLE. http://homepages.borland.com/ccalvert/TechPapers/Delphi/DelphiWord.htm Celé jsem to sice nečetl, ale zhruba v polovině stránky je něco o práci s listy a buňkami.

Dikas

Tohle teda není z mý hlavy, ale taky se ti to může hodit. Je to nezávislé na Excelu a na OLE, takže to lze použít i na PC, kde Excel není (jako třeba u mě :)

procedure XlsWriteCellLabel(XlsStream: TStream; const ACol, ARow: Word; const AValue: string);

var

  L: Word;

const

  {$J+}

  CXlsLabel: array[0..5] of Word = ($204, 0, 0, 0, 0, 0);

  {$J-}

begin

  L := Length(AValue);

  CXlsLabel[1] := 8 + L;

  CXlsLabel[2] := ARow;

  CXlsLabel[3] := ACol;

  CXlsLabel[5] := L;

  XlsStream.WriteBuffer(CXlsLabel, SizeOf(CXlsLabel));

  XlsStream.WriteBuffer(Pointer(AValue)^, L);

end;



function SaveAsExcelFile(AGrid: TStringGrid; AFileName: string): Boolean;

const

  {$J+}

  CXlsBof: array[0..5] of Word = ($809, 8, 00, $10, 0, 0);

  {$J-}

  CXlsEof: array[0..1] of Word = ($0A, 00);

var

  FStream: TFileStream;

  I, J: Integer;

begin

  Result := False;

  FStream := TFileStream.Create(PChar(AFileName), fmCreate or fmOpenWrite);

  try

    CXlsBof[4] := 0;

    FStream.WriteBuffer(CXlsBof, SizeOf(CXlsBof));

    for i := 0 to AGrid.ColCount - 1 do

      for j := 0 to AGrid.RowCount - 1 do

        XlsWriteCellLabel(FStream, I, J, AGrid.cells[i, j]);

    FStream.WriteBuffer(CXlsEof, SizeOf(CXlsEof));

    Result := True;

  finally

    FStream.Free;

  end;

end;

SaveAsExcelFile(StringGrid1, 'soubor.xls');