Sodale Kapiert!
Immoment erstelle ich mir noch per Button meine Excel Datei mit 12 Unter Tabellen.
Delphi-Quellcode:
procedure TfrmZeiterfassung.Button1Click(Sender: TObject);
var
Excel: Variant;
begin
Excel:= CreateOleObject('Excel.Application');
excel.Application.SheetsInNewWorkBook:= 12;
Excel.Workbooks.Add;
Excel.Sheets[1].Name:= 'Januar';
Excel.Sheets[2].Name:= 'Februar';
Excel.Sheets[3].Name:= 'Maerz';
Excel.Sheets[4].Name:= 'April';
Excel.Sheets[5].Name:= 'Mai';
Excel.Sheets[6].Name:= 'Juni';
Excel.Sheets[7].Name:= 'Juli';
Excel.Sheets[8].Name:= 'August';
Excel.Sheets[9].Name:= 'September';
Excel.Sheets[10].Name:= 'Oktober';
Excel.Sheets[11].Name:= 'November';
Excel.Sheets[12].Name:= 'Dezember';
// Excel.Sheets['Januar'].Cells[1,1].value:= 'Test';
// Excel.Visible:= true;
Excel.ActiveWorkbook.SaveAs('C:\Project\Test\Lernen\Zeiterfassung\Zeiterfassung 2007.xls');
Excel.Quit;
Excel:=Unassigned;
end;
Jetzt soll mir ja das Programm das Automatisch erstellen beim sozusagen ersten Start. Beim Zweiten Start soll es Prüfen Ob die Datei schon vorhanden ist.
Wenn sie vorhanden ist soll sie automatisch nach dem Monat aussuchen Und dort gucken was der letzte Eintrag ist. Usw ...
Da jemand evtl nütliche Befehle!? oder hat einer schon mal so mit Excel gearbeitet wo ich mir das mal angucken könnte!?
MfG
r3v0
