Lazarus控制WPS表格的例子

逍遥派掌门人

这次来的是控制WPS表格的，就是打开，关闭，很简单。直接上菜：

1. uses
   
2. ......,
   
3. ComObj; { 必须加的}
   
4. 
   
5. ...
   
6. implementation
   
7. 
   
8. {$R *.lfm}
   
9. 
   
10. { TForm1 }
    
11. const
    
12.   OLE_name = 'KET.Application';
    
13. 
    
14. var
    
15.   XLApp: OLEVariant;
    
16.   WorkBook: Variant;
    
17.   Sheet1: Variant;
    
18.   fName: variant;
    
19. 
    
20. procedure TForm1.Button1Click(Sender: TObject);
    
21. begin
    
22.   XLApp := CreateOleObject(OLE_name);
    
23. 
    
24.   try
    
25.     XLApp.Visible := true;
    
26.     XLApp.ScreenUpdating := true;
    
27.     XLApp.DisplayAlerts := true;
    
28.     fName :=ExtractFilePath(ParamStr(0)) + '\1.et';
    
29.     WorkBook := XLApp.Workbooks.Open(fName); // 打开表格
    
30.     Sheet1 := XLApp.workBooks[1].WorkSheets[1];
    
31. 
    
32.   except
    
33.   on E: Exception do
    
34.     begin
    
35.       showmessage(ansiToUtf8('Error: ' +   E.Message));
    
36.     end;
    
37.   end;
    
38. end;
    
39. 
    
40. procedure TForm1.Button2Click(Sender: TObject);
    
41. begin
    
42.     XLApp.Quit; // 关闭表格
    
43. end;

复制代码