Excel schließen und speichern(!)

[Chemiker]

Herzlich willkommen in der Delphi-PRAXiS, oaktrvm.

Ich habe mal den Quell-Code etwas geändert, vielleicht geht’s dann. Mir steht leider kein Excel 2002 zur Verfügung, deswegen kann ich nicht überprüfen wo der Fehler liegt. Einfach mal ausprobieren.

Delphi-Quellcode:

{------------------------------------------------------------------------------}
{ EXCEL starten                                                                }
{------------------------------------------------------------------------------}
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 zahl, zahl2 : string;
    DateiName: string;
    WBobj: olevariant;
    Excel: Variant;
begin
  DateiName:= 'F:\Excel-ProgammOrdner\Beispiel Daten\Test1.xls';
  if EXCELStarten(Excel)then   // Excel startet
  begin
    ShowMessage('MSExcel ist erfolgreich gestartet worden!!');
  end
  else
  begin
     ShowMessage('MSExcel konnte nicht gestartet werden!!');
  end;

  Excel.Visible := TRUE;  // TRUE = Excel sichtbar.
  WBobj:= Excel.Application.Workbooks.Add;  // Neue Arbeitsmappe öffnen in EXECL
  Excel.Worksheets ['Tabelle1'].Activate;

  zahl:= '+0000123789';
  zahl2:= '+0000123789222';

  Excel.cells[1,1].select;             // Zelle wählen
  Excel.Selection.numberFormat:= '@';  // benutzerdefiniertes Zahlenformat
  Excel.Cells[1,1]:= zahl;             // String in die Zelle schreiben.
  Excel.Cells[1,2].select;
  Excel.Selection.numberFormat:= '@';
  Excel.Cells[1,2]:= zahl2;
  Excel.cells[1,6]:= 'Hiervvvvvvvv1111111 ';

  WBobj.saved := FALSE;
  WBobj.Close (saveChanges:=TRUE, FileName:=DateiName);
  Excel.Quit;

end;

Bis bald Chemiker