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;