RichEdit读取Xls文件，保留表格样式

CxGrid 导出 Excel


uses cxGridExportLink;


ExportGridToExcel('c: emp.xls',self.cxgrd1);




RichEdit读取Xls文件，保留表格样式


uses Clipbrd,ComObj;




procedure TForm3.btn1Click(Sender: TObject);


var


xls:variant;


begin


uredt1.Clear;


Clipboard.Clear;


xls:=createoleobject( 'Excel.Application');


try


xls.displayalerts := false; //取掉提示框


xls.workbooks.open( 'c: emp.xls ',false);


try


xls.worksheets[1].range[ 'a:e '].copy;//你要选择的列


uredt1.pastefromclipboard;


finally


xls.WorkBooks.Close;


xls.quit;


end;


Clipboard.Clear;


except


showmessage('没安装 Excel！');


end;


end;