打开指定的文件

  //打开指定的文件
  OpenDialog1.InitialDir := ExtractFilePath(ParamStr(0)) + '.\data\';
  OpenDialog1.Filter := '*.XLS';
  OpenDialog1.Title := '打开Excel文件';
  OpenDialog1.FileName := '';
  if OpenDialog1.Execute then ExcelFiles := OpenDialog1.FileName else exit;