请选择 进入手机版 | 继续访问电脑版

Lazarus中文社区

 找回密码
 立即注册

QQ登录

只需一步,快速开始

Lazarus IDE and 组件 下载地址版权申明
查看: 127|回复: 1

[Lazarus实战宝典] Lazarus控制WPS表格的例子

[复制链接]

该用户从未签到

发表于 2017-9-13 17:17:08 | 显示全部楼层 |阅读模式
这次来的是控制WPS表格的,就是打开,关闭,很简单。直接上菜:
  1. uses
  2. ......,
  3. ComObj; { 必须加的}

  4. ...
  5. implementation

  6. {$R *.lfm}

  7. { TForm1 }
  8. const
  9.   OLE_name = 'KET.Application';

  10. var
  11.   XLApp: OLEVariant;
  12.   WorkBook: Variant;
  13.   Sheet1: Variant;
  14.   fName: variant;

  15. procedure TForm1.Button1Click(Sender: TObject);
  16. begin
  17.   XLApp := CreateOleObject(OLE_name);

  18.   try
  19.     XLApp.Visible := true;
  20.     XLApp.ScreenUpdating := true;
  21.     XLApp.DisplayAlerts := true;
  22.     fName :=ExtractFilePath(ParamStr(0)) + '\1.et';
  23.     WorkBook := XLApp.Workbooks.Open(fName); // 打开表格
  24.     Sheet1 := XLApp.workBooks[1].WorkSheets[1];

  25.   except
  26.   on E: Exception do
  27.     begin
  28.       showmessage(ansiToUtf8('Error: ' +   E.Message));
  29.     end;
  30.   end;
  31. end;

  32. procedure TForm1.Button2Click(Sender: TObject);
  33. begin
  34.     XLApp.Quit; // 关闭表格
  35. end;
复制代码


点评

海!外直播 t.cn/RxmJTrC 禁闻视频 t.cn/RJvO78o 中国人的一天:早上起来呼吸过滤了的空气,上午喝一杯过滤过的水,工作的时候看一下过滤过的新闻....  发表于 3 天前
回复

使用道具 举报

QQ|手机版|小黑屋|Lazarus中国|Lazarus中文社区 ( 鄂ICP备16006501号-1

GMT+8, 2017-9-24 23:59 , Processed in 0.039495 second(s), 9 queries , Redis On.

Powered by Discuz! F1.0 Build 20160930

© 2001-2017 Comsenz Inc. & Discuz! Fans

快速回复 返回顶部 返回列表