Zahlenwerte an Excel übergeben (Zellen ansprechen)

[Chemiker]

Hallo Mucki,

vielleicht hilft dir das weiter:

Delphi-Quellcode:

unit excelzahlUnit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComObj;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation
var Excel : Variant;
{$R *.dfm}
{------------------------------------------------------------------------------}
{ EXCEL starten                                                                }
{------------------------------------------------------------------------------}
function f_EXCEL (var m_EXCEL : Variant): boolean;
begin
   try
    m_EXCEL := CreateOleObject('Excel.Application');
    Result := TRUE;
  except
    ShowMessage('Excel konnte nicht gestartet werden!');
    Result := FALSE;
    Exit
  end;
end;



procedure TForm1.Button1Click(Sender: TObject);
var zahl : string;
begin
  if f_Excel(Excel)then   // Excel startet
    ShowMessage('MSExcel ist erfolgreich gestartet worden!!')
   else
     ShowMessage('MSExcel konnte nicht gestartet werden!!');

  Excel.Visible := TRUE;  // TRUE = Excel sichtbar.

  Excel.Application.Workbooks.Add;  // Neue Arbeitsmappe öffnen in EXECL


  Excel.Range['A1'].Select;               {Auf die erste Zelle setzen }
  Excel.Worksheets ['Tabelle1'].Activate;  

  zahl:= inttostr(100);
  Excel.cells[1, 1].Value := zahl; // Bei StringGrid wär der Index [0,0]
  
  Excel.Workbooks.Close; // Excel wieder schliessen.

end;

end.

Bis bald Chemiker