Hallo,
Ich möchte mein Excel dokument Speichern, ohne das ich eine Abfrage bekomme, ob ich die bestehende Datei wirklich überspeichern will.
Hier mein Quellcode (im Forum gefunden)
Delphi-Quellcode:
procedure TForm1.ExcelOeffnen;
var
WorkBk: _WorkBook; // ein WorkBook deklarieren
WorkSheet: _WorkSheet; // ein WorkSheet deklarieren
Excel: TExcelApplication;
_lcid: LCID;
begin
_lcid := GetUserDefaultLCID;
Excel := TExcelApplication.Create(Self);
// Zum Server TExcelApplication verbinden
Excel.Connect;
// WorkBooks zur ExcelApplication hinzufügen
Excel.Workbooks.Open('C:\Fondskurse.xls', emptyParam, emptyParam,
emptyParam, emptyParam, emptyParam, emptyParam, emptyParam,
emptyParam, emptyParam, emptyParam, emptyParam, EmptyParam,EmptyParam,EmptyParam,_lcid);
// erstes WorkBook auswählen
WorkBk := Excel.WorkBooks.Item[1];
// erstes WorkSheet definieren
WorkSheet := WorkBk.WorkSheets.Get_Item(1) as _WorkSheet;
// Wer aus Zelle (1,1) anzeigen
// ShowMessage(Worksheet.Cells.Item[1, 2].Value);
Worksheet.Cells.Item[1, 1]:='test2';
Excel.Save('C:\Fondskurse.xls'); // Auch schon mit WorkBk.Close(True, 'C:\Fondskurse.xls', emptyParam, _lcid); ausprobiert
// Server disconnecten
Excel.Quit;
end;
Ist es möglich das Excel Dokument zu speichern, so das es zu keiner extra Bestätigung kommt?
Und nebenbei: Was ist eigentlich ein WorkBook und WorkSheet? Wie kann ich mir das Vorstellen?
Bin dankbar für jede Hilfe,
Ferby