vorhanden excel öffnen und daten aus formular übernehmen

[mentos112]

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;

[omata]

Versuche es doch mal so...

Delphi-Quellcode:

var Workbook, Filename, Excel: OleVariant;
    OpenDialog:TOpenDialog;
begin
  OpenDialog:=TOpenDialog.Create(Self);
  try
    OpenDialog.InitialDir:=ExtractFilePath(Application.ExeName);
    OpenDialog.Filter:='xls|*.xls';
    if OpenDialog.Execute then begin
      try
        Excel := CreateOleObject('Excel.Application'); 
        Excel.Visible := true;   { für die testphase sinnvoll }

        Filename:=OpenDialog.FileName;
        Workbook:=Excel.Workbooks.Open(filename,
                                       emptyParam, emptyParam, emptyParam,
                                       emptyParam, emptyParam, emptyParam,
                                       emptyParam, emptyParam, emptyParam,
                                       emptyParam, emptyParam, emptyParam);
        // Excel.Workbooks.Add;
        Excel.ActiveWorkBook.Saved := True;   // ... verhindert unliebsame Dialoge
        Excel.Cells[1, 1].Value := 'A';
        Excel.Cells[2, 1].Value := 'B';
        Excel.Cells[3, 1].Value := 'C';
        //  Excel.Cells[4, 1].Value := DateTimePicker1.time;
        Excel.Cells[6, 1].Value := 'D';
      except
        ShowMessage('Excel konnte nicht gestartet werden !');
      end;
    end
  finally
    OpenDialog.free;
  end;
end;

MfG
Thorsten

[mentos112]

danke schön das ist genau das was ich wollte
ha manchmal kommt man auf die einfachsten sachen nicht!

mit freundlichen Grüßen
mentos112