关闭

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

1337人阅读 评论(0) 收藏 举报

 

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; 
0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:169837次
    • 积分:2481
    • 等级:
    • 排名:第15411名
    • 原创:73篇
    • 转载:13篇
    • 译文:0篇
    • 评论:25条
    文章分类