Zwei Worksheets in Excel

[Kalli]

Hallo zusammen,

ich möchte Daten aus zwei Abfragen in einer Exceltabelle in Tabelle1 und Tabelle2 schreiben.


xls := CreateOLEObject('Excel.Application');
wb := xls.Workbooks.Add;


Zeile := 1;
wb.WorkSheets[1].Cells[1,Zeile, 1].Value := 'Best-Nr';
wb.WorkSheets[2].Cells[Zeile, 2].Value := 'Seite';


So geht's nicht. Kann mir da jemand helfen?

Kalli

[Chemiker]

Hallo Kalli,

vielleicht hilft Dir das weiter.

Delphi-Quellcode:

function EXCELStarten (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 ArtNr, ArtBez : string;
    Excel: Variant;
begin
    if EXCELStarten(Excel)then   // Excel startet
  begin
    ShowMessage('MSExcel ist erfolgreich gestartet worden!!');
  end
  else
  begin
     ShowMessage('MSExcel konnte nicht gestartet werden!!');
  end;

  Excel.Application.Workbooks.Add;  // Neue Arbeitsmappe öffnen in EXECL
  Excel.Visible := TRUE;             // TRUE = Excel sichtbar.
  Excel.Worksheets[1].Activate;
  ArtNr:= '4711';
  ArtBez:= 'Wasser';
  Excel.Cells[2,3]:= ArtNr;
  Excel.Cells[2,4]:= ArtBez;
  Excel.Worksheets[2].Activate;
  Excel.Cells[2,3]:= ArtNr;
  Excel.Cells[2,4]:= ArtBez;
  Excel.Quit;
end;

Bis bald Chemiker