04]FlexCel之预览Excel

在窗体上放置组件FlexCelPreviewer1

procedure TForm13.Button1Click(Sender: TObject);
var
  XLS: TXlsFile;
  ImgExport: TFlexCelImgExport;
begin
  //读取Excel文件
  Xls := TXlsFile.Create('C:\Users\Administrator\Desktop\金税三期系统权限申请表1.xls');
  //将Excel文件导出为图像
  ImgExport := TFlexCelImgExport.Create(Xls, false);
  //不显示隐藏Sheet
  ImgExport.AllVisibleSheets := False;
  //设置要预览的文档
  FlexCelPreviewer1.Document := ImgExport;
  //加载文档
  FlexCelPreviewer1.InvalidatePreview;
end;