再次用Delphi实现OpenOffice计算 [英] openoffice calc with delphi again

问题描述

我用的是搜索引擎，不只是这里，我已经厌倦了；我只想要一个简单的问题的简单答案(或链接)：

如何打开计算表并将123从Delphi(7)代码写入单元格A1？(或者任何关于Calc的问候世界？)

推荐答案

好的，经过研究和使用上面的信息，我非常感谢，这是一个简单的答案：

使用部件

Uses ComObj, OOoMessages, OOoTools, OOoConstants, OOoXray;

主代码

打开空白文档，将‘Hello 123’文本写入A1，然后将其保存到桌面

procedure HelloWorldExample;
var
  mentesiOpciok,oSheet,oSheets,myCalc : Variant;
begin
  ConnectOpenOffice;
  myCalc:=StarDesktop.loadComponentFromURL('private:factory/scalc', '_blank', 0, dummyArray);
  oSheets:=myCalc.getSheets;
  oSheet:=oSheets.getByIndex(0);
  //oSheet.getCellByPosition(0, 0).SetValue(123);
  oSheet.getCellByPosition(0, 0).SetFormula('hello 123!');

  mentesiOpciok:=CreateProperties(['FilterName', 'MS Excel 97']);
  myCalc.storeToURL('file:///C:/Documents and Settings/Zéiksz/Asztal/calcdoc.xls', mentesiOpciok);
  showMessage('kész :)');
  myCalc.close(true);
  DisconnectOpenOffice();
end;

使用getcell by Position(...).setValue设置数值，或使用setFormal设置字符串(不太确定，但其中有一个字符串LOL)。

Péter

编辑：我在互联网上找到的大多数有用信息都在这个论坛中： http://www.oooforum.org/forum/viewtopic.phtml?t=4996

这篇关于再次用Delphi实现OpenOffice计算的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！