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;