OpenOffice 宏计数器请帮助

Posted 2023-04-13

【中文标题】OpenOffice 宏计数器请帮助

【英文标题】：OpenOffice macro counter help please

【发布时间】：2014-09-28 00:41:42

【问题描述】：

我在 OpenOffice 中有一个电子表格，我需要在其中添加一个宏，该宏基本上只能计数到某个数字。我更喜欢使用我最熟悉的 Python，但我没有将其应用于 OpenOffice 中的宏的经验。

此代码在 Python GUI 中运行良好：

---

import time

a = 0
b = 500

while a < b:
    a = a + 1
    print(a)
    time.sleep(2)

---

电子表格有一个编号为 1-50 的项目列表。选择基于输入到单元格 E5 中的数字。我希望宏在单元格 E5 中“计数”，以便通过选择公式循环每个项目。

我相信我可以编写我需要的代码，但是如何让 Python 代码在 OpenOffice Calc 电子表格中工作？

【参考方案1】：

想通了……

Sub Main

Dim oDoc As Object
Dim oSheet As Object

oDoc=ThisComponent
oSheet=oDoc.Sheets.getByName("Sheet1")
oCell=oSheet.getCellRangeByName("d20")
a=0

Do
a=a+1
oCell.SetString(a)
Wait 2500
Loop While a < 10

End Sub