moin jungs(und mädels)
Ich bekomme gerade ne mittelschwere krise da ich im moment mal wieder auf keine Lösung in meinem folgenden Programm finde!
Kurze beschreibung:
Ich habe ein Formular mit versch. Editfenstern, Comboboxen, datetimepicker,usw. quasi zum ausfüllen
wenn ich dann auf einen button klicke soll sich eine Excel-Datei öffnen, die ich schon vorher gestaltet habe(unterschiedliche Spalten-Zeilen-Höhen-Breiten-Farben-usw.). Allerdings bin ich erst soweit das er mir ne neue excel-datei erstellt und ich bekomme einfach net gebacken ne vorhandene zu öffnen also hoffentlich könnt ihr mir helfen!
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var Excel: OleVariant;
begin
try
Excel := CreateOleObject('Excel.Application'); //an der stelle muss was anderes stehen nur was?!
except
ShowMessage('Excel konnte nicht gestartet werden !');
Exit;
end;
Excel.Workbooks.Add;
Excel.Cells[1, 1].Value := edit1.text;
Excel.Cells[2, 1].Value := edit2.text;
Excel.Cells[3, 1].Value := edit3.text;
Excel.Cells[4, 1].Value := DateTimePicker1.time;
Excel.Cells[6, 1].Value := combobox1.text;
Excel.Visible := true; { für die testphase sinnvoll }
Excel.ActiveWorkBook.Saved := True; // ... verhindert unliebsame Dialoge
end;