将数据表导出excel，并打开

//将数据表导出excel，并打开； 

uses shellapi;

 DBGrid2Excel1.SaveDBGridAs('d:\a.xls');  

 ShellExecute(0,nil,'d:\a.xls' ,nil,nil,SW_SHOWNORMAL);