如何将xls文件，用RxRichedit显示出来

Question

我用CxGrid的导出功能把数据导出到Excel中，现在要用RxRichEdit显示，主要是想保留表格的样式。用复制粘贴是可以把Excel中的表格粘到RxRichEdit中的。但是用 Rxrichedit.Lines.LoadFromFile('C:\TEMP.xls'); or 流的方式，都无法显示。Help me!

Answer 1

RxRichEdit可以实现这样的功能么?

Answer 2

use comobj;
var
  xls:variant;
begin
  richedit.Clear;
  xls:=createoleobject('excel.application');
  xls.workbooks.open( 'c:\test.xls',false);
  xls.worksheets[1].range['a:e'].copy;//你要选择的列
  richedit.pastefromclipboard;

Answer 3

问题已解决，感谢  hsmserver 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:\temp.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;