DElphi<>Excel ??

[Vader]

wie muß ich das abändern das ich auch auf einen anderen speicherort eine
exceldatei öffnen kann zb. c:\ alle.xls?

Delphi-Quellcode:

procedure TForm1.btnOpenFileClick(Sender: TObject);
var
  FExcelFilename  : OleVariant;
begin
  FExcelFilename:=ExtractFilePath(ParamStr(0))+'alle.xls';
  ExcelApplication.Workbooks.Open(FExcelFilename,EmptyParam,EmptyParam,EmptyParam,
                                  EmptyParam,EmptyParam,EmptyParam,EmptyParam,
                                  EmptyParam,EmptyParam,EmptyParam,EmptyParam,
                                  EmptyParam,FLCID);
  ExcelWorkbook.ConnectTo(ExcelApplication.Workbooks.Item['alle.xls']);
  ExcelWorksheet.ConnectTo(ExcelWorkbook.Sheets.Item['Tabelle1'] as _WorkSheet);

  btnReadCell.Enabled:=True;
end;

mfg vader

[edit=alcaeus]Delphi-Tags eingefuegt. In Zukunft bitte selbst machen. Danke Mfg, alcaeus[/edit]