Question

我在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的编号。我希望宏能够计算出＃34;在单元格E5中，以便每个项目循环选择公式。

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

Answer 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

OpenOffice宏计数器请帮忙

1 个答案: