摘要：
//Delphi中打开Excel文件var ExcelApp: Variant; //Excel变量 ExcelFiles: string; //打开的Excel文件名begin inherited; //打开指定的文件 OpenDialog1.InitialDir := ExtractFilePath(ParamStr(0)) + '.\data\'; OpenDialog1.Filter :=... 阅读全文
摘要：
//判断文件是否存在 if not FileExists(trim(RzButtonEdit1.Text)) then begin Application.MessageBox('指定的数据源文件不存在！', '请您注意', 48); exit; end; 阅读全文