delphi - 再次使用delphi进行openoffice calc

Question

我正在使用搜索引擎，而不仅仅是在这里，并且厌倦了它；只想要一个简单问题的简单答案（或链接）：

如何打开计算表并将 123 从 Delphi (7) 代码写入单元格 A1？（或者 calc 的任何你好世界？）

Answer 1

你可以看看这个演示：http: //sourceforge.net/projects/ooomacros/files/Delphi%20OOo/Version%201.2/Delphi_OOo_v12en.zip/download

一个月前我测试了 Document 部分（有效），examples.pas 中还有一些电子表格代码。

Answer 2

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

使用部分

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;

使用 getcellbyposition(...).setvalue 设置数值，或设置字符串的公式（不太确定，但其中有一个字符串，哈哈）。

彼得

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