查看: 106|回覆: 0

delphi TMS FlexCel 预览Excel

[複製鏈接]

4

主題

0

回帖

0

積分

热心网友

金币
0
閲讀權限
220
精華
0
威望
0
贡献
0
在線時間
0 小時
註冊時間
2009-7-8
發表於 2022-7-5 10:09:00 | 顯示全部樓層 |閲讀模式

TMS FlexCel 预览Excel

属性和方法

TFlexCelImgExport

用于将Excel文件导出为图像的组件。它可以返回图像对象或特定文件格式的实际字节。 (如 gif、tiff 或 png)

unit

FlexCel.Render

TFlexCelImgExport.Create

创建一个新的 FlexCelImgExport 并将其分配给 Excel 文件。

constructor Create(const aWorkbook: TExcelFile);
constructor Create(const aWorkbook: TExcelFile; const aAllowOverwritingFiles: Boolean);

重载

Create(TExcelFile, Boolean)

创建一个新的 FlexCelImgExport 并将其分配给 Excel 文件,将AllowOverwritingFiles设置为所需的值。

参数

aWorkbook 包含此组件将导出的数据的Excel 文件。

aAllowOverwritingFiles 当为true时,现有文件将被覆盖。

TFlexCelImgExport.AllVisibleSheets

如果为 true,则将打印工作簿上的所有可见工作表。

property AllVisibleSheets: Boolean

TFlexCelPreviewer.Document

要预览的文档。

property Document: TFlexCelImgExport

TFlexCelPreviewer.InvalidatePreview

使预览无效并强制控件从文档中重新加载。 当控件是缩略图时,无法使其无效,这将在您使主视图无效时自动完成。

procedure InvalidatePreview;

例子

预览Excel

在窗体上放置TFlexCelPreviewer组件FlexCelPreviewer1

procedure TForm1.Button6Click(Sender: TObject);
var
  XLS: TXlsFile;
  ImgExport: TFlexCelImgExport;
begin
  //读取Excel文件
  Xls := TXlsFile.Create('C:\Users\Administrator\Desktop\ceshi.xlsx');
  //将Excel文件导出为图像
  ImgExport := TFlexCelImgExport.Create(Xls, false);
  //不显示隐藏Sheet
  ImgExport.AllVisibleSheets := False;
  //设置要预览的文档
  FlexCelPreviewer1.Document := ImgExport;
  //加载文档
  FlexCelPreviewer1.InvalidatePreview;
end;


来源:https://www.cnblogs.com/txgh/p/16445386.html
回覆

使用道具 舉報

您需要登錄後才可以回帖 登錄 | 立即注册

本版積分規則

相关侵权、举报、投诉及建议等,请发 E-mail:qiongdian@foxmail.com

Powered by Discuz! X5.0 © 2001-2026 Discuz! Team.

在本版发帖返回顶部