delphi操作wps表格

Procedure OperateWPS;
Var
    wpsApp : variant;         //定义工作表对象
Begin
 
//启动wps
Try
  wpsApp := CreateOleObject(‘KET.Application’);
Except
  Try
    wpsApp := CreateOleObject(‘ET.Application’);     //可以尝试使用这两种接口
  Except
    ShowMessag(‘没有安装wps’);
    Exit;
End;    
 
wpsApp.WorkBooks.Add;
wpsApp.WorkSheets[1].activate;
wpsApp.WorkSheets[1].Columns.columnWidth := 14;         //设置单元格宽度
wpsApp.WorkSheets[1].Cells.horizontalAlignment := 3;    //设置单元格内容居中
wpsApp.WorkSheets[1].Cells[1,1] := '病例号';             //添加单元格内容
wpsApp.WorkSheets[1].Cells[1,2] := '姓名';
wpsApp.WorkSheets[1].Range[‘A1:D4’].Select;              //设置插入图片的位置
wpsApp.WorkSheets[1].Pictures.Insert(‘C:\Picture.bmp’);  //设置插入图片的地址
wpsApp.Visible := true;                                  //表格可见
 
End;